Additional Standard File Facilities › Creating Nonprint Report Output › Demonstration (1): Writing to a Sequential File

Demonstration (1): Writing to a Sequential File

Objective

This example writes out selected data items listed on REC parameters to a 40-byte sequential file. A hexadecimal dump shows how the data is stored on the file.

Procedure

• An OUTPUT parameter defines a sequential file that will store detail information extracted from the type 5 detail lines:
  • Records are 40 bytes, fixed length.
  • DD=SYS020 specifies the name of the output file in execution JCL.

    In a z/VSE environment, the logical unit number of the device receiving the output file (DD=SYS020,20) must also be specified if the file type is not CARD.

• Type 5 lines specify absolute column placement for the data items written out.

  The column specifications become the byte positions of the items on the record.

• Format codes are used on numeric fields.

Complete Code

col. 2
▼
IN 150 F 1500 PS(TAPE)
REC CUST-NO       1     5  3
REC GROSS-AMT    10     9  2  DP=2
REC NET          19     9  2  DP=2
REC ITEM-NO      28     4  1
REC TYPE         38     3
01OUT 40 4000 D PS DD=SYS020
01SORT CUST-NO
01510001 CUST-NO    FN               $Outputs leading zeros
01510010 GROSS-AMT  FZ               $Formats as zoned decimals
01510019 NET        FZ
01510028 ITEM-NO    FM '9999999999'  $Requires ten digits
01510038 TYPE
017010   IF TYPE = ('E00' TO 'T99') DROP

The Hex Dump Output

RECORD BUFFER DUMP
             CHAR   00107661500024690 000222200 144523008A27
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0010766150002469000002222000144523008127
                   O1...5...10....5...20....5...30....5...40

             CHAR   00107661500005250 000047420 283356401B44
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0010766150000525000000474200283356401244
                   O1...5...10....5...20....5...30....5...40

             CHAR   00107661500015590 000132750 324836977B49
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0010766150001559000001327500324836977249
                   O1...5...10....5...20....5...30....5...40

             CHAR   00132696800239500 002195000 144523008A27
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0013269680023950000021950000144523008127
                   O1...5...10....5...20....5...30....5...40

             CHAR   00132696800009095 000081150 262973310B52
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0013269680000909500000811500262973310252
                   O1...5...10....5...20....5...30....5...40

             CHAR   00588568300000000 000002200 424304486X12
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFEFF
             DIGIT  0058856830000000000000022000424304486712
                   O1...5...10....5...20....5...30....5...40

             CHAR   00588568300010000 000085000 262973311B52
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0058856830001000000000850000262973311252
                   O1...5...10....5...20....5...30....5...40

             CHAR   00588568300044500 000400500 669011172C06
             ZONE   FFFFFFFFFFFFFFFFFCFFFFFFFFFCFFFFFFFFFCFF
             DIGIT  0058856830004450000004005000669011172306
                   O1...5...10....5...20....5...30....5...40