REPORT CREATION USING ICETOOL



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

REPORT CREATION USING ICETOOL

Postby djprakash1ml » Fri Aug 05, 2011 2:56 am

Can you please help me achieve this using ICETOOL?

Input:-
RECL = 80
RECFM = FB


amr100a
V1AMBAAB TS Y I
V1AMBAAB IX Y NA
V1AMBSEC TS N NA
V1AMBSEC IX Y I

Output:-
RECL = 80
RECFM = FB

****************************************************************************
TABLE RECALL STATUS REPORT
****************************************************************************

NAME OF THE COBOL MODULE: AMR100A

NAME OF THE TABLE DATASET TYPE FOUND RECALL STATUS
------------------------- ------------------ ------- -------------
V1AMBAAB TS YES ISSUED
V1AMBAAB IX YES NOT APPLICABLE
V1AMBSEC TS NO NOT APPLICABLE
V1AMBSEC IX YES ISSUED


**************************END OF REPORT*********************************


Tried the following

//SYSIN DD *
SORT FIELDS=COPY
OUTREC FINDREP=(INOUT=(C'y',C'YES',
C'N',C'NO',C'I',C'RECALL ISSUED',C'NA',C'NOT APPLICABLE')),
OUTFIL REMOVECC,
HEADER2=('TABLE NAME TYPE FOUND RECALL',/,
'-------------- -------------- ------------ -------------')
djprakash1ml
 
Posts: 17
Joined: Mon Jun 28, 2010 6:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: REPORT CREATION USING ICETOOL

Postby Frank Yaeger » Fri Aug 05, 2011 4:54 am

Assuming your input fields are in fixed positions like this:

AMR100A             
V1AMBAAB TS Y I     
V1AMBAAB IX Y NA     
V1AMBSEC TS N NA     
V1AMBSEC IX Y I     


you can use this DFSORT job to do what you asked for:

//S1 EXEC PGM=SORT                                               
//SYSOUT DD SYSOUT=*                                             
//SORTIN DD DSN=&&IN,DISP=(OLD,PASS)                             
//SYM DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)       
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)       
//SYSIN DD *                                                     
  OPTION COPY                                                     
  OUTFIL FNAMES=SYM,BUILD=(C'NAME,''',1,8,C'''',80:X),ENDREC=1   
  OUTFIL FNAMES=T1,STARTREC=2             
//S2 EXEC PGM=SORT                                                     
//SYSOUT DD SYSOUT=*                                                   
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)                                 
//SORTIN DD DSN=&&T1,DISP=(OLD,PASS)                                   
//SORTOUT DD SYSOUT=*                                                 
//SYSIN DD *                                                           
  SORT FIELDS=COPY                                                     
  OUTFIL REMOVECC,                                                     
      HEADER2=(76'*',/,26:'TABLE RECALL STATUS REPORT',/,76'*',/,X,/, 
       'NAME OF THE COBOL MODULE: ',NAME,/,X,/,                       
       'TABLE NAME     TYPE           FOUND        RECALL',/,         
       '-------------- -------------- ------------ -------------'),   
  BUILD=(1,8,16:10,2,                                                 
   31:13,1,CHANGE=(3,C'Y',C'YES',C'N',C'NO'),                         
   44:15,2,CHANGE=(14,C'I',C'ISSUED',C'NA',C'NOT APPLICABLE'),80:X)   
/*                       


For your example, SORTOUT would have:

**************************************************************************** 
                         TABLE RECALL STATUS REPORT                           
**************************************************************************** 
                                                                             
NAME OF THE COBOL MODULE: AMR100A                                             
                                                                             
TABLE NAME     TYPE           FOUND        RECALL                             
-------------- -------------- ------------ -------------                     
V1AMBAAB       TS             YES          ISSUED                             
V1AMBAAB       IX             YES          NOT APPLICABLE                     
V1AMBSEC       TS             NO           NOT APPLICABLE                     
V1AMBSEC       IX             YES          ISSUED                             
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: REPORT CREATION USING ICETOOL

Postby djprakash1ml » Fri Aug 05, 2011 8:36 pm

Thanks a lot Frank. It worked.
djprakash1ml
 
Posts: 17
Joined: Mon Jun 28, 2010 6:33 pm
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post