TO SORT 2 INPUT FILES INTO 2 OUTPUT FILES
Posted: Tue Mar 19, 2013 6:17 pm
IS THIS CODE RIGHT? THE JOB IS GETTING ABENDED...
//XXXXXXP JOB NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),CLASS=A,MSGCLASS=H
//*
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=XXXXX.XXXX.XXXXXXXX(IP1),DISP=SHR
// DD DSN=XXXX.XXXX.XXXXX(IP2),DISP=SHR
//FILE01 DD DSN=XXXXX.XXXX.XXXXX(OP5),DISP=SHR
//FILE02 DD DSN=XXXXX.XXXX.XXXXX(OP6),DISP=SHR
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=FILE01
OUTFIL FNAMES=FILE02
/*
//
// MSGLEVEL=(1,1),CLASS=A,MSGCLASS=H
//*
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=XXXXX.XXXX.XXXXXXXX(IP1),DISP=SHR
// DD DSN=XXXX.XXXX.XXXXX(IP2),DISP=SHR
//FILE01 DD DSN=XXXXX.XXXX.XXXXX(OP5),DISP=SHR
//FILE02 DD DSN=XXXXX.XXXX.XXXXX(OP6),DISP=SHR
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=FILE01
OUTFIL FNAMES=FILE02
/*
//