Code: |
//STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * HEADER 02/05/2004 522222222 -----------------------------> 517001053 -----------------------------> 517001194 -----------------------------> 517001202 -----------------------------> DETAIL RECORDS 517001210 -----------------------------> DETAIL RECORDS 517001228 TRAILER 000000018 //T1 DD DSN=&T1,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE) //T2 DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //T3 DD DSN=&T3,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //CON DD DSN=&T1,DISP=OLD,VOL=REF=*.T1 // DD DSN=&T3,DISP=OLD,VOL=REF=*.T3 //OUT DD DSN=YOUR OUTPUT SORTED FILE, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(X,Y),RLSE) //TOOLIN DD * COPY FROM(IN) USING(CTL1) SORT FROM(T2) USING(CTL2) SORT FROM(CON) USING(CTL3) //CTL1CNTL DD * OUTFIL FNAMES=T1,INCLUDE=(1,7,CH,EQ,C'HEADER ',OR, 1,7,CH,EQ,C'TRAILER'), OUTREC=(1,80,81:1,7,CHANGE=(8,C'HEADER ',C'00000000', C'TRAILER',C'99999999'), NOMATCH=(C'99999999')) OUTFIL FNAMES=T2,SAVE //CTL2CNTL DD * SORT FIELDS=(1,9,ZD,A) OUTFIL FNAMES=T3,OUTREC=(1,80,SEQNUM,8,ZD) //CTL3CNTL DD * SORT FIELDS=(81,8,ZD,A) OUTFIL FNAMES=OUT,OUTREC=(1,80) /* |
Code: |
HEADER 02/05/2004 517001053 -----------------------------> 517001194 -----------------------------> 517001202 -----------------------------> DETAIL RECORDS 517001210 -----------------------------> DETAIL RECORDS 517001228 522222222 -----------------------------> TRAILER 000000018 |
Code: |
//STEP0100 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DSN=TSORGOV.STMP05D1.TEST.SORT,DISP=SHR //T1 DD DSN=&T1,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE) //T2 DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE) //T3 DD DSN=&T3,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE) //CON DD DSN=&T1,DISP=OLD,VOL=REF=*.T1 // DD DSN=&T3,DISP=OLD,VOL=REF=*.T3 //OUT DD DSN=TSORGOV.TEST.ICETOOL.OUTPUT, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(10,10),RLSE) //TOOLIN DD * COPY FROM(IN) USING(CTL1) SORT FROM(T2) USING(CTL2) SORT FROM(CON) USING(CTL3) //CTL1CNTL DD * OUTFIL FNAMES=T1,INCLUDE=(1,7,CH,EQ,C'HEADER ',OR, 1,7,CH,EQ,C'TRAILER'), OUTREC=(1,80,81:1,7,CHANGE=(8,C'HEADER ',C'00000000', C'TRAILER',C'99999999'), NOMATCH=(C'99999999')) OUTFIL FNAMES=T2,SAVE //CTL2CNTL DD * SORT FIELDS=(1,9,ZD,A) OUTFIL FNAMES=T3,OUTREC=(1,80,SEQNUM,8,ZD) //CTL3CNTL DD * SORT FIELDS=(81,8,ZD,A) OUTFIL FNAMES=OUT,OUTREC=(1,80) /* THanks, Ramesh |
Code: |
//STEP0200 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * HEADER 02/05/2004 522222222 -----------------------------> 517001053 -----------------------------> 517001194 -----------------------------> 517001202 -----------------------------> DETAIL RECORDS 517001210 -----------------------------> DETAIL RECORDS 517001228 TRAILER 000000018 //OUT DD DSN=YOUR OUTPUT FILE, // DISP=(MOD,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(X,Y),RLSE) //TOOLIN DD * COPY FROM(IN) USING(CTL1) SORT FROM(IN) USING(CTL2) COPY FROM(IN) USING(CTL3) //CTL1CNTL DD * OPTION STOPAFT=1 OUTFIL FNAMES=OUT //CTL2CNTL DD * OMIT COND=(1,7,CH,EQ,C'HEADER ',OR,1,7,CH,EQ,C'TRAILER') SORT FIELDS=(1,9,ZD,A) OUTFIL FNAMES=OUT //CTL3CNTL DD * INCLUDE COND=(1,7,CH,EQ,C'TRAILER') OUTFIL FNAMES=OUT /* |
Code: |
//R012 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * HEADER 02/05/2004 522222222 -----------------------------> 517001053 -----------------------------> 517001194 -----------------------------> 517001202 -----------------------------> DETAIL RECORDS 517001210 -----------------------------> DETAIL RECORDS 517001228 TRAILER 000000018 /* //SORTOUT DD DSN=MY OUTPUT FILE, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // AVGREC=K, // SPACE=(80,(10,2),RLSE), // DCB=(RECFM=FB,LRECL=80) //SYSIN DD * INREC FIELDS=(1,7,CHANGE=(8,C'HEADER ',C'HEADER 1', C'TRAILER',C'TRAILER '), NOMATCH=(1,7),8,73) SORT FIELDS=(8,1,CH,D,1,9,CH,A) OUTFIL OUTREC=(1,7,9,73) /* |
Code: |
INREC FIELDS=(1,7,1,7,CHANGE=(1,C'HEADER ',C'3', C'TRAILER',C'1'), NOMATCH=(C'2'),8,73) SORT FIELDS=(8,1,CH,D,1,9,CH,A) OUTFIL OUTREC=(1,7,9,73) |
Code: |
INREC FIELDS=(1,80,1,7,CHANGE=(1,C'HEADER ',C'3', C'TRAILER',C'1'), NOMATCH=(C'2')) SORT FIELDS=(81,1,CH,D,1,9,CH,A) OUTFIL OUTREC=(1,80) |
Code: |
********************************MEMBERBFS ********************************** ********************************MEMBERFILEHDR ********************************** PEMP 033 090195K.B. THOMAS 7134831380 NSTS21286SM2 AA EMP.1R............003392.EMP.1R..... AB ********************************MEMBERFILE01 ********************************** PEMP 033 090195K.B. THOMAS 7134831380 NSTS21286SM2 AA 1CA PF01 102S OUT 1501 CB01 P03K6097J 04EVENT DEPL HEATERS PWR ON (K2) O CC ********************************MEMBERFILE02 ********************************** 2CA P03K6035L 05EVENT SFMDM EEPROM WRITE ENABLE CORES CC P03K6035L L O ON 02 PF01SIO101501 SS X S L 32CD P03K6035L P03K6035E P33M9001J CE ********************************MEMBERFILE03 ********************************** 3CA ********************************MEMBERFILE04 ********************************** 907 53 L O 1.00BIPL08051201600200 20032820.184615TA 907 53FFAFC40 F0001 U0000004 1 2 16 TB 906 53 L O 1.00BIPL08009800400100 10003125.000000TA ********************************MEMBERFILE05 ********************************** EMP 033 020491MICHAEL PLATOFF 7134838487 NSTS18411SM2 AA 1CA ********************************MEMBERFILE06 ********************************** 2CA P33K9901L 24EVENT HTRS ON/OFF HTRS ON/OFF CC P33K9901L O ON 01 QQ X H L CD P33K9901L 10003D00018098D5550000020002F1D5550000020001F2D55510000 CL01 P33K9901L 0000022000D3D5550000021000E3D5550000 CL02 P33K9901L 02008073D5550000020040B3 CL03 P33K9902L 56EVENT PCB K-RELAYS PCB K-RELAYS CC |
Code: |
********************************MEMBERFILEHDR **********************************BFS EMP 033 020491MICHAEL PLATOFF 7134838487 NSTS18411SM2 AA FILEHD OARE 014 061390RICHARD O. DRAKE7134833043 SM2 AA FILEHD PCSDLST 092 040595M. WILLIS 7134831040 NSTS18411SM2 AA FILEHD PEMP 033 090195K.B. THOMAS 7134831380 NSTS21286SM2 AA FILEHD PTSS 013 090595K.B. THOMAS 7134831380 NSTS21286SM2 AA FILEHD TSS 013 020491MICHAEL PLATOFF 7134838487 NSTS18411SM2 AA FILEHD UMP.UMP3 004 080295SONJA SUMMERS 7134834217 NSTS21249SM2 AA FILEHD EMP.1R............003392.EMP.1R..... AB FILEHD EMP.1R.HZD.CMDS...003133.EMP.1R..... AB FILEHD OARE..............001719............ AB FILEHD TSS.1R............003392.TSS.1R..... AB FILEHD TSS.1R.HZD.CMDS...003133.TSS.1R..... AB FILEHD TSS.1R.PCS.SUPPORT003133.TSS.1R..... AB FILEHD USMP.3............003407.USMP.3..... AB FILEHD 1CA FILE01 PF01 102S OUT 1501 CB01FILE01 PEMP 033 090195K.B. THOMAS 7134831380 NSTS21286SM2 AA FILE01 P03K6097J 04EVENT DEPL HEATERS PWR ON (K2) O CC FILE01 2CA FILE02 P03K6035L 05EVENT SFMDM EEPROM WRITE ENABLE CORES CC FILE02 P03K6035L L O ON 02 PF01SIO101501 SS X S L 32CD FILE02 3CA FILE03 P03C2201A 10AMP EMP EXPERIMENT DC CURRENT TI FILE04 P03C2201A J BSS L O 0 500 TJ FILE04 |
Code: |
********************************MEMBERFILEHDR **********************************BFS |
Code: |
********************************MEMBERFILEHDR **********************************FILEHDR |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours