在z/OS上使用JCL和COBOL实现文件复制操作

本示例展示了如何使用z/OS上的Job Control Language (JCL) 和COBOL编程语言实现文件复制操作。该功能通过JCL调用COBOL程序，该程序打开一个输入文件和一个输出文件，然后逐行复制数据。

//COPYJOB JOB (001),'COPY FILE',CLASS=A,MSGCLASS=X
//STEP1 EXEC PGM=COPYPGM
//SYSOUT DD SYSOUT=A
//INFILE DD DSN=INPUT.FILE,DISP=SHR
//OUTFILE DD DSN=OUTPUT.FILE,DISP=(NEW,CATLG),
//            UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)

IDENTIFICATION DIVISION.
PROGRAM-ID. COPYPGM.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 IN-RECORD PIC X(80).
FD OUTFILE.
01 OUT-RECORD PIC X(80).
WORKING-STORAGE SECTION.
01 EOF-SWITCH PIC X VALUE 'N'.
PROCEDURE DIVISION.
OPEN INPUT INFILE
     OUTPUT OUTFILE.
READ INFILE
     AT END MOVE 'Y' TO EOF-SWITCH.
PERFORM UNTIL EOF-SWITCH = 'Y'
    MOVE IN-RECORD TO OUT-RECORD
    WRITE OUT-RECORD
    READ INFILE
        AT END MOVE 'Y' TO EOF-SWITCH
    END-READ
END-PERFORM.
CLOSE INFILE
      OUTFILE.
STOP RUN.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com