ICETOOL OCCURS producing duplicates



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

ICETOOL OCCURS producing duplicates

Postby 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:

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:
//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:
//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:
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.

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
Nuadha
 
Posts: 18
Joined: Tue Nov 01, 2011 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL OCCURS producing duplicates

Postby 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:

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.
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: ICETOOL OCCURS producing duplicates

Postby 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:
//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
Nuadha
 
Posts: 18
Joined: Tue Nov 01, 2011 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL OCCURS producing duplicates

Postby 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:

                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:

//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:

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.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: ICETOOL OCCURS producing duplicates

Postby 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';')
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
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;                                                                                                                             
Nuadha
 
Posts: 18
Joined: Tue Nov 01, 2011 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL OCCURS producing duplicates

Postby 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
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
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 
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: ICETOOL OCCURS producing duplicates

Postby 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.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: ICETOOL OCCURS producing duplicates

Postby 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:
//*********************************************************************
// 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):
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):
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:
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
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

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

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:
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
Nuadha
 
Posts: 18
Joined: Tue Nov 01, 2011 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL OCCURS producing duplicates

Postby 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):

//*********************************************************************
// 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
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Re: ICETOOL OCCURS producing duplicates

Postby 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 :)
Nuadha
 
Posts: 18
Joined: Tue Nov 01, 2011 10:55 pm
Has thanked: 0 time
Been thanked: 0 time

Next

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post