OVERLAY=(101:11,5,PD,MUL,-1,TO=PD,LENGTH=5)), IFTHEN=(WHEN=NONE, OVERLAY=(101:11,5)) SORT FIELDS=(1,9,CH,A,101,5,PD,D) OMIT COND=(10,1,CH,EQ,C'G',OR, 10,1,CH,EQ,C'M',OR, 10,1,CH,EQ,C'I',OR, 10,1,CH,EQ,C'3',OR, 10,1,CH,EQ,C'7',OR, 10,1,CH...
IFTHEN=(WHEN=(47,2,CH,EQ,C'02'),OVERLAY=(47:C'FEBRUARY')), IFTHEN=(WHEN=(47,2,CH,EQ,C'03'),OVERLAY=(47:C'MARCH')), IFTHEN=(WHEN=(47,2,CH,EQ,C'04'),OVERLAY=(47:C'APRIL')), IFTHEN=(WHEN=(47,2,CH,EQ,C'05'),OVERLAY=(47:C'MAY')), IFTHEN=(WHEN=(47,...
BBBB.CC.PS,DISP=SHR //SORTOUT DD DSN=&&TEMP,DISP=(NEW,PASS,DELETE), UNIT=SYSDA,SPACE=(CYL,(40,10))//SYSIN DD INRECIFTHEN=(WHEN=INIT,OVERLAY=(11:C'1')), IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),OVERLAY=(11:C'0')) SORT FIELDS=(11,1,CH,A,1,9,CH,A) OUTREC FIELDS=(1,10...
BUILD, OVERLAY, IFTHEN BUILD, IFTHEN OVERLAY and FIELDS now allow you to insert past and future dates (relative to the date of your DFSORT run) into your records in various forms using new DATEn+r, DATEn-r, DATEn(c)+r, DATEn(c)-r, DATEnP+r and DATEnP-r constants. &DATEn+r, ...
For case 2: Also check that the user exit did not overlay register 15, for example, by inadvertently including the register in a load multiple (LM) instruction. For complete details of how return codes are interpreted in various situations for the E15, E16, E32, and E35 user exits, see...
INREC IFTHEN=(WHEN=INIT,OVERLAY=(40:SEQNUM,4,ZD)) END /* Output: Code: AAATEST2 ZZZTEST1 QQQTEST6 CCCTEST4 BBBTEST3 LLLTEST5 Back to top A_programmersNew UserJoined: 24 Mar 2010Posts: 19Location: USA Posted: Thu Apr 09, 2020 4:10 pm Thanks Joerg. It is working...
//REPORT DD SYSOUT=* //TOOLIN DD * COPY FROM(IN) TO(T1) USING(CTL1) DISPLAY FROM(T1) LIST(REPORT) - HEADER('Rectype') ON(001,01,CH) - HEADER('PassPhrase') ON(021,10,CH) /* //CTL1CNTL DD * INREC OVERLAY=(021:21,10,CHANGE=(10,C'LEGACY',C'PASSPHRASE', ...
免费在线预览全文 dfsort用法总结 一、COPY的用法,单个文件间的COPY //RPSORT49 JOB MSGLEVEL=(1,1),MSGCLASS=X,CLASS=B //*---* //* DELETE FILE * //*---* //DELFILE EXEC PGM=IEFBR14 //DELFILE1 DD DSN=FNSAP49.RPLD8071,DISP=(MOD,DELETE,DELETE), // SPACE=(TRK,0) //*--...
Examples SORT FROM(A) TO(B,C,D) USING(DEPT) SORT FROM(VSAMIN) TO(VSAMOUT1) USING(VSAM) - VSAMTYPE(F) LOCALE(DA_DK) SORT FROM(MASTER) USING(MULT) DEPTCNTL might contain the following: //DEPTCNTL DD * SORT FIELDS=(15,3,A,27,4,D),FORMAT=PD INREC OVERLAY=(22:5,8,SQZ=(...
From 1 to 50 WITH fields can be used to specify the fields to be overlaid on the base record from the overlay record. At least one WITH(p,m) field must be specified; all such WITH fields specified will be overlaid on to the base record. All other fields in the base record will ...