Author: Danielle.Filteau
Posted: Thu Mar 09, 2017 2:08 am (GMT 5.5)
Thank you for your help, it finally made sense. This did work and gave me my output lined up the way it needed to be.
Posted: Thu Mar 09, 2017 2:08 am (GMT 5.5)
Thank you for your help, it finally made sense. This did work and gave me my output lined up the way it needed to be.
| Code: |
//BLDACTV EXEC PGM=SYNCSORT,COND=(0,LT) //SORTJNF1 DD DISP=SHR,DSN=SXSC.NDVRC1.CCIDVAL //SORTJNF2 DD DISP=SHR,DSN=SXSC.NDVRC1.CCIDPIT //*SORTOUT DD DISP=OLD, //* DSN=DXF125.SXSC.NDVRC1.CCIDVAL.ACTSRCH //SORTOUT DD DISP=(NEW,CATLG,DELETE), // DSN=DXF125.SXSC.NDVRC1.CCIDVAL.ACTSRCH.SORTOUT, // SPACE=(CYL,(5,5)),UNIT=SYSDA,DCB=(RECFM=FB,LRECL=129) //MATCH DD DISP=(NEW,CATLG,DELETE), // DSN=DXF125.SXSC.NDVRC1.CCIDVAL.ACTSRCH.JOIN.M, // SPACE=(CYL,(5,5)),UNIT=SYSDA,DCB=(RECFM=FB,LRECL=200) //SYSOUT DD SYSOUT=* //SORTWK01 DD DSN=&&TEMP,SPACE=(CYL,(2)),UNIT=SYSDA //SORTWK02 DD DSN=&&TEMP,SPACE=(CYL,(2)),UNIT=SYSDA //SORTWK03 DD DSN=&&TEMP,SPACE=(CYL,(2)),UNIT=SYSDA //SORTWK04 DD DSN=&&TEMP,SPACE=(CYL,(2)),UNIT=SYSDA //SORTWK05 DD DSN=&&TEMP,SPACE=(CYL,(2)),UNIT=SYSDA //SORTMSG DD SYSOUT=* //******************************************************************* //* JOINKEYS CCIDVAL FIELDS: (IN ORDER, ASCENDING) //* CCID, ENVIRONMENT, STAGE, SYSTEM, SUBSYSTEM, USERID, TYPE //* //* JOINKEYS CCIDPIT FIELDS: (IN ORDER, ASCENDING) //* CCID, ENVIRONMENT, STAGE, SYSTEM, SUBSYSTEM, USERID, TYPE //* //* SORTOUT FORMAT: //* FROM CCIDVAL: CCID, ENVIRONMENT, STAGE, SYSTEM, SUBSYSTEM, //* FROM CCIDPIT: CCID-EFF,CCID-XPRY,CREATE-UID,CREATE-DT, COMMENT, //* LST-UPD-UID,LST-UPD-DT,EXPRY-FLAG. REST OF ROW //* IS FILLER TO PAD TO 200 CHARACTERS. //* REPORT FORMAT: //* CCID, ENVIRONMENT, STAGE, SYSTEM, SUBSYSTEM,CCID-EFF,CCID-XPRY, //* CREATE-UID,CREATE-DT, COMMENT, LST-UPD-UID, LST-UPD-DT //* REST OF ROW SET TO BLANKS. //* //******************************************************************* //SYSIN DD * SORT FIELDS=COPY JOINKEYS FILE=F1, FIELDS=(3,12,A,25,8,A,34,1,A,36,8,A,45,8,A,16,8,A,54,8,A), FORMAT=CH JOINKEYS FILE=F2, FIELDS=(3,12,A,16,8,A,25,1,A,27,8,A,36,8,A,145,8,A,155,8,A), FORMAT=CH REFORMAT FIELDS=(F1:3,12,25,8,34,1,36,8,45,8, F2:45,8,56,8,120,8,130,8,75,43,165,8,175,8, 67,1) OUTFIL FNAMES=MATCH, BUILD=(2X,1,12,X,13,8,X,21,1,X,22,8,X,30,8,X,38,8,X,46,8,2X, 54,8,X,62,8,2X,70,43,X,113,8,X,121,8,57X), OMIT=((38,8,CH,EQ,C'00010101'),AND,(129,1,CH,EQ,C'Y'),OR, (1,1,CH,EQ,X'40')) END /* // |