Code: |
IDENTIFICATION DIVISION. PROGRAM-ID. TESTCOB1. AUTHOR. **********. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-370-168. OBJECT-COMPUTER. IBM-370-168. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILEIN ASSIGN TO UT-S-FILEIN. SELECT FILEOUT ASSIGN TO UT-S-FILEOUT. DATA DIVISION. FILE SECTION. FD FILEIN RECORDING MODE IS V BLOCK CONTAINS 0 RECORDS . 01 FILEIN-RECORD. 05 FILEIN-ID PIC X(02). 05 FILEIN-DATE-ID PIC X(09). 05 FILEIN-DATE-CONSTANT PIC X(12). 05 FILEIN-DATE-CREATION-DATE PIC X(08). 05 FILLER PIC X(01). 05 FILEIN-DATE-CREATE-DATE-ALPHA PIC X(21). 05 FILEIN-DATE-FILE-NAME PIC X(27). FD FILEOUT RECORDING MODE IS V BLOCK CONTAINS 0 RECORDS . 01 FILEOUT-RECORD. 05 FILEOUT-ID PIC X(02). 05 FILEOUT-DATE-ID PIC X(09). 05 FILEOUT-DATE-CONSTANT PIC X(12). 05 FILEOUT-DATE-CREATION-DATE PIC X(08). 05 FILLER PIC X(01). 05 FILEOUT-DATE-CREATE-DATE-ALPHA PIC X(21). 05 FILEOUT-DATE-FILE-NAME PIC X(27). WORKING-STORAGE SECTION. 01 ARE-THERE-MORE-RECORDS PIC X(3) VALUE 'YES'. 88 MORE-RECORDS VALUE 'YES'. 88 NO-MORE-RECORDS VALUE 'NO'. PROCEDURE DIVISION. 0000-FILEOUT-CONTROL. PERFORM 1000-INIT-FILES. PERFORM 2000-READ-FILEIN. PERFORM 1100-REPORT-FILEIN-RECORDS UNTIL NO-MORE-RECORDS. PERFORM 1200-CLOSE-FILES. STOP RUN. 1000-INIT-FILES. OPEN INPUT FILEIN OUTPUT FILEOUT. 1100-REPORT-FILEIN-RECORDS. IF FILEIN-ID EQUAL '01' MOVE FILEIN-RECORD TO FILEOUT-RECORD WRITE FILEOUT-RECORD. PERFORM 2000-READ-FILEIN. 1200-CLOSE-FILES. CLOSE FILEIN FILEOUT. 2000-READ-FILEIN. READ FILEIN AT END MOVE 'NO' TO ARE-THERE-MORE-RECORDS. |
Code: |
RECORD VARYING FROM 1 TO max len expected DEPENDING ON WS-REC-LEN |
Code: |
01 IP-REC. 05 NBR-OF-BYTES PIC X OCCURS FROM 1 TO nn DEPENDING ON WS-REC-LEN. |
Code: |
RECORD CONTAINS FROM 1 TO max len expected. |
Code: |
01 IP-REC-1. 05 REC-TYPE-1 PIC X. 05 yada, yada, yada 01 IP-REC-2. 05 REC-TYPE-2 PIC X. 05 yada, yada, yada 01 yada, yada, yada . . . |
Code: |
READ IP-FILE IF REC-TYPE-1 = '1' do stuff only using IP-REC-1 datanames WRITE IP-REC-1 END-IF IF REC-TYPE-2 = '2' do stuff only using IP-REC-2 datanames WRITE IP-REC-2 END-IF etc. |
Code: |
RECORD CONTAINS FROM 1 TO max len expected. |
Code: |
01 IP-REC-1. 05 fixed part of rec PIC X(nnn). 05 MO-NBR PIC 9(002). 05 REC1-TBL. 10 REC1-ENTRY OCCURS 1 TO 12 DEPENDING ON MO-NBR. 15 REC1-MO PIC X(003). . . . |
Code: |
READ IP-FILE |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours