IBM Mainframe Forum

by **Nuadha** » Tue Jan 31, 2012 11:57 pm

Hi,

I have a problem where I'm running an OCCURS in ICETOOL, but I'm getting a strange count where there are duplicate values included in the count, and not all rows are being included:

Select all

AAAAAAA BBBB CCCCCCC DDDDD EEEE FFFFF COUNT
------- ---- ------- ----- ---- ----- ---------------
004 070 064 OK 2012 01 7
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1

Here is my TOOLIN:

Select all

//TOOLIN DD *
OCCURS FROM(SORTOUT) LIST(REPFILE) -
HEADER('AAAAAAA') -
HEADER('BBBB') -
HEADER('CCCCCCC') -
HEADER('DDDDD') -
HEADER('EEEE') -
HEADER('FFFFF') -
HEADER('COUNT') -
ON(FIELD_AAAAA) -
ON(FIELD_BBBBB) -
ON(FIELD_CCCCC) -
ON(FIELD_DDDDD) -
ON(FIELD_EEEEE) -
ON(FIELD_FFFFF) -
ON(VALCNT) BLANK

and here is the SYMNAMES for the above:

Select all

//SYMNAMES DD *
FIELD_EEEEE,17,4,CH
FIELD_FFFFF,22,2,CH
FIELD_AAAAA,44,3,CH
FIELD_DDDDD,61,2,CH
FIELD_BBBBB,64,3,CH
FIELD_CCCCC,79,3,CH

The input and output files are FB, the input has an LRECL of 135, the output report has LRECL of 120. The input file is created using a JOINKEYS operation and the file looks fine, but I can provide more details if anybody deems necessary. I believe it's the latest version of DFSORT:

Select all

ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1

And I've included the relevant DFSMSG output below. If anybody has any ideas as to what I've done wrong, they'd be much appreciated, thanks.

Select all

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE805I 0 JOBNAME: USERIDXZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH,*
A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 11:36 ON TUE JAN 31, 2012 -
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH*
,A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
RECORD LENGTH=(,,00029)
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 1 USERIDXZ.SORTREPT. , INPUT LRECL = 250, BLKSIZE = 2500, TYPE = FB

by **skolusu** » Wed Feb 01, 2012 12:12 am

Nuadha wrote:The input and output files are FB, the input has an LRECL of 135, the output report has LRECL of 120. The input file is created using a JOINKEYS operation and the file looks fine, but I can provide more details if anybody deems necessary. I believe it's the latest version of DFSORT:

Select all
ICE088I 1 USERIDXZ.SORTREPT. , INPUT LRECL = 250, BLKSIZE = 2500, TYPE = FB

Nuadha,

Something does NOT add up. Are you sure you have the right input file? Your input seems to have an LRECL of 250 which does not match your requirement.

by **Nuadha** » Wed Feb 01, 2012 12:16 am

Sorry, my mistake, it's 250 - the previous joinkeys input I mentioned had LRECL=135. These are the DDs for the input and output for this operation:

Select all

//SORTOUT DD DSN=&SYSUID..AHH.DETAIL,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=250,BLKSIZE=2500
//REPFILE DD DSN=&SYSUID..AHH.REPORT,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=120,BLKSIZE=1200

by **Frank Yaeger** » Wed Feb 01, 2012 12:40 am

Again, something does NOT add up. I tried to recreate your job as follows.

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002

This message indicates the OCCUR operator was the second operator in TOOLIN, but you did not show us the first operator. So it's difficult to know exactly what you're doing. You need to show the complete ICETOOL job and all messages.

I used the following input records which I think match yours:

Select all

2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 004 OK 070 064
2012 01 010 OK 070 064
2012 01 010 OK 070 064
2012 01 010 OK 070 064
2012 01 010 OK 070 064
2012 01 010 OK 070 064
2012 01 010 OK 070 064

and ran the following DFSORT job:

Select all

//S1 EXEC PGM=ICETOOL
//SYMNAMES DD *
FIELD_EEEEE,17,4,CH
FIELD_FFFFF,22,2,CH
FIELD_AAAAA,44,3,CH
FIELD_DDDDD,61,2,CH
FIELD_BBBBB,64,3,CH
FIELD_CCCCC,79,3,CH
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTOUT DD DSN=... input file (FB/250)
//REPFILE DD SYSOUT=*
//TOOLIN DD *
OCCURS FROM(SORTOUT) LIST(REPFILE) -
HEADER('AAAAAAA') -
HEADER('BBBB') -
HEADER('CCCCCCC') -
HEADER('DDDDD') -
HEADER('EEEE') -
HEADER('FFFFF') -
HEADER('COUNT') -
ON(FIELD_AAAAA) -
ON(FIELD_BBBBB) -
ON(FIELD_CCCCC) -
ON(FIELD_DDDDD) -
ON(FIELD_EEEEE) -
ON(FIELD_FFFFF) -
ON(VALCNT) BLANK

REPFILE had:

Select all

AAAAAAA BBBB CCCCCCC DDDDD EEEE FFFFF COUNT
------- ---- ------- ----- ---- ----- ---------------
004 070 064 OK 2012 01 7
010 070 064 OK 2012 01 6

So there's something you're NOT telling us or are not aware of. You didn't actually show the complete set of DFSMSG messages. It might help if you did.

If you like, you can send me YOUR complete job and input file offline (yaeger@us.ibm.com) as plain text attachments so I can see what's different.

by **Nuadha** » Wed Feb 01, 2012 1:25 am

Hi Frank,

here's the full DFSMSG, though for company policy reasons I had to rename all the fields (DELIM is defined as C';')

Select all

1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE805I 0 JOBNAME: KAMNO2GZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE280I 1 ORIGINAL STATEMENTS FROM SRTFCNTL FOLLOW
JOINKEYS F1=SYSREC00,FIELDS=(106,2,A)
JOINKEYS F2=TERMDESC,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=SORTOUT,
BUILD=(field001,
DELIM,field002,
DELIM,field003,
DELIM,field004,
DELIM,field005,
DELIM,field006,
DELIM,field007,
DELIM,field008,
DELIM,field009,
DELIM,field010,
DELIM,field011,
DELIM,field012,
DELIM,field013,
DELIM,field014,
DELIM,field015,
DELIM,field016,
DELIM,field017,
25X) $ PADDING TO 250
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRTF,SORTIN=SYSREC*
00,DYNALLOC
SORT FIELDS=COPY
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SYSREC00 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR TERMDESC - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=209
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE858I 0 LA=198104, DA=20856, AA=177248, BA=1004, CP=2, TA=1054
ICE859I 0 LB=3696, DB=6095, AB=924, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=2048
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 11:36 ON TUE JAN 31, 2012 -
0 JOINKEYS F1=SYSREC00,FIELDS=(106,2,A)
JOINKEYS F2=TERMDESC,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=SORTOUT,BUILD=(1,15,C';',16,26,C';',42,3,C';',45,12,C';'*
,57,2,C';',59,3,C';',62,10,C';',72,3,C';',75,10,C';',85,*
1,C';',86,2,C';',88,8,C';',96,10,C';',106,2,C';',108,1,C*
';',109,1,C';',110,100,25X)
ICE146I 0 END OF STATEMENTS FROM SRTFCNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRTF,SORTIN=SYSREC*
1 00,DYNALLOC
SORT FIELDS=COPY
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SYSREC00 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR TERMDESC - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=209
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE858I 0 LA=198104, DA=20856, AA=177248, BA=1004, CP=2, TA=1054
ICE859I 0 LB=3696, DB=6095, AB=924, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=2048
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE089I 0 KAMNO2GZ.SORTREPT. , INPUT LRECL = 209, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20871152,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 1079296
ICE855I 0 SORTOUT : TX=N, R=J, L=J, B=J, BL=0, BR=0, DCT=200, VS=N, RU=X, SB=8
ICE210I 0 SORTOUT : EXCP USED, LRECL = 250, BLKSIZE = 2500, TYPE = FB
ICE751I 1 EF-BASE CB-K64632 F0-K62422 E8-K70685
ICE421I 0 JOINED RECORDS: COUNT=58
ICE055I 0 INSERT 58, DELETE 0
ICE054I 0 RECORDS - IN: 0, OUT: 58
ICE227I 0 SORTOUT : DELETED = 0, REPORT = 0, DATA = 58
ICE228I 0 SORTOUT : TOTAL IN = 58, TOTAL OUT = 58
ICE804I 5 OUTFIL EXCP COUNT: 1
ICE891I 1 20918864 WMAIN, 9648 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 209 RIN 0 BLI 0 BLO 210 RUN 0 BUN 2097 CPU 00 CVC
ICE052I 0 END OF DFSORT
1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE805I 0 JOBNAME: KAMNO2GZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH,*
A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
RECORD LENGTH=(,,00029)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 11:36 ON TUE JAN 31, 2012 -
0 DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH*
,A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
RECORD LENGTH=(,,00029)
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 1 KAMNO2GZ.SORTREPT. , INPUT LRECL = 250, BLKSIZE = 2500, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20887536,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE750I 0 DC 15000 TC 0 CS DSVNN KSZ 17 VSZ 17
ICE887I 0 CSES 0,0,0 ES 0,0,0
1ICE886I 0 SYS 0 TSTG 0 FS 0 INIT 0 MAX 0 LEN 0
ICE752I 0 FSZ=60 RC IGN=0 E AVG=32 0 WSP=2 C DYN=0 0
ICE915I 0 MOFSZ=1,MOSZ=0,MOSYS=3891(2),MOSTG=4078,MEML=3891(1)
ICE916I 0 MOFR=0402,MOVR=VV
ICE996I 0 ESM=2310656,ESO=2310656,ESR=0,ESP=4096,ESS=16384,CES=2310656,HSZ=1048576
ICE997I 0 HWSP=0,HMAX=0,HES=996096,ASV=1044092,EQ=I1,HN=1
ICE898I 0 OMAX=290875,NMAX=1044092,ENQT=1044092,CMAX=256,HU=99,BUN=61408,MD=N1,M ,DU=0,DR=10000,HN=1
ICE880I 0 QP=1 QA=1 HI=255 LI=255 MI=255 TZ=3708 N1=0 N2=0 SZ=2 HN=1
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE902I 0 O I PP11
ICE751I 1 DE-K61787 D5-K58148 D9-K61787 E8-K70685
ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=1,SRC=8,VEM=0
ICE091I 0 OUTPUT LRECL = 29, TYPE = F
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 13
ICE054I 0 RECORDS - IN: 8, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 2000
ICE253I 0 RECORDS SORTED - PROCESSED: 8, EXPECTED: 60
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE891I 1 20916792 WMAIN, 11720 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 250 RIN 2500 BLI 0 BLO 32 RUN 61408 BUN 2097 CPU 00 CVC
ICE893I 1 200 XIN 64 WIN 122849 GIN NDEN PFP B00 CM000 CIX UPTS LMD VS RUX
ICE894I 0 1 STR 0 MOR 0 IPB 0 OPB 0 CYL I MN
ICE881I 0 EQ=I1 DX=0 D2=0 D3=1 D4=0 AS=0 SA=0 SB=0 SC=0 HN=1
ICE885I 0 DAT 00 DSR 0304 BINS 0 BSZ 0 RCP 0 AJC 0 RLC 0 DUNIT 0
ICE895I 0 995 MUNIT 42 SUNIT 31 OUNIT
ICE896I 0 0 SET 0 DEXTOT 0 BLK 60 CSZ 0 WE
ICE804I 1 SORTWK06 EXCP COUNT: 0
ICE804I 1 SORTWK05 EXCP COUNT: 0
ICE804I 1 SORTWK04 EXCP COUNT: 0
ICE804I 1 SORTWK03 EXCP COUNT: 0
ICE804I 1 SORTWK02 EXCP COUNT: 0
ICE804I 1 SORTWK01 EXCP COUNT: 0
ICE804I 1 SORTOUT EXCP COUNT: 1
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1
ICE052I 0 END OF DFSORT

and here's the file

Select all

000000000000000;2012-01-17-11.32.58.775855;010;2884.16 ;OK;070;2012-01-18;064;2013-01-18;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-23-15.31.58.467334;010;1684.12 ;OK;070;2012-01-20;064;2013-01-20;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-13-15.31.46.408130;010;1562.69 ;OK;070;2012-01-06;064;2013-01-06;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-06-15.32.19.279034;010;1768.55 ;OK;070;2012-01-06;064;2013-01-06;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-11.33.34.216462;010;1254.02 ;OK;070;2012-02-08;064;2013-02-08;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-16-20.54.01.909414;010;2801.05 ;OK;070;2012-02-15;064;2013-02-15;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-12-04.36.37.638316;010;1461.38 ;OK;070;2012-01-12;064;2013-01-12;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-05-20.37.53.405624;010;1113.63 ;OK;070;2012-01-28;064;2013-01-28;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-04-04.44.18.054953;010;1324.41 ;OK;070;2012-01-31;064;2013-01-31;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-06-15.35.03.050411;010;988.65 ;OK;070;2012-01-06;064;2013-01-06;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-09-00.40.18.981689;010;1300.19 ;OK;070;2012-01-10;064;2013-01-10;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-20-20.22.59.454047;010;1182.41 ;OK;070;2012-01-21;064;2013-01-21;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-27-04.49.26.312290;010;1217.68 ;OK;070;2012-01-27;064;2013-01-27;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-19-04.48.37.388993;010;1370.63 ;OK;070;2012-01-26;064;2013-01-26;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-20.54.26.609022;010;1241.69 ;OK;070;2012-01-20;064;2013-01-20;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-23-15.34.45.048094;010;802.67 ;OK;070;2012-02-27;064;2013-02-27;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-04.46.38.478513;010;1603.70 ;OK;070;2012-02-28;064;2013-02-28;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-03-20.55.39.701206;010;2469.22 ;OK;070;2012-01-02;064;2013-01-02;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-24-04.56.03.396602;010;1738.01 ;OK;070;2012-01-23;064;2013-01-23;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-20.57.41.242538;010;981.55 ;OK;070;2012-01-27;064;2013-01-27;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-20-11.41.41.315194;010;1159.69 ;OK;070;2012-02-23;064;2013-02-23;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-11-11.39.28.855996;010;3575.61 ;OK;070;2012-01-10;064;2013-01-10;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-11.42.58.845401;010;3010.68 ;OK;070;2012-01-27;064;2013-01-27;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-11.44.42.236666;010;1635.43 ;OK;070;2012-02-01;064;2013-02-01;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-11-04.52.09.682705;010;1527.51 ;OK;070;2012-01-11;064;2013-01-11;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-17-04.53.50.427459;010;1553.07 ;OK;070;2012-02-25;064;2013-02-25;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-30-21.12.53.697062;010;1348.20 ;OK;070;2012-01-27;064;2013-01-27;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-05.05.17.934952;010;1220.78 ;OK;070;2012-02-02;064;2013-02-02;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-18-05.04.17.079799;010;978.35 ;OK;070;2012-02-08;064;2013-02-08;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-15.38.05.676423;304;807.37 ;OK;070;2011-12-15;064;2012-12-15;A;A9;2011 ; ; ;1;2;
000000000000000;2012-01-17-11.51.10.080509;010;1232.98 ;OK;070;2012-01-20;064;2013-01-20;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-15.37.10.836781;010;1272.48 ;OK;070;2012-01-24;064;2013-01-24;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-20-05.11.56.974554;010;1583.01 ;OK;070;2012-02-10;064;2013-02-10;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-17-11.52.58.697928;010;1261.85 ;OK;070;2012-01-14;064;2013-01-14;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-06-05.36.34.796933;010;2076.12 ;OK;070;2012-01-17;064;2013-01-17;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-05-20.59.01.859368;010;1835.03 ;OK;070;2012-01-13;064;2013-01-13;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-21.38.56.732171;010;1398.53 ;OK;070;2012-03-01;064;2013-03-01;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-31-05.11.44.787769;010;1586.69 ;OK;070;2012-01-31;064;2013-01-31;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-18-11.45.43.650660;010;887.00 ;OK;070;2012-01-19;064;2013-01-19;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-26-21.08.34.674928;010;1022.28 ;OK;070;2012-02-28;064;2013-02-28;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-18-21.29.28.689804;010;1063.98 ;OK;070;2012-01-19;064;2013-01-19;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-21.45.14.223556;010;2295.46 ;OK;070;2012-01-31;064;2013-01-31;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-06-20.53.12.549666;010;2067.74 ;OK;070;2012-01-07;064;2013-01-07;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-21.45.50.553508;010;1447.29 ;OK;070;2012-01-25;064;2013-01-25;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-23-21.14.27.560896;010;1078.63 ;OK;070;2012-01-20;064;2013-01-20;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-16-21.28.03.480037;010;1283.21 ;OK;070;2012-01-23;064;2013-01-23;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-19-21.17.15.834064;010;1002.46 ;OK;070;2012-02-06;064;2013-02-06;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-06-15.47.06.641914;010;1994.81 ;OK;070;2012-01-29;064;2013-01-29;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-20-05.23.48.477164;010;1236.56 ;OK;070;2012-01-23;064;2013-01-23;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-17-11.58.40.857350;304;2795.11 ;OK;070;2011-12-28;064;2012-12-28;A;A9;2011 ; ; ;1;2;
000000000000000;2012-01-13-09.01.25.581959;010;836.01 ;OK;070;2012-01-11;064;2013-01-11;A;A9;2012 ; ; ;1;2;
000000000000000;2012-01-25-21.38.57.527785;004;-1398.53 ;OK;070;2012-03-01;064;2013-03-01;A;A9;2012 ;2012-03-01;50;1;5;
000000000000000;2012-01-16-20.48.32.764419;004;-916.77 ;OK;070;2011-12-14;064;2012-12-14;A;A9;2011 ;2012-02-03;54;1;5;
000000000000000;2012-01-18-21.02.37.182033;004;-859.97 ;OK;070;2011-12-16;064;2012-12-16;A;A9;2011 ;2012-02-04;54;1;5;
000000000000000;2012-01-03-20.45.45.696284;004;-1087.16 ;OK;070;2011-11-30;064;2012-11-30;A;A9;2011 ;2012-01-20;54;1;5;
000000000000000;2012-01-19-21.08.00.913465;004;-807.37 ;OK;070;2011-12-15;064;2012-12-15;A;A9;2011 ;2012-02-04;54;1;5;
000000000000000;2012-01-05-20.57.20.601713;004;-2501.95 ;OK;070;2011-11-05;064;2012-11-05;A;A9;2011 ;2012-01-06;61;1;5;
000000000000000;2012-01-16-21.20.08.648938;004;-1417.62 ;OK;070;2011-12-16;064;2012-12-16;A;A9;2011 ;2012-01-17;79;1;5;

by **skolusu** » Wed Feb 01, 2012 2:32 am

nauda,

As I said there is something missing.

Your Joinkeys job wrote out 58 records

ICE054I 0 RECORDS - IN: 0, OUT: 58

and when I see the OCCURS stats they don't match. see below for the stats .

ICE055I 0 INSERT 0, DELETE 13
ICE054I 0 RECORDS - IN: 8, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 2000
ICE253I 0 RECORDS SORTED - PROCESSED: 8, EXPECTED: 60

if OCCURS operator read the right file , the stats would be something like this

Select all

ICE055I 0 INSERT 0, DELETE 58
ICE054I 0 RECORDS - IN: 58, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 14500
ICE253I 0 RECORDS SORTED - PROCESSED: 58, EXPECTED: 111

I am guessing that your temp file name are NOT unique. You are creating a temp file with the same name as your sortout.

and Just for the record if I copy your sample 58 records you posted in the above post and run your job as is I get the following results

Select all

AAAAAAA BBBB CCCCCCC DDDDD EEEE FFFFF COUNT
------- ---- ------- ----- ---- ----- ---------------
004 070 064 OK 2012 01 7
010 070 064 OK 2012 01 49
304 070 064 OK 2012 01 2

by **Frank Yaeger** » Wed Feb 01, 2012 2:51 am

Nuadha,

We'd need to see all of your JCL statements in order to figure out what you're doing wrong.

by **Nuadha** » Wed Feb 01, 2012 3:45 am

Hi all,

Sorry, what I've done is just rewrite the job without the SYMNAMEs, re-ran to make sure I got the same output, and here is the details.

In brief, what I want to do is:
Copy a dataset, delimiting the fields with ';' and doing a lookup on a certain value in each row to retrieve a description of the code (where populated) from a separate code file.

Then I want to do an OCCURS to count how many rows there are for each unique set of fields A - F.

Thanks for looking at this, it's much appreciated!

JCL:

Select all

