IBM Mainframe Forum

by **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',/,
'-------------- -------------- ------------ -------------')

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

Assuming your input fields are in fixed positions like this:

Select all

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:

Select all

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

Select all

****************************************************************************
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

by **djprakash1ml** » Fri Aug 05, 2011 8:36 pm

Thanks a lot Frank. It worked.

IBM Mainframe Forum

REPORT CREATION USING ICETOOL

REPORT CREATION USING ICETOOL

Re: REPORT CREATION USING ICETOOL

Re: REPORT CREATION USING ICETOOL