sqlcode1
Active Member
Joined: 08 Apr 2010 Posts: 577 Location: USA
|
|
|
|
thoulath,
Use below job AS IS and see if it matches your expected output.
Code: |
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD YOUR.FILE1
//SORTJNF2 DD YOUR.FILE2
//SORTOUT DD SYSOUT=*
//JNF1CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD)
/*
//JNF2CNTL DD *
INREC OVERLAY=(81:SEQNUM,8,ZD)
/*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(81,8,A),SORTED,NOSEQCK
JOINKEYS FILES=F2,FIELDS=(81,8,A),SORTED,NOSEQCK
REFORMAT FIELDS=(F1:1,12,F2:01,31,F1:13,31)
OPTION COPY
/*
|
OUTPUT
Code: |
----------- ------------------------------ ----------------------------
COPYBOOK : AE12ATDT
LEVELNAME FIELDNAME GROUP OFFSET
01 AE12AT-PRESENTMENT-RECORD. GROUP 0
05 AE12AT-PRES-ACCT-NBR - 6
05 AE12AT-PRES-ACCT-NBR - 6
----------- ------------------------------ ----------------------------
COPYBOOK : AE1240DT
LEVELNAME FIELDNAME GROUP OFFSET
01 AE1240-PRESENTMENT-RECORD. GROUP 0
05 AE1240-PRES-ACCT-NBR - 6
05 AE1240-PRES-ACCT-NBR - 6
----------- ------------------------------ ---------------------------- |
Thanks, |
|