//*********************************************************************
// SET RAWDATA=&SYSUID..EXTRACT.RAWDATA
// SET DETAIL=&SYSUID..EXTRACT.DETAIL
// SET REPORT=&SYSUID..EXTRACT.REPORT
// SET CODEFILE=&SYSUID..LOOKUP.CODE.FILE
//*********************************************************************
//TIDYUP EXEC PGM=IEFBR14
//DD DD DISP=(MOD,DELETE),DSN=&DETAIL
// DD DISP=(MOD,DELETE),DSN=&REPORT
//**********************************************************************
//SORTREPT EXEC PGM=ICETOOL
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//RAWDATA DD DISP=SHR,DSN=&RAWDATA
//CODEFILE DD DISP=SHR,DSN=&CODEFILE
//SORTOUT DD DSN=&SYSUID..EXTRACT.DETAIL,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=250,BLKSIZE=2500
//REPFILE DD DSN=&SYSUID..EXTRACT.REPORT,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=120,BLKSIZE=1200
//SORTWK01 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK02 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK03 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK04 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK05 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK06 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SYMNAMES DD *
DELIM,C';'
//TOOLIN DD *
COPY FROM(RAWDATA) USING(SRTF)
OCCURS FROM(SORTOUT) LIST(REPFILE) -
HEADER('AAAAAAA') -
HEADER('BBBB') -
HEADER('CCCCCCC') -
HEADER('DDDDD') -
HEADER('EEEE') -
HEADER('FFFFF') -
HEADER('COUNT') -
ON(44,3,CH) -
ON(64,3,CH) -
ON(79,3,CH) -
ON(61,2,CH) -
ON(17,4,CH) -
ON(22,2,CH) -
ON(VALCNT) BLANK
//SRTFCNTL DD *
JOINKEYS F1=RAWDATA,FIELDS=(106,2,A)
JOINKEYS F2=CODEFILE,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=SORTOUT,
BUILD=(1,15,
DELIM,16,26,
DELIM,42,3,
DELIM,45,12,
DELIM,57,2,
DELIM,59,3,
DELIM,62,10,
DELIM,72,3,
DELIM,75,10,
DELIM,85,1,
DELIM,86,2,
DELIM,88,8,
DELIM,96,10,
DELIM,106,2,
DELIM,108,1,
DELIM,109,1,
DELIM,110,100,
25X) $ PADDING TO 250
/*

Input file (RAWDATA):

Select all

0000000000000002012-01-16-20.48.32.764419004-916.77 OK0702011-12-140642012-12-14AA92011 2012-02-035415
0000000000000002012-01-17-11.32.58.7758550102884.16 OK0702012-01-180642013-01-18AA92012 12
0000000000000002012-01-23-15.31.58.4673340101684.12 OK0702012-01-200642013-01-20AA92012 12
0000000000000002012-01-13-15.31.46.4081300101562.69 OK0702012-01-060642013-01-06AA92012 12
0000000000000002012-01-06-15.32.19.2790340101768.55 OK0702012-01-060642013-01-06AA92012 12
0000000000000002012-01-18-21.02.37.182033004-859.97 OK0702011-12-160642012-12-16AA92011 2012-02-045415
0000000000000002012-01-03-20.45.45.696284004-1087.16 OK0702011-11-300642012-11-30AA92011 2012-01-205415
0000000000000002012-01-26-11.33.34.2164620101254.02 OK0702012-02-080642013-02-08AA92012 12
0000000000000002012-01-16-20.54.01.9094140102801.05 OK0702012-02-150642013-02-15AA92012 12
0000000000000002012-01-12-04.36.37.6383160101461.38 OK0702012-01-120642013-01-12AA92012 12
0000000000000002012-01-05-20.37.53.4056240101113.63 OK0702012-01-280642013-01-28AA92012 12
0000000000000002012-01-04-04.44.18.0549530101324.41 OK0702012-01-310642013-01-31AA92012 12
0000000000000002012-01-06-15.35.03.050411010988.65 OK0702012-01-060642013-01-06AA92012 12
0000000000000002012-01-09-00.40.18.9816890101300.19 OK0702012-01-100642013-01-10AA92012 12
0000000000000002012-01-20-20.22.59.4540470101182.41 OK0702012-01-210642013-01-21AA92012 12
0000000000000002012-01-27-04.49.26.3122900101217.68 OK0702012-01-270642013-01-27AA92012 12
0000000000000002012-01-19-04.48.37.3889930101370.63 OK0702012-01-260642013-01-26AA92012 12
0000000000000002012-01-26-20.54.26.6090220101241.69 OK0702012-01-200642013-01-20AA92012 12
0000000000000002012-01-23-15.34.45.048094010802.67 OK0702012-02-270642013-02-27AA92012 12
0000000000000002012-01-26-04.46.38.4785130101603.70 OK0702012-02-280642013-02-28AA92012 12
0000000000000002012-01-03-20.55.39.7012060102469.22 OK0702012-01-020642013-01-02AA92012 12
0000000000000002012-01-24-04.56.03.3966020101738.01 OK0702012-01-230642013-01-23AA92012 12
0000000000000002012-01-26-20.57.41.242538010981.55 OK0702012-01-270642013-01-27AA92012 12
0000000000000002012-01-20-11.41.41.3151940101159.69 OK0702012-02-230642013-02-23AA92012 12
0000000000000002012-01-11-11.39.28.8559960103575.61 OK0702012-01-100642013-01-10AA92012 12
0000000000000002012-01-26-11.42.58.8454010103010.68 OK0702012-01-270642013-01-27AA92012 12
0000000000000002012-01-26-11.44.42.2366660101635.43 OK0702012-02-010642013-02-01AA92012 12
0000000000000002012-01-11-04.52.09.6827050101527.51 OK0702012-01-110642013-01-11AA92012 12
0000000000000002012-01-17-04.53.50.4274590101553.07 OK0702012-02-250642013-02-25AA92012 12
0000000000000002012-01-30-21.12.53.6970620101348.20 OK0702012-01-270642013-01-27AA92012 12
0000000000000002012-01-25-05.05.17.9349520101220.78 OK0702012-02-020642013-02-02AA92012 12
0000000000000002012-01-18-05.04.17.079799010978.35 OK0702012-02-080642013-02-08AA92012 12
0000000000000002012-01-26-15.38.05.676423304807.37 OK0702011-12-150642012-12-15AA92011 12
0000000000000002012-01-19-21.08.00.913465004-807.37 OK0702011-12-150642012-12-15AA92011 2012-02-045415
0000000000000002012-01-17-11.51.10.0805090101232.98 OK0702012-01-200642013-01-20AA92012 12
0000000000000002012-01-25-15.37.10.8367810101272.48 OK0702012-01-240642013-01-24AA92012 12
0000000000000002012-01-16-21.20.08.648938004-1417.62 OK0702011-12-160642012-12-16AA92011 2012-01-177915
0000000000000002012-01-05-20.57.20.601713004-2501.95 OK0702011-11-050642012-11-05AA92011 2012-01-066115
0000000000000002012-01-20-05.11.56.9745540101583.01 OK0702012-02-100642013-02-10AA92012 12
0000000000000002012-01-17-11.52.58.6979280101261.85 OK0702012-01-140642013-01-14AA92012 12
0000000000000002012-01-06-05.36.34.7969330102076.12 OK0702012-01-170642013-01-17AA92012 12
0000000000000002012-01-05-20.59.01.8593680101835.03 OK0702012-01-130642013-01-13AA92012 12
0000000000000002012-01-25-21.38.57.527785004-1398.53 OK0702012-03-010642013-03-01AA92012 2012-03-015015
0000000000000002012-01-25-21.38.56.7321710101398.53 OK0702012-03-010642013-03-01AA92012 12
0000000000000002012-01-31-05.11.44.7877690101586.69 OK0702012-01-310642013-01-31AA92012 12
0000000000000002012-01-18-11.45.43.650660010887.00 OK0702012-01-190642013-01-19AA92012 12
0000000000000002012-01-26-21.08.34.6749280101022.28 OK0702012-02-280642013-02-28AA92012 12
0000000000000002012-01-18-21.29.28.6898040101063.98 OK0702012-01-190642013-01-19AA92012 12
0000000000000002012-01-25-21.45.14.2235560102295.46 OK0702012-01-310642013-01-31AA92012 12
0000000000000002012-01-06-20.53.12.5496660102067.74 OK0702012-01-070642013-01-07AA92012 12
0000000000000002012-01-25-21.45.50.5535080101447.29 OK0702012-01-250642013-01-25AA92012 12
0000000000000002012-01-23-21.14.27.5608960101078.63 OK0702012-01-200642013-01-20AA92012 12
0000000000000002012-01-16-21.28.03.4800370101283.21 OK0702012-01-230642013-01-23AA92012 12
0000000000000002012-01-19-21.17.15.8340640101002.46 OK0702012-02-060642013-02-06AA92012 12
0000000000000002012-01-06-15.47.06.6419140101994.81 OK0702012-01-290642013-01-29AA92012 12
0000000000000002012-01-20-05.23.48.4771640101236.56 OK0702012-01-230642013-01-23AA92012 12
0000000000000002012-01-17-11.58.40.8573503042795.11 OK0702011-12-280642012-12-28AA92011 12
0000000000000002012-01-13-09.01.25.581959010836.01 OK0702012-01-110642013-01-11AA92012 12

Input file (CODEFILE):

Select all

00 malesuada fringilla est. Mauris eu turpis. Nulla aliquet. Proin vel
01 posuere cubilia Curae; Donec tincidunt. Donec vitae erat vel pede
02 venenatis vel, faucibus id, libero. Donec consectetuer mauris id sa
03 dictum ultricies ligula. Nullam enim. Sed nulla ante, iaculis nec,
04 ac libero nec ligula consectetuer rhoncus. Nullam velit dui, semper
05 arcu eu odio tristique pharetra. Quisque ac libero nec ligula
06 Aliquam erat volutpat. Nulla facilisis. Suspendisse commodo tincidu
07 sed tortor. Integer aliquam adipiscing lacus. Ut nec urna et
08 ullamcorper. Duis cursus, diam at pretium aliquet, metus urna conva
09 porttitor scelerisque neque. Nullam nisl. Maecenas malesuada fringi
10 erat nonummy ultricies ornare, elit elit fermentum risus, at fringi
11 sem mollis dui, in sodales elit erat vitae risus. Duis
12 eros. Nam consequat dolor vitae dolor. Donec fringilla. Donec feugi
13 sapien molestie orci tincidunt adipiscing. Mauris molestie pharetra
14 metus facilisis lorem tristique aliquet. Phasellus fermentum conval
15 in faucibus orci luctus et ultrices posuere cubilia Curae; Phasellu
16 felis eget varius ultrices, mauris ipsum porta elit, a feugiat
17 nonummy ut, molestie in, tempus eu, ligula. Aenean euismod mauris
18 lacus. Quisque imperdiet, erat nonummy ultricies ornare, elit elit
19 per inceptos hymenaeos. Mauris ut quam vel sapien imperdiet ornare.
20 metus vitae velit egestas lacinia. Sed congue, elit sed consequat
21 malesuada fringilla est. Mauris eu turpis. Nulla aliquet. Proin velit
22 posuere cubilia Curae; Donec tincidunt. Donec vitae erat vel pede
23 venenatis vel, faucibus id, libero. Donec consectetuer mauris id sapi
24 dictum ultricies ligula. Nullam enim. Sed nulla ante, iaculis nec,
25 ac libero nec ligula consectetuer rhoncus. Nullam velit dui, semper
26 arcu eu odio tristique pharetra. Quisque ac libero nec ligula
27 Aliquam erat volutpat. Nulla facilisis. Suspendisse commodo tincidunt
28 sed tortor. Integer aliquam adipiscing lacus. Ut nec urna et
29 ullamcorper. Duis cursus, diam at pretium aliquet, metus urna convall
30 porttitor scelerisque neque. Nullam nisl. Maecenas malesuada fringill
31 erat nonummy ultricies ornare, elit elit fermentum risus, at fringill
32 sem mollis dui, in sodales elit erat vitae risus. Duis
33 eros. Nam consequat dolor vitae dolor. Donec fringilla. Donec feugiat
34 sapien molestie orci tincidunt adipiscing. Mauris molestie pharetra n
35 metus facilisis lorem tristique aliquet. Phasellus fermentum convalli
36 in faucibus orci luctus et ultrices posuere cubilia Curae; Phasellus
37 felis eget varius ultrices, mauris ipsum porta elit, a feugiat
38 nonummy ut, molestie in, tempus eu, ligula. Aenean euismod mauris
39 lacus. Quisque imperdiet, erat nonummy ultricies ornare, elit elit fe
40 per inceptos hymenaeos. Mauris ut quam vel sapien imperdiet ornare.
41 malesuada fringilla est. Mauris eu turpis. Nulla aliquet. Proin velit
42 posuere cubilia Curae; Donec tincidunt. Donec vitae erat vel pede
43 venenatis vel, faucibus id, libero. Donec consectetuer mauris id sapi
44 dictum ultricies ligula. Nullam enim. Sed nulla ante, iaculis nec,
45 ac libero nec ligula consectetuer rhoncus. Nullam velit dui, semper
46 arcu eu odio tristique pharetra. Quisque ac libero nec ligula
47 Aliquam erat volutpat. Nulla facilisis. Suspendisse commodo tincidunt
48 sed tortor. Integer aliquam adipiscing lacus. Ut nec urna et
49 ullamcorper. Duis cursus, diam at pretium aliquet, metus urna convall
50 porttitor scelerisque neque. Nullam nisl. Maecenas malesuada fringill
51 erat nonummy ultricies ornare, elit elit fermentum risus, at fringill
52 sem mollis dui, in sodales elit erat vitae risus. Duis
53 eros. Nam consequat dolor vitae dolor. Donec fringilla. Donec feugiat
54 sapien molestie orci tincidunt adipiscing. Mauris molestie pharetra n
55 metus facilisis lorem tristique aliquet. Phasellus fermentum convalli
56 in faucibus orci luctus et ultrices posuere cubilia Curae; Phasellus
57 felis eget varius ultrices, mauris ipsum porta elit, a feugiat
58 nonummy ut, molestie in, tempus eu, ligula. Aenean euismod mauris
59 lacus. Quisque imperdiet, erat nonummy ultricies ornare, elit elit fe
60 per inceptos hymenaeos. Mauris ut quam vel sapien imperdiet ornare.
61 metus vitae velit egestas lacinia. Sed congue, elit sed consequat
62 malesuada fringilla est. Mauris eu turpis. Nulla aliquet. Proin velit
63 posuere cubilia Curae; Donec tincidunt. Donec vitae erat vel pede
64 venenatis vel, faucibus id, libero. Donec consectetuer mauris id sapi
65 dictum ultricies ligula. Nullam enim. Sed nulla ante, iaculis nec,
66 ac libero nec ligula consectetuer rhoncus. Nullam velit dui, semper
67 arcu eu odio tristique pharetra. Quisque ac libero nec ligula
68 Aliquam erat volutpat. Nulla facilisis. Suspendisse commodo tincidunt
69 sed tortor. Integer aliquam adipiscing lacus. Ut nec urna et
70 ullamcorper. Duis cursus, diam at pretium aliquet, metus urna convall
71 porttitor scelerisque neque. Nullam nisl. Maecenas malesuada fringill
72 erat nonummy ultricies ornare, elit elit fermentum risus, at fringill
73 sem mollis dui, in sodales elit erat vitae risus. Duised
74 eros. Nam consequat dolor vitae dolor. Donec fringilla. Donec feugiat
75 sapien molestie orci tincidunt adipiscing. Mauris molestie pharetra n
76 metus facilisis lorem tristique aliquet. Phasellus fermentum convalli
77 in faucibus orci luctus et ultrices posuere cubilia Curae; Phasellus
78 felis eget varius ultrices, mauris ipsum porta elit, a feugiat
79 nonummy ut, molestie in, tempus eu, ligula. Aenean euismod mauris
80 lacus. Quisque imperdiet, erat nonummy ultricies ornare, elit elit fe
81 per inceptos hymenaeos. Mauris ut quam vel sapien imperdiet ornare.
83 malesuada fringilla est. Mauris eu turpis. Nulla aliquet. Proin velit
84 posuere cubilia Curae; Donec tincidunt. Donec vitae erat vel pede
85 venenatis vel, faucibus id, libero. Donec consectetuer mauris id sapi
86 dictum ultricies ligula. Nullam enim. Sed nulla ante, iaculis nec,
87 ac libero nec ligula consectetuer rhoncus. Nullam velit dui, semper
88 arcu eu odio tristique pharetra. Quisque ac libero nec ligula
89 Aliquam erat volutpat. Nulla facilisis. Suspendisse commodo tincidunt
90 sed tortor. Integer aliquam adipiscing lacus. Ut nec urna et
91 ullamcorper. Duis cursus, diam at pretium aliquet, metus urna convall
92 porttitor scelerisque neque. Nullam nisl. Maecenas malesuada fringill
93 erat nonummy ultricies ornare, elit elit fermentum risus, at fringill
94 sem mollis dui, in sodales elit erat vitae risus. Duis
95 eros. Nam consequat dolor vitae dolor. Donec fringilla. Donec feugiat
96 sapien molestie orci tincidunt adipiscing. Mauris molestie pharetra n
97 metus facilisis lorem tristique aliquet. Phasellus fermentum convalli
98 in faucibus orci luctus et ultrices posuere cubilia Curae; Phasellus
99 felis eget varius ultrices, mauris ipsum porta elit, a feugiat Agent

Complete DFSMSG:

Select all

1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE805I 0 JOBNAME: useridxZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE280I 1 ORIGINAL STATEMENTS FROM SRTFCNTL FOLLOW
JOINKEYS F1=RAWDATA,FIELDS=(106,2,A)
JOINKEYS F2=CODEFILE,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=SORTOUT,
BUILD=(1,15,
DELIM,16,26,
DELIM,42,3,
DELIM,45,12,
DELIM,57,2,
DELIM,59,3,
DELIM,62,10,
DELIM,72,3,
DELIM,75,10,
DELIM,85,1,
DELIM,86,2,
DELIM,88,8,
DELIM,96,10,
DELIM,106,2,
DELIM,108,1,
DELIM,109,1,
DELIM,110,100,
25X) $ PADDING TO 250
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRTF,SORTIN=RAWDAT*
A,DYNALLOC
SORT FIELDS=COPY
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR RAWDATA - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR CODEFILE - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=209
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE858I 0 LA=198104, DA=20856, AA=177248, BA=1004, CP=2, TA=1054
ICE859I 0 LB=3696, DB=6095, AB=924, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=2048
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:50 ON TUE JAN 31, 2012 -
0 JOINKEYS F1=RAWDATA,FIELDS=(106,2,A)
JOINKEYS F2=CODEFILE,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=SORTOUT,BUILD=(1,15,C';',16,26,C';',42,3,C';',45,12,C';'*
,57,2,C';',59,3,C';',62,10,C';',72,3,C';',75,10,C';',85,*
1,C';',86,2,C';',88,8,C';',96,10,C';',106,2,C';',108,1,C*
';',109,1,C';',110,100,25X)
ICE146I 0 END OF STATEMENTS FROM SRTFCNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=SRTF,SORTIN=RAWDAT*
1 A,DYNALLOC
SORT FIELDS=COPY
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR RAWDATA - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR CODEFILE - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=209
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE858I 0 LA=198104, DA=20856, AA=177248, BA=1004, CP=2, TA=1054
ICE859I 0 LB=3696, DB=6095, AB=924, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=2048
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE089I 0 useridxZ.SORTREPT. , INPUT LRECL = 209, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20871152,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 1079296
ICE855I 0 SORTOUT : TX=N, R=J, L=J, B=J, BL=0, BR=0, DCT=200, VS=N, RU=X, SB=8
ICE210I 0 SORTOUT : EXCP USED, LRECL = 250, BLKSIZE = 2500, TYPE = FB
ICE751I 1 EF-BASE CB-K64632 F0-K62422 E8-K70685
ICE421I 0 JOINED RECORDS: COUNT=58
ICE055I 0 INSERT 58, DELETE 0
ICE054I 0 RECORDS - IN: 0, OUT: 58
ICE227I 0 SORTOUT : DELETED = 0, REPORT = 0, DATA = 58
ICE228I 0 SORTOUT : TOTAL IN = 58, TOTAL OUT = 58
ICE804I 5 OUTFIL EXCP COUNT: 1
ICE891I 1 20918864 WMAIN, 9648 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 209 RIN 0 BLI 0 BLO 210 RUN 0 BUN 2097 CPU 00 CVC
ICE052I 0 END OF DFSORT
1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE805I 0 JOBNAME: useridxZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH,*
A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
RECORD LENGTH=(,,00029)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:50 ON TUE JAN 31, 2012 -
0 DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=SORTOUT,DYNALLOC,S*
ZERO,LOCALE=NONE,NOCHECK
INREC FIELDS=(1,4,44,3,64,3,79,3,61,2,17,4,22,2,7Z,X'1C')
SUM FIELDS=(0022,8,PD)
SORT FIELDS=(0005,3,CH,A,0008,3,CH,A,0011,3,CH,A,0014,2,CH,A,0016,4,CH*
,A,0020,2,CH,A)
MODS E35=(ICE35DU,12288)
RECORD LENGTH=(,,00029)
ICE136I 0 SPACE FOR SORTWK01 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK02 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK03 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK04 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK05 WAS READJUSTED TO CYLINDERS
ICE136I 0 SPACE FOR SORTWK06 WAS READJUSTED TO CYLINDERS
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 1 useridxZ.SORTREPT. , INPUT LRECL = 250, BLKSIZE = 2500, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20887536,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE750I 0 DC 15000 TC 0 CS DSVNN KSZ 17 VSZ 17
ICE887I 0 CSES 0,0,0 ES 0,0,0
1ICE886I 0 SYS 0 TSTG 0 FS 0 INIT 0 MAX 0 LEN 0
ICE752I 0 FSZ=60 RC IGN=0 E AVG=32 0 WSP=2 C DYN=0 0
ICE915I 0 MOFSZ=1,MOSZ=0,MOSYS=3889(2),MOSTG=4585,MEML=3889(1)
ICE916I 0 MOFR=0402,MOVR=VV
ICE996I 0 ESM=2310656,ESO=2310656,ESR=0,ESP=4096,ESS=16384,CES=2310656,HSZ=1048576
ICE997I 0 HWSP=0,HMAX=0,HES=995584,ASV=1173996,EQ=I1,HN=1
ICE898I 0 OMAX=377639,NMAX=1173996,ENQT=1173996,CMAX=256,HU=99,BUN=61408,MD=N1,M ,DU=0,DR=10000,HN=1
ICE880I 0 QP=1 QA=1 HI=287 LI=287 MI=287 TZ=2540 N1=0 N2=0 SZ=2 HN=1
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE902I 0 O I PP11
ICE751I 1 DE-K61787 D5-K58148 D9-K61787 E8-K70685
ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=1,SRC=8,VEM=0
ICE091I 0 OUTPUT LRECL = 29, TYPE = F
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 13
ICE054I 0 RECORDS - IN: 8, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 2000
ICE253I 0 RECORDS SORTED - PROCESSED: 8, EXPECTED: 60
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE891I 1 20916792 WMAIN, 11720 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 250 RIN 2500 BLI 0 BLO 32 RUN 61408 BUN 2097 CPU 00 CVC
ICE893I 1 200 XIN 64 WIN 122849 GIN NDEN PFP B00 CM000 CIX UPTS LMD VS RUX
ICE894I 0 1 STR 0 MOR 0 IPB 0 OPB 0 CYL I MN
ICE881I 0 EQ=I1 DX=0 D2=0 D3=1 D4=0 AS=0 SA=0 SB=0 SC=0 HN=1
ICE885I 0 DAT 00 DSR 0304 BINS 0 BSZ 0 RCP 0 AJC 0 RLC 0 DUNIT 0
ICE895I 0 995 MUNIT 42 SUNIT 31 OUNIT
ICE896I 0 0 SET 0 DEXTOT 0 BLK 60 CSZ 0 WE
ICE804I 1 SORTWK06 EXCP COUNT: 0
ICE804I 1 SORTWK05 EXCP COUNT: 0
ICE804I 1 SORTWK04 EXCP COUNT: 0
ICE804I 1 SORTWK03 EXCP COUNT: 0
ICE804I 1 SORTWK02 EXCP COUNT: 0
ICE804I 1 SORTWK01 EXCP COUNT: 0
ICE804I 1 SORTOUT EXCP COUNT: 1
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1
ICE052I 0 END OF DFSORT

Complete JNF1JMSG

Select all

1ICE805I 0 JOBNAME: useridxZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE270I 0 PROCESSING SYMNAMES STATEMENTS
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
SORT FORMAT=BI,FIELDS=(106,2,A)
RECORD TYPE=F
DEBUG NOABEND,ESTAE
OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF1,MSG*
DDN=JNF1JMSG,SORTIN=RAWDATA
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K70685 E6-K58148 E7-K70685
ICE417I 0 THIS IS THE JOINKEYS F1 SUBTASK FOR RAWDATA
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:50 ON TUE JAN 31, 2012 -
0 SORT FORMAT=BI,FIELDS=(106,2,A)
RECORD TYPE=F
DEBUG NOABEND,ESTAE
OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF1,MSG*
DDN=JNF1JMSG,SORTIN=RAWDATA
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K70685 E6-K58148 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 1 useridxZ.SORTREPT. , INPUT LRECL = 135, BLKSIZE = 1350, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20871152,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=JNF1JMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA ,032),ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR RAWDATA
ICE750I 0 DC 8100 TC 0 CS DSVVV KSZ 6 VSZ 6
ICE887I 0 CSES 0,0,0 ES 0,0,0
ICE886I 0 SYS 0 TSTG 0 FS 0 INIT 0 MAX 0 LEN 0
ICE752I 0 FSZ=60 RC IGN=0 E AVG=140 0 WSP=11 C DYN=0 0
ICE915I 0 MOFSZ=1,MOSZ=0,MOSYS=3889(2),MOSTG=4585,MEML=3889(1)
ICE916I 0 MOFR=0402,MOVR=VV
ICE996I 0 ESM=2310656,ESO=2310656,ESR=0,ESP=4096,ESS=16384,CES=2310656,HSZ=1048576
ICE997I 0 HWSP=3,HMAX=0,HES=995584,ASV=1173854,EQ=I1,HN=1
ICE898I 0 OMAX=378309,NMAX=1173854,ENQT=1173854,CMAX=256,HU=99,BUN=61408,MD=N1,M ,DU=0,DR=10000,HN=1
ICE880I 0 QP=1 QA=1 HI=287 LI=287 MI=287 TZ=2398 N1=3 N2=3 SZ=2 HN=1
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE902I 0 O I PP11
ICE751I 1 DE-K61787 D5-K58148 D9-K61787 E8-K70685
ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=1,SRC=8,VEM=0
ICE999I 0 PWK=0 PSP=0 SWK=0 SSP=0 TWK=0 TSP=0 RWK=0 RSP=0 AWK=0 AWP=0
ICE091I 0 OUTPUT LRECL = 135, TYPE = F
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 58
ICE054I 0 RECORDS - IN: 58, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 7830
ICE253I 0 RECORDS SORTED - PROCESSED: 58, EXPECTED: 60
1ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE891I 1 20916696 WMAIN, 11816 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 135 RIN 1350 BLI 0 BLO 140 RUN 61408 BUN 2097 CPU 00 CVC
ICE893I 1 200 XIN 64 WIN 28131 GIN NDEN PFP4 B00 CM000 CIX UPTS LMD VS RUX
ICE894I 0 1 STR 0 MOR 0 IPB 0 OPB 0 CYL I MN
ICE881I 0 EQ=I1 DX=0 D2=0 D3=1 D4=0 AS=0 SA=0 SB=0 SC=0 HN=1
ICE885I 0 DAT 00 DSR 0007 BINS 0 BSZ 0 RCP 0 AJC 0 RLC 0 DUNIT 0
ICE895I 0 269 MUNIT 42 SUNIT 31 OUNIT
ICE896I 0 0 SET 0 DEXTOT 0 BLK 60 CSZ 0 WE
ICE804I 1 JNF2WK23 EXCP COUNT: 0
ICE804I 1 JNF2WK22 EXCP COUNT: 0
ICE804I 1 JNF2WK21 EXCP COUNT: 0
ICE804I 1 JNF2WK20 EXCP COUNT: 0
ICE804I 1 JNF2WK1F EXCP COUNT: 0
ICE804I 1 JNF2WK1E EXCP COUNT: 0
ICE804I 1 JNF2WK1D EXCP COUNT: 0
ICE804I 1 JNF2WK1C EXCP COUNT: 0
ICE804I 1 JNF2WK1B EXCP COUNT: 0
ICE804I 1 JNF2WK1A EXCP COUNT: 0
ICE804I 1 JNF2WK19 EXCP COUNT: 0
ICE804I 1 JNF2WK18 EXCP COUNT: 0
ICE804I 1 JNF2WK17 EXCP COUNT: 0
ICE804I 1 JNF2WK16 EXCP COUNT: 0
ICE804I 1 JNF2WK15 EXCP COUNT: 0
ICE804I 1 JNF2WK14 EXCP COUNT: 0
ICE804I 1 JNF2WK13 EXCP COUNT: 0
ICE804I 1 JNF2WK12 EXCP COUNT: 0
ICE804I 1 JNF2WK11 EXCP COUNT: 0
ICE804I 1 JNF2WK10 EXCP COUNT: 0
ICE804I 1 JNF2WK0F EXCP COUNT: 0
ICE804I 1 JNF2WK0E EXCP COUNT: 0
ICE804I 1 JNF2WK0D EXCP COUNT: 0
ICE804I 1 JNF2WK0C EXCP COUNT: 0
ICE804I 1 JNF2WK0B EXCP COUNT: 0
ICE804I 1 JNF2WK0A EXCP COUNT: 0
ICE804I 1 JNF2WK09 EXCP COUNT: 0
ICE804I 1 JNF2WK08 EXCP COUNT: 0
ICE804I 1 JNF2WK07 EXCP COUNT: 0
ICE804I 1 JNF2WK06 EXCP COUNT: 0
ICE804I 1 JNF2WK05 EXCP COUNT: 0
ICE804I 1 JNF2WK04 EXCP COUNT: 0
ICE804I 1 JNF2WK03 EXCP COUNT: 0
ICE804I 1 JNF2WK02 EXCP COUNT: 0
ICE804I 1 JNF2WK01 EXCP COUNT: 0
ICE804I 1 RAWDATA EXCP COUNT: 1
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1
ICE052I 0 END OF DFSORT

Complete JNF2JMSG

Select all

1ICE805I 0 JOBNAME: useridxZ , STEPNAME: SORTREPT
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE270I 0 PROCESSING SYMNAMES STATEMENTS
ICE280I 2 ORIGINAL STATEMENTS FROM PARMLIST FOLLOW
SORT FORMAT=BI,FIELDS=(5,2,A)
RECORD TYPE=F
DEBUG NOABEND,ESTAE
OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*
DDN=JNF2JMSG,SORTIN=CODEFILE
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE992I 0 RA 31 WR 0 TR 34
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E6-K58148 C4-K58148 E7-K70685
ICE417I 0 THIS IS THE JOINKEYS F2 SUBTASK FOR CODEFILE
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:50 ON TUE JAN 31, 2012 -
0 SORT FORMAT=BI,FIELDS=(5,2,A)
RECORD TYPE=F
DEBUG NOABEND,ESTAE
OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*
DDN=JNF2JMSG,SORTIN=CODEFILE
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE992I 0 RA 31 WR 0 TR 34
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K70685 E6-K58148 C4-K58148 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE088I 0 useridxZ.SORTREPT. , INPUT LRECL = 256, BLKSIZE = 27998, TYPE = VB
ICE093I 0 MAIN STORAGE = (MAX,20971520,20971520)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20871152,20871152)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20971520,MAXLIM=6291456,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=JNF2JMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA ,032),ABCODE=016
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=20971520,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=Y,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=W,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR CODEFILE
ICE750I 0 DC 27994 TC 0 CS DSVRR KSZ 6 VSZ 6
ICE752I 0 FSZ=27994 BC IGN=0 E AVG=132 0 WSP=38 C DYN=2 53216
ICE915I 0 MOFSZ=0,MOSZ=0,MOSYS=3888(2),MOSTG=4582,MEML=3888(1)
ICE916I 0 MOFR=0702,MOVR=RR
ICE996I 0 ESM=2310656,ESO=2310656,ESR=0,ESP=4096,ESS=16384,CES=2310656,HSZ=1048576
ICE997I 0 HWSP=10,HMAX=0,HES=995328,ASV=1173075,EQ=I2,HN=1
ICE898I 0 OMAX=377507,NMAX=1173075,ENQT=1171456,CMAX=256,HU=96,BUN=53216,MD=N1,M8,DU=90,DR=0,HN=1
ICE880I 0 QP=1 QA=2 HI=286 LI=286 MI=287 TZ=4096 N1=2 N2=10 SZ=2 HN=1
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE901I 0 W 05PP17 02PP13 03PP13 04PP13 01PP13 06PP13 07PP13 08PP13
ICE901I 0 W 09PP13 0APP13 0BPP13 0CPP13 0DPP13 0EPP13 0FPP13 10PP13
ICE901I 0 W 11PP13 12PP13 13PP13 14PP13 15PP13 16PP13 17PP13 18PP13
ICE901I 0 W 19PP13 1APP13 1BPP13 1CPP13 1DPP13 1EPP13 1FPP13 20PP13
ICE901I 0 W 21PP13 22PP13 23PP13
ICE902I 0 O I PP10
ICE751I 1 D8-K58148 D4-K59452 D1-K58148 E8-K70685
ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=0,SRC=0,VEM=0
ICE999I 0 PWK=1 PSP=2 SWK=0 SSP=0 TWK=0 TSP=0 RWK=0 RSP=0 AWK=1 AWP=2
ICE091I 0 OUTPUT LRECL = 256, TYPE = V
1ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 99
ICE054I 0 RECORDS - IN: 99, OUT: 0
ICE134I 0 NUMBER OF BYTES SORTED: 7299
ICE253I 0 RECORDS SORTED - PROCESSED: 99, EXPECTED: 218
ICE098I 0 AVERAGE RECORD LENGTH - PROCESSED: 73, EXPECTED: 128
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 15 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE891I 1 20916768 WMAIN, 11744 CMAIN, MAX CALLOC, N SCN, B BA, 8 AZ, 0 BZ, NN QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 256 RIN 27998 BLI 27998 BLO 258 RUN 53216 BUN 2097 CPU 00 CVC
ICE893I 1 9 XIN 5 WIN 9587 GIN NDEY PFP B00 CM000 CIX UPTH LMD VS RUX
ICE894I 0 0 STR 0 MOR 0 IPB 9 OPB 0 CYL I MN
ICE881I 0 EQ=I2 DX=0 D2=0 D3=1 D4=0 AS=0 SA=0 SB=0 SC=0 HN=1
ICE896I 0 0 SET 0 DEXTOT 0 BLK 27994 CSZ 33 WE
ICE804I 1 JNF2WK23 EXCP COUNT: 0
ICE804I 1 JNF2WK22 EXCP COUNT: 0
ICE804I 1 JNF2WK21 EXCP COUNT: 0
ICE804I 1 JNF2WK20 EXCP COUNT: 1
ICE804I 1 JNF2WK1F EXCP COUNT: 1
ICE804I 1 JNF2WK1E EXCP COUNT: 1
ICE804I 1 JNF2WK1D EXCP COUNT: 1
ICE804I 1 JNF2WK1C EXCP COUNT: 1
ICE804I 1 JNF2WK1B EXCP COUNT: 1
ICE804I 1 JNF2WK1A EXCP COUNT: 1
ICE804I 1 JNF2WK19 EXCP COUNT: 1
ICE804I 1 JNF2WK18 EXCP COUNT: 1
ICE804I 1 JNF2WK17 EXCP COUNT: 1
ICE804I 1 JNF2WK16 EXCP COUNT: 1
ICE804I 1 JNF2WK15 EXCP COUNT: 1
ICE804I 1 JNF2WK14 EXCP COUNT: 1
ICE804I 1 JNF2WK13 EXCP COUNT: 1
ICE804I 1 JNF2WK12 EXCP COUNT: 1
ICE804I 1 JNF2WK11 EXCP COUNT: 1
ICE804I 1 JNF2WK10 EXCP COUNT: 1
ICE804I 1 JNF2WK0F EXCP COUNT: 1
ICE804I 1 JNF2WK0E EXCP COUNT: 1
ICE804I 1 JNF2WK0D EXCP COUNT: 1
ICE804I 1 JNF2WK0C EXCP COUNT: 1
ICE804I 1 JNF2WK0B EXCP COUNT: 1
ICE804I 1 JNF2WK0A EXCP COUNT: 1
ICE804I 1 JNF2WK09 EXCP COUNT: 1
ICE804I 1 JNF2WK08 EXCP COUNT: 1
ICE804I 1 JNF2WK07 EXCP COUNT: 1
ICE804I 1 JNF2WK06 EXCP COUNT: 1
ICE804I 1 JNF2WK05 EXCP COUNT: 2
ICE804I 1 JNF2WK04 EXCP COUNT: 1
ICE804I 1 JNF2WK03 EXCP COUNT: 1
ICE804I 1 JNF2WK02 EXCP COUNT: 1
ICE804I 1 JNF2WK01 EXCP COUNT: 1
ICE804I 1 CODEFILE EXCP COUNT: 1
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1
ICE052I 0 END OF DFSORT

Complete TOOLMSG

Select all

1ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED

ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN

ICE270I 1 PROCESSING SYMNAMES STATEMENTS

ICE281I 0 ORIGINAL OPERATOR STATEMENTS FOLLOW
COPY FROM(RAWDATA) USING(SRTF)
OCCURS FROM(SORTOUT) LIST(REPFILE) -
HEADER('AAAAAAA') -
HEADER('BBBB') -
HEADER('CCCCCCC') -
HEADER('DDDDD') -
HEADER('EEEE') -
HEADER('FFFFF') -
HEADER('COUNT') -
ON(44,3,CH) -
ON(64,3,CH) -
ON(79,3,CH) -
ON(61,2,CH) -
ON(17,4,CH) -
ON(22,2,CH) -
ON(VALCNT) BLANK

ICE282I 1 PERFORMING SYMBOL SUBSTITUTION AS NEEDED

ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(RAWDATA) USING(SRTF)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM RAWDATA TO OUTFIL USING SRTFCNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE: 00

OCCURS FROM(SORTOUT) LIST(REPFILE)-
HEADER('AAAAAAA')-
HEADER('BBBB')-
HEADER('CCCCCCC')-
HEADER('DDDDD')-
HEADER('EEEE')-
HEADER('FFFFF')-
HEADER('COUNT')-
ON(44,3,CH)-
ON(64,3,CH)-
ON(79,3,CH)-
ON(61,2,CH)-
ON(17,4,CH)-
ON(22,2,CH)-
ON(VALCNT) BLANK
ICE643I 0 WIDTH OF REPORT IS 0121 BYTES
ICE627I 0 DFSORT CALL 0002 FOR SORT FROM SORTOUT TO E35 EXIT COMPLETED
ICE603I 0 INFORMATION PRINTED IN REPFILE DATA SET
ICE628I 0 RECORD COUNT: 000000000000013
ICE638I 0 NUMBER OF RECORDS RESULTING FROM CRITERIA: 000000000000007
ICE602I 0 OPERATION RETURN CODE: 00

ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 00

And this is the output from the OCCURS:

Select all

AAAAAAA BBBB CCCCCCC DDDDD EEEE FFFFF COUNT
------- ---- ------- ----- ---- ----- ---------------
004 070 064 OK 2012 01 7
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1
010 070 064 OK 2012 01 1

by **Frank Yaeger** » Wed Feb 01, 2012 6:49 am

Ok, I see the problem. It's the use of the SORTOUT ddname for the intermediate file. DFSORT/ICETOOL uses SORTOUT as a special ddname, so the use of SORTOUT for the intermediate file messes things up. The DFSORT APG has a warning about this.

If you use a different ddname, like T1 instead of SORTOUT, you'll get the correct result.

Here's a revised job that should give the correct output (it did for me):

Select all

//*********************************************************************
// SET RAWDATA=&SYSUID..EXTRACT.RAWDATA
// SET DETAIL=&SYSUID..EXTRACT.DETAIL
// SET REPORT=&SYSUID..EXTRACT.REPORT
// SET CODEFILE=&SYSUID..LOOKUP.CODE.FILE
//*********************************************************************
//TIDYUP EXEC PGM=IEFBR14
//DD DD DISP=(MOD,DELETE),DSN=&DETAIL
// DD DISP=(MOD,DELETE),DSN=&REPORT
//**********************************************************************
//SORTREPT EXEC PGM=ICETOOL
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//RAWDATA DD DISP=SHR,DSN=&RAWDATA
//CODEFILE DD DISP=SHR,DSN=&CODEFILE
//T1 DD DSN=&SYSUID..EXTRACT.DETAIL,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=250,BLKSIZE=2500
//REPFILE DD DSN=&SYSUID..EXTRACT.REPORT,
// UNIT=DISK,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE),
// RECFM=FB,LRECL=120,BLKSIZE=1200
//SORTWK01 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK02 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK03 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK04 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK05 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//SORTWK06 DD UNIT=SYSDA,SPACE=(27000,(428,1600))
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//SORTDIAG DD SYSOUT=*
//SYMNAMES DD *
DELIM,C';'
//TOOLIN DD *
COPY JKFROM USING(SRTF)
OCCURS FROM(T1) LIST(REPFILE) -
HEADER('AAAAAAA') -
HEADER('BBBB') -
HEADER('CCCCCCC') -
HEADER('DDDDD') -
HEADER('EEEE') -
HEADER('FFFFF') -
HEADER('COUNT') -
ON(44,3,CH) -
ON(64,3,CH) -
ON(79,3,CH) -
ON(61,2,CH) -
ON(17,4,CH) -
ON(22,2,CH) -
ON(VALCNT) BLANK
//SRTFCNTL DD *
JOINKEYS F1=RAWDATA,FIELDS=(106,2,A)
JOINKEYS F2=CODEFILE,FIELDS=(005,2,A)
REFORMAT FIELDS=(F1:1,109,F2:9,100)
JOIN UNPAIRED,F1
OPTION COPY
OUTFIL FNAMES=T1,
BUILD=(1,15,
DELIM,16,26,
DELIM,42,3,
DELIM,45,12,
DELIM,57,2,
DELIM,59,3,
DELIM,62,10,
DELIM,72,3,
DELIM,75,10,
DELIM,85,1,
DELIM,86,2,
DELIM,88,8,
DELIM,96,10,
DELIM,106,2,
DELIM,108,1,
DELIM,109,1,
DELIM,110,100,
25X) $ PADDING TO 250
/*

by **Nuadha** » Wed Feb 01, 2012 10:37 pm

Thanks Frank, that did the trick - it was hanging around because this started off life as a SORT only. Much appreciation to you, Kolusu and all the DFSORT team, this is such a marvelous utility that has made my life a lot easier

IBM Mainframe Forum

ICETOOL OCCURS producing duplicates

ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates

Re: ICETOOL OCCURS producing duplicates