superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I think your best option is to handle it programatically. However, this is one possible option:
Code: |
//STEP0001 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=FILEA
//SORTOUT DD SYSOUT=(A,INTRDR)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL OUTREC=(C'//JOBB JOB (...),...,',/,
C'// MSGCLASS=X,MSGLEVEL=(1,1)',/,
C'//STEP0001 EXEC PGM=SORT',/,
C'//SORTIN DD DISP=SHR,DSN=FILEB',/,
C'//SORTOUT DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),',/,
C'// DISP=(,CATLG,DELETE),',/,
C'// DSN=',1,44,/,
C'//SYSOUT DD SYSOUT=*',/,
C'//SYSIN DD *',/,
C' OPTION COPY',/,
C'/*',80:X)
/*
|
|
|