Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HEADER ROW LOAD DATA LOG NO
DATA ROW ABCD_TABLE NAME 1
DATA ROW ABCD_TABLE NAME 2
..............
...........
TRAILER ROW LOAD DATA LOG NO
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(81,8,ZD,EQ,+1),
BUILD=(1,21,C'RESUNE YES ',22,6)),
IFTHEN=(WHEN=(81,8,ZD,EQ,+2),
OVERLAY=(10:C'ABXY'))
/*
|
|
|