Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Mazahar,
Use the following DFSORT JCL. concatenate a 1 line $$ record before each file so that it can be used an identifier to each file.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
$$
// DD DSN=Your fb 80 byte file1,DISP=SHR
// DD *
$$
// DD DSN=Your fb 80 byte file2,DISP=SHR
// DD *
$$
// DD DSN=Your fb 80 byte file3,DISP=SHR
// DD *
$$
// DD DSN=Your fb 80 byte file4,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(82:4C'0')),
IFTHEN=(WHEN=GROUP,BEGIN=(1,2,CH,EQ,C'$$'),PUSH=(81:ID=1)),
IFTHEN=(WHEN=(81,1,ZD,EQ,1,AND,1,2,CH,NE,C'$$'),OVERLAY=(82:C'1')),
IFTHEN=(WHEN=(81,1,ZD,EQ,2,AND,1,2,CH,NE,C'$$'),OVERLAY=(83:C'1')),
IFTHEN=(WHEN=(81,1,ZD,EQ,3,AND,1,2,CH,NE,C'$$'),OVERLAY=(84:C'1')),
IFTHEN=(WHEN=(81,1,ZD,EQ,4,AND,1,2,CH,NE,C'$$'),OVERLAY=(85:C'1'))
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
TRAILER1=(TOT=(82,1,ZD,M11,LENGTH=8),X,
TOT=(83,1,ZD,M11,LENGTH=8),X,
TOT=(84,1,ZD,M11,LENGTH=8),X,
TOT=(85,1,ZD,M11,LENGTH=8))
//* |
|
|