Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Merging two records to produce one report

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
shl0842

New User


Joined: 10 Sep 2006
Posts: 2
Location: Goodyear, Az

PostPosted: Sat Dec 04, 2010 2:14 am    Post subject: Merging two records to produce one report
Reply with quote

I trying to produce a racf report using ICETOOL. The receiving a error which i do not understand.
I attach the o/p file.

What i'm trying to produce as o/p should look like the following:
userid group name userid name
test testg1 joe bud
test testg2 joe bud
test testg3 joe bud
test2 testg1 billy bob
test2 testg4 billy bob
so on and so far

Sorry have duplicated attachment
Code:

1                       J E S 2  J O B  L O G  --  S Y S T E M  S B 1 8  --  N O D E  S B 1 8
0
 11.58.40 JOB30175 ---- FRIDAY,    03 DEC 2010 ----
 11.58.40 JOB30175  IRR010I  USERID IFXZDL   IS ASSIGNED TO THIS JOB.
 11.58.40 JOB30175  ICH70001I IFXZDL   LAST ACCESS AT 11:55:33 ON FRIDAY, DECEMBER 3, 2010
 11.58.40 JOB30175  $HASP373 IFXZDL25 STARTED - INIT 14   - CLASS C - SYS SB18
 11.58.40 JOB30175  SMSSMF10  BILLING INFO : *        -
 11.58.40 JOB30175  IEF403I IFXZDL25 - STARTED - TIME=11.58.40
 11.58.41 JOB30175  -                                              --TIMINGS (MINS.)--            -----PAGING COUNTS----
 11.58.41 JOB30175  -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB    SRB  CLOCK   SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 11.58.42 JOB30175  -RACFICE              16     83    201    .00    .00     .0   1696  BATCH        0     0     0     0
 11.58.42 JOB30175  IEF404I IFXZDL25 - ENDED - TIME=11.58.42
 11.58.42 JOB30175  -IFXZDL25 ENDED.  NAME-DAVID LOVER          TOTAL TCB CPU TIME=    .00 TOTAL ELAPSED TIME=    .0
 11.58.42 JOB30175  $HASP395 IFXZDL25 ENDED
