“JCL作ります” への4件の返信

  1. SYSUT1のファイルをSYSUT2にコピーします。

    //*** FILE COPY FROM infile TO outfile
    //A0001A JOB ‘A’,A,CLASS=A,MSGCLASS=H
    //COPY EXEC PGM=JSDGENER
    //SYSPRINT DD SYSOUT=*
    //SYSUT1 DD DSN=infile,UNIT=SYSDA,DISP=OLD,VOL=SER=aaaaaa
    //SYSUT2 DD DSN=outfile,UNIT=SYSDA,DISP=(NEW,KEEP),
    // VOL=SER=bbbbbb
    //SYSIN DD DUMMY

  2. //***** ファイルAAAAの印刷
    //A0002B JOB A,CLASS=A,MSGCLASS=H
    //GENER EXEC PGM=JSDGENER
    //SYSPRINT DD SYSOUT=*
    //SYSUT1 DD UNIT=TAPE,DSN=AAAA,VOL=SER=AAAAAA,DISP=OLD,
    // LABEL=(3,BLP),DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
    //SYSUT2 DD SYSOUT=*,DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
    //SYSIN DD DUMMY

コメントを残す

メールアドレスが公開されることはありません。