Additional Standard File Facilities › Creating Nonprint Report Output › Demonstration (5): Writing Variable-length Records

Demonstration (5): Writing Variable-length Records

Objective

The following example reads in variable-length records and writes out variable-length records to a sequential file.

Procedure

• Input records are sorted by customer number and selectively written, depending to the value of TYPE.
• REC parameters define the complete input file in three segments, non of which exceeds 256 bytes:
  • The first four bytes of the record contain the RDW.

    A new RDW is not required in this example. User module CULLUS33 can be used if a new record descriptor word (RDW) must be generated.

  • The sort key CUST-NO and the type 7 field TYPE are the only individual fields defined.
• Variable length output files are created by coding:
  • A sequential output file type OUT PS
  • JCL output specifications of:
    • RECFM=V or VB (SYS020)
    • An increased LRECL size (a multiple of 4 but not larger than 4096 bytes or the block size) in SYS006 of the JCL to accommodate the SORT parameters

Complete Code

col. 2
▼
IN 640 V                      $Variable-length file
REC CUST-NO        5       5      3  $Used as a sort key
REC TYPE          70       3         $Used in type 7 logic
REC PART-ONE       1     250
REC PART-TWO     251     250
REC PART-THREE   501     140
01SORT  CUST-NO
01OUT  640  D  PS
01510001 PART-ONE
01510251 PART-TWO
01510501 PART-THREE
017010  IF TYPE EQ ('E00' TO 'T99')  DROP