Author: mbattu
Subject: Unable to create multiple files using BPXWDYN
Posted: Fri May 05, 2017 5:35 pm (GMT 5.5)
Hi,
I have a requirement to create multiple files based on input file. I have first tried to create two files using BPXWDYN, if it is successful thought of creating the actual program.
Now the problem is job is running fine with zero return code for calls to BPXWDYN but only one file is being created. Below is the code, please let me know where I am going wrong. Thanks for the help.
Subject: Unable to create multiple files using BPXWDYN
Posted: Fri May 05, 2017 5:35 pm (GMT 5.5)
Hi,
I have a requirement to create multiple files based on input file. I have first tried to create two files using BPXWDYN, if it is successful thought of creating the actual program.
Now the problem is job is running fine with zero return code for calls to BPXWDYN but only one file is being created. Below is the code, please let me know where I am going wrong. Thanks for the help.
| Code: |
IDENTIFICATION DIVISION. PROGRAM-ID. XXXXXXXX. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT OT-FILE ASSIGN TO OTFILE FILE STATUS FS. DATA DIVISION. FILE SECTION. FD OT-FILE. 01 OT-REC PIC X(80). WORKING-STORAGE SECTION. 01 FS PIC X(02). 01 FN PIC X(17). 01 WS-ALLOC-STRING PIC X(100). 01 PGM PIC X(08) VALUE 'BPXWDYN'. PROCEDURE DIVISION. *** FILE 1 MOVE 'XXXXXXX.TSTS.DYN1' TO FN. STRING 'ALLOC DD(OTFILE) DSN(' FN ') NEW ' 'CATALOG ' 'LRECL(80) RECFM(F,B)' DELIMITED BY SIZE INTO WS-ALLOC-STRING END-STRING. DISPLAY ' WS-ALLOC-STRING *' WS-ALLOC-STRING '*' CALL PGM USING WS-ALLOC-STRING. DISPLAY RETURN-CODE. OPEN OUTPUT OT-FILE. MOVE 'MY REC1' TO OT-REC. WRITE OT-REC. DISPLAY 'FS :' FS CLOSE OT-FILE. *** FILE 2 MOVE 'XXXXXXX.TSTS.DYN2' TO FN. STRING 'ALLOC DD(OTFILE) DSN(' FN ') NEW ' 'CATALOG ' 'LRECL(80) RECFM(F,B)' DELIMITED BY SIZE INTO WS-ALLOC-STRING END-STRING. DISPLAY ' WS-ALLOC-STRING *' WS-ALLOC-STRING '*' CALL PGM USING WS-ALLOC-STRING. DISPLAY RETURN-CODE. OPEN OUTPUT OT-FILE. MOVE 'MY REC2' TO OT-REC. WRITE OT-REC. DISPLAY 'FS :' FS CLOSE OT-FILE. GOBACK. |
