Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
The following DFSORT/ICETOOL JCL will give you the desired results.
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=Your input 70 byte file,
// DISP=SHR
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(T1) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
PARSE(%01=(STARTAFT=X'0004',FIXLEN=6),
%02=(STARTAFT=X'0004',FIXLEN=6),
%03=(STARTAFT=X'0004',FIXLEN=6),
%04=(STARTAFT=X'0004',FIXLEN=6),
%05=(STARTAFT=X'0004',FIXLEN=6),
%06=(STARTAFT=X'0004',FIXLEN=6),
%07=(STARTAFT=X'0004',FIXLEN=6),
%08=(STARTAFT=X'0004',FIXLEN=6)),
BUILD=(C'0004 ',%01,/,C'0004 ',%02,/,
C'0004 ',%03,/,C'0004 ',%04,/,
C'0004 ',%05,/,C'0004 ',%06,/,
C'0004 ',%07,/,C'0004 ',%08)
//CTL2CNTL DD *
OMIT COND=(6,1,CH,EQ,C' ')
SORT FIELDS=(1,5,CH,A,6,6,PD,A)
SUM FIELDS=NONE
OUTFIL FNAMES=OUT,BUILD=(1,5,6,6,PD,M11,LENGTH=12)
/* |
|
|