0------ JES2 JOB STATISTICS ------
-  03 DEC 2010 JOB EXECUTION DATE
-           56 CARDS READ
-          198 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-           11 SYSOUT SPOOL KBYTES
-         0.03 MINUTES EXECUTION TIME
         1 //IFXZDL25  JOB 0390300,'DAVID LOVER',                                  JOB30175
           //             NOTIFY=&SYSUID,
           //             MSGLEVEL=(1,1)
           IEFC653I SUBSTITUTION JCL - 0390300,'DAVID LOVER',NOTIFY=IFXZDL,MSGLEVEL=(1,1)
         2 //RACFICE EXEC PGM=ICETOOL
         3 //TOOLMSG DD SYSOUT=*
         4 //PRNTDSP DD SYSOUT=*
         5 //DFSMSG DD SYSOUT=*
         6 //SORTDIAG DD DUMMY
         7 //IN DD DISP=SHR,DSN=&SYSUID..RACF.UNLOAD
           IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IFXZDL.RACF.UNLOAD
         8 //TEMP1 DD DSN=&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
         9 //TEMP2 DD DSN=&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
        10 //CONCT DD DSN=*.TEMP1,VOL=REF=*.TEMP1,DISP=(OLD,PASS)
        11 // DD DSN=*.TEMP2,VOL=REF=*.TEMP2,DISP=(OLD,PASS)
        12 //TOOLIN DD *
        13 //CTL1CNTL DD *
        14 //CTL2CNTL DD *
 ICH70001I IFXZDL   LAST ACCESS AT 11:55:33 ON FRIDAY, DECEMBER 3, 2010
 IEF236I ALLOC. FOR IFXZDL25 RACFICE
 IEF237I JES2 ALLOCATED TO TOOLMSG
 IEF237I JES2 ALLOCATED TO PRNTDSP
 IEF237I JES2 ALLOCATED TO DFSMSG
 IEF237I DMY  ALLOCATED TO SORTDIAG
 IGD103I SMS ALLOCATED TO DDNAME IN
 IGD100I B2B4 ALLOCATED TO DDNAME TEMP1    DATACLAS (        )
 IGD100I B360 ALLOCATED TO DDNAME TEMP2    DATACLAS (        )
 IEF237I B2B4 ALLOCATED TO CONCT
 IEF237I B360 ALLOCATED TO
 IEF237I JES2 ALLOCATED TO TOOLIN
 IEF237I JES2 ALLOCATED TO CTL1CNTL
 IEF237I JES2 ALLOCATED TO CTL2CNTL
 IEF142I IFXZDL25 RACFICE - STEP WAS EXECUTED - COND CODE 0016
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000104.?          SYSOUT
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000105.?          SYSOUT
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000106.?          SYSOUT
 IGD104I IFXZDL.RACF.UNLOAD                           RETAINED,  DDNAME=IN
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000101.?          SYSIN
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000102.?          SYSIN
 IEF285I   IFXZDL.IFXZDL25.JOB30175.D0000103.?          SYSIN
 IEF373I STEP/RACFICE /START 2010337.1158
 IEF374I STEP/RACFICE /STOP  2010337.1158 CPU    0MIN 00.13SEC SRB    0MIN 00.00SEC VIRT  1116K SYS   280K EXT   10252K SYS   11376K
 IEF237I B2B4 ALLOCATED TO SYS00001
 IEF285I   SYS10337.T115842.RA000.IFXZDL25.R1495340     KEPT
 IEF285I   VOL SER NOS= SCA005.
 IEF285I   SYS10337.T115840.RA000.IFXZDL25.T1.H14       DELETED
 IEF285I   VOL SER NOS= SCA005.
 IEF237I B360 ALLOCATED TO SYS00002
 IEF285I   SYS10337.T115842.RA000.IFXZDL25.R1495341     KEPT
 IEF285I   VOL SER NOS= SCA012.
 IEF285I   SYS10337.T115840.RA000.IFXZDL25.T2.H14       DELETED
 IEF285I   VOL SER NOS= SCA012.
 IEF375I  JOB/IFXZDL25/START 2010337.1158
 IEF376I  JOB/IFXZDL25/STOP  2010337.1158 CPU    0MIN 00.13SEC SRB    0MIN 00.00SEC
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


 ICE630I 0 MODE IN EFFECT:  STOP

           * SPLIT OFF 0200 AND 0205 RECORDS AND REFORMAT EACH FOR
           * SUMMING
            COPY FROM(IN) USING(CTL1)
 ICE606I 0 DFSORT CALL 0001 FOR COPY  FROM IN       TO OUTFIL   USING CTL1CNTL COMPLETED
 ICE602I 0 OPERATION RETURN CODE:  00

           * KEEP ONLY RECORDS THAT HAVE THE SAME USERID IN THE 0200 RECORD
           * AND THE 0205 RECORD
            SELECT FROM(CONCT) TO(TEMP2) ON(1,8,CH) ALLDUPS
 ICE627I 0 DFSORT CALL 0002 FOR SORT FROM CONCT    TO TEMP2    TERMINATED
 ICE602I 0 OPERATION RETURN CODE:  16

 ICE630I 2 MODE IN EFFECT:  SCAN

           * SORT BY USERID AND SUM NEEDED FIELDS FROM REFORMATTED 0205 RECORDS
           * WITH BINARY ZEROS IN REFORMATTED 0200 RECORDS.
            SORT FROM(TEMP2) TO(TEMP1) USING(CTL2)
 ICE612I 0 NO ERRORS FOUND IN STATEMENT

           * CREATE REPORT USING NEEDED FIELDS FROM JOINED 0200 AND 0205 RECORDS DI
           DISPLAY FROM(TEMP1) LIST(PRNTDSP) BLANK -
                    TITLE('>>> USERID INFORMATION <<<') -
                    BETWEEN(2) -
                    HEADER('USR GRP ') ON(1,8,CH) -
                    HEADER('USR NAME') ON(12,8,CH) -
                    HEADER('PROGRAMMER NAME') ON(22,18,CH)
 ICE643I 0 WIDTH OF REPORT IS 0121 BYTES
 ICE612I 0 NO ERRORS FOUND IN STATEMENT


 ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16
1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
 ICE805I 0 JOBNAME: IFXZDL25 , STEPNAME: RACFICE
 ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL
 ICE201I G RECORD TYPE IS V - DATA STARTS IN POSITION 5
 ICE858I 0 LA=32716, DA=6144, AA=26572, BA=4054, CP=2, TA=4104
 ICE859I 0 LB=4016, DB=1036, AB=2980, BB=0, CP=0, RS=0, TB=20
 ICE860I 0 F=YN, P=2, M=N, B=2048
 ICE751I 0 C5-K51707 C6-K51707 C7-K51707 C8-K51707 E9-K51707 C9-BASE   E5-K51707 E7-K51707
 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 V1R10 - 11:58 ON FRI DEC 03, 2010 -
0           OUTFIL FNAMES=TEMP1,VTOF,
           * SELECT 0200 RECORDS WITH 'PKS' IN USERID
              INCLUDE=(5,4,CH,EQ,C'0200'),
           * REFORMAT 0200 RECORDS TO LOOK LIKE THIS:
           * |USERID|ZEROS|PRGNAME|
              OUTREC=(1:10,8,12:8Z,22:79,18)
            OUTFIL FNAMES=TEMP2,VTOF,
           * SELECT 0205 RECORDS WITH 'PKS' IN USERID
              INCLUDE=(5,4,CH,EQ,C'0205'),
           * REFORMAT 0200 RECORDS TO LOOK LIKE THIS:
           * |USERID|GRP NAME|
              OUTREC=(1:10,8,
                12:19,8)
 ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
           DEBUG NOABEND,ESTAE
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,DYN*
                          ALLOC
           SORT FIELDS=COPY
 ICE201I G RECORD TYPE IS V - DATA STARTS IN POSITION 5
 ICE858I 0 LA=32716, DA=6144, AA=26572, BA=4054, CP=2, TA=4104
 ICE859I 0 LB=4016, DB=1036, AB=2980, BB=0, CP=0, RS=0, TB=20
 ICE860I 0 F=YN, P=2, M=N, B=2048
 ICE751I 0 C5-K51707 C6-K51707 C7-K51707 C8-K51707 E9-K51707 C9-BASE   E5-K51707 E7-K51707
 ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
 ICE088I 0 IFXZDL25.RACFICE .        , INPUT LRECL = 4096, BLKSIZE = 27998, TYPE = VB
 ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (6230015,6230015)
 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=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
 ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
 ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=0
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
 ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
 ICE235I 0 OPTIONS: NULLOUT=RC0
 ICE084I 0 EXCP ACCESS METHOD USED FOR IN
 ICE889I 0 CT=MAX     , SB=3, L=0, D=0000, CCW=1MAM
 ICE902I 0 O       I NP11
 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 4202496
 ICE855I 0 TEMP1    : TX=N, R= , L= , B= , BL=0, BR=0, DCT=37, VS=N, RU=X, SB=241
 ICE210I 0 TEMP1    : EXCP USED, LRECL = 39, BLKSIZE = 27963, TYPE = FB   (SDB)
 ICE855I 0 TEMP2    : TX=N, R= , L= , B= , BL=0, BR=0, DCT=37, VS=N, RU=X, SB=241
 ICE210I 0 TEMP2    : EXCP USED, LRECL = 19, BLKSIZE = 27987, TYPE = FB   (SDB)
 ICE751I 1 EF-K49535 CB-K90014 F0-K49038 E8-K51707
 ICE900I 0 CON=1,MUV=0,VOL=1,ENU=0,SBK=0,SRC=0,VEM=0
 ICE055I 0 INSERT 0, DELETE 0
 ICE054I 0 RECORDS - IN: 130632, OUT: 130632
1ICE227I 0 TEMP1    : DELETED = 129705, REPORT = 0, DATA = 927
 ICE228I 0 TEMP1    : TOTAL IN = 130632, TOTAL OUT = 927
 ICE227I 0 TEMP2    : DELETED = 125552, REPORT = 0, DATA = 5080
 ICE228I 0 TEMP2    : TOTAL IN = 130632, TOTAL OUT = 5080
 ICE804I 5 OUTFIL   EXCP COUNT: 2
 ICE891I 1 6283856 WMAIN, 7592 CMAIN, MAX CALLOC, N SCN, B BA, 0 AZ, 0 BZ, NY QC, 0 CZ, 0 DZ, 1 PLE
 ICE892I 1 4096 RIN  27998 BLI  27998 BLO  4093 RUN  0 BUN  2096 CPU  00 CVC
 ICE804I 1 IN       EXCP COUNT: 14
 ICE052I 0 END OF DFSORT
1ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
 ICE805I 0 JOBNAME: IFXZDL25 , STEPNAME: RACFICE
 ICE802I 0 BLOCKSET     TECHNIQUE IN CONTROL
 ICE043A 3 INVALID DATA SET ATTRIBUTES: CONCT    LRECL   - REASON CODE IS 05
 ICE751I 0 C5-K51707 C6-K51707 C7-K51707 C8-K51707 E7-K51707
 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 V1R10 - 11:58 ON FRI DEC 03, 2010 -
0          DEBUG NOABEND,ESTAE
           OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=CONCT,SORTOUT=TEMP*
                          2,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
           SORT FIELDS=(1,8,CH,A)
           MODS E35=(ICE35DU,12288)
 ICE043A 3 INVALID DATA SET ATTRIBUTES: CONCT    LRECL   - REASON CODE IS 05
 ICE751I 0 C5-K51707 C6-K51707 C7-K51707 C8-K51707 E7-K51707
 ICE052I 3 END OF DFSORT

Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Sat Dec 04, 2010 2:19 am    Post subject: Reply to: Merging two records to produce one report
Reply with quote

avoid posting attachments , not everybody can see them, reducing the number of people able to help
the data has been inlined using the code tags and the attachments deleted
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Sat Dec 04, 2010 2:22 am    Post subject:
Reply with quote

Quote:

ICE043A 3 INVALID DATA SET ATTRIBUTES: CONCT LRECL - REASON CODE IS 05


shl0842,

That is the error you are getting and if you looked up ICE043A with reason code you would have found this

Code:

Fixed length input data sets have different record lengths. Examples: Concatenated SORTIN data sets have RECFM=FB with LRECL=100 and RECFM=FB with LRECL=80. The SORTIN01 data set has RECFM=FB with LRECL=100 and the SORTIN02 data set has RECFM=FB with LRECL=135.


Temp1 is 39 bytes and Temp2 file is 19 bytes which you used for concatenation. Read here about ICE043A.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1cm50/2.2.42

and for the record you don't need that many passes on the data to get the desired results. It can be done in 1 or 2 passes at the max.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Produce Mainframe Dash Board Reports ... sdcarlson53 All Other Mainframe Topics 2 Thu Jan 05, 2017 11:01 pm
No new posts Removing Duplicates based on certain ... chandracdac DFSORT/ICETOOL 8 Fri Dec 09, 2016 4:40 am
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us