How can we count and compare the records using ICETOOL?



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

How can we count and compare the records using ICETOOL?

Postby bunny2 » Tue Feb 17, 2009 11:58 am

HI ALL
I have requirement on ICETOOL which is as follows:
1. I will have two files i.e. (1.before updation file and 2. File with identifiers (22,12)).
2. From the file with identifiers I need to get the count of records with different identifiers.

Ex: Count of Records with the identifier 12: 5(B)
Count of Records with the identifier 22: 10(C)
3. Then I need to get the sum of them (B+C)

Ex: Total no of records are : 15 (B+C)

4. Then I need to get the total count of the before updation file(i.e A) .and this count should be compared with the sum of the B and C .
Here there are 2 cases (i.e.,A=(B+C))
1. If total no of records are equal:
Then the Report will look like ,

The title for the report DATE TIME
------------------------------------------------------

DESCRIPTION COUNT
-------------------- ----------------
The no of records with identifier 12 5
The no of records with identifier 22 10
------------------------------------------------------- -----------------
The total no of record are 15(B+C)
------------------------------------------------------- -----------------

2. If the total no of records are not equal :
Then we need to find the difference of the count of Before updation file (i.e A) and (B+C) and report that .
i.e.

The title for the report DATE TIME
------------------------------------------------------

DESCRIPTION COUNT
-------------------- ----------------
The no of records with identifier 12 5
The no of records with identifier 22 10
------------------------------------------------------- -----------------
The no of records that are missed in after updation are 2(say) ( A-(B+C))
------------------------------------------------------ -----------------
bunny2
 
Posts: 8
Joined: Fri Jan 02, 2009 10:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: How can we count and compare the records using ICETOOL?

 

Re: How can we count and compare the records using ICETOOL?

Postby Frank Yaeger » Wed Feb 18, 2009 12:39 am

Please show an example of the records in each input file.

What is the RECFM and LRECL of each input file?

What is the starting position of the identifier field that has '22' or '12' in input file2?

I need to get the total count of the before updation file(i.e A)


Is A just the count of the total records in input file1?

What length do you want for the numeric values in the report?
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: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

Re: How can we count and compare the records using ICETOOL?

Postby bunny2 » Wed Feb 18, 2009 4:15 pm

HI Frank Yaeger ,

Example of the records in 1.before updation file is as follows:

OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS
OPEN SYS MANGLR 00010FGHGH CHEEGHHJJKKKKSE SDB01HBRBROSCCVSCOSCCVSSS

Example of the records in 2. File with identifiers is as follows:
Last 2 positions identifiers
00001FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H12
00002FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H12
00003FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC22 H22
00004FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC22 H22
00005FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC22 H22
00006FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC22 H22
00007FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H12
00008FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H12
00009FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H12
00010FGHGH CHEEGHHJJKKKKSE OPEN SYS MANGLR SDB01HBRBROSCCVSC12 H22


RECFM is FB and LRECL is 72 for both the files.

Starting position is 71 for both the files.

yes A Jst the count of the total records in input file1(i.e 1.before updation file )

Can you pls tell me what do you mean by "What length do you want for the numeric values in the report?"?
bunny2
 
Posts: 8
Joined: Fri Jan 02, 2009 10:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: How can we count and compare the records using ICETOOL?

Postby bunny2 » Wed Feb 18, 2009 4:18 pm

Starting position is 71 for both the files

sorry! Starting position is 71 for both the identifiers
bunny2
 
Posts: 8
Joined: Fri Jan 02, 2009 10:31 am
Has thanked: 0 time
Been thanked: 0 time

Re: How can we count and compare the records using ICETOOL?

Postby skolusu » Thu Feb 19, 2009 3:16 am

Bunny2,

The following DFSORT/ICETOOL JCL will give you the desired results.

//STEP0100 EXEC PGM=ICETOOL 
//TOOLMSG  DD SYSOUT=*       
//DFSMSG   DD SYSOUT=*       
//I1       DD DSN=before updation file,DISP=SHR
//I2       DD DSN=File with identifiers,DISP=SHR
//T1       DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(TRK,(1,1),RLSE)
//OUT      DD SYSOUT=*                                       
//TOOLIN   DD *                                             
  COPY FROM(I1) USING(CTL1)                                 
  COPY FROM(I2) USING(CTL2)                                 
  SORT FROM(T1) USING(CTL3)                                 
//CTL1CNTL DD *                                             
  OUTFIL FNAMES=T1,REMOVECC,NODETAIL,BUILD=(80X),           
  TRAILER1=(X,COUNT=(M11,LENGTH=8),X,8C'0',X,8C'0',X,8C'0')
/* 
//CTL2CNTL DD *                                             
  OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(73:C'000')),             
  IFTHEN=(WHEN=(71,2,CH,EQ,C'12'),OVERLAY=(73:C'101')),     
  IFTHEN=(WHEN=(71,2,CH,EQ,C'22'),OVERLAY=(73:C'011'))       
                                                             
  OUTFIL FNAMES=T1,REMOVECC,NODETAIL,BUILD=(80X),           
  TRAILER1=(X,8C'0',X,                                       
            TOT=(73,1,ZD,M11,LENGTH=8),X,                   
            TOT=(74,1,ZD,M11,LENGTH=8),X,                   
            TOT=(75,1,ZD,M11,LENGTH=8))                     
/*
//CTL3CNTL DD *                                                     
  SORT FIELDS=(1,1,CH,A)                                           
  SUM FIELDS=(2,8,11,8,20,8,29,8),FORMAT=ZD                         
  OUTFIL FNAMES=OUT,IFOUTLEN=80,                                   
  IFTHEN=(WHEN=(2,8,ZD,EQ,29,8,ZD),                                 
  BUILD=(25:C'THE TITLE FOR THE REPORT',X,DATE1(/),X,TIME,/,       
         80C'-',/,                                                 
         C'DESCRIPTION COUNT',/,                                   
         80C'-',/,                                                 
         C'THE NO OF RECORDS WITH IDENTIFIER 12 : ',11,8,ZD,/,     
         C'THE NO OF RECORDS WITH IDENTIFIER 22 : ',20,8,ZD,/,     
         80C'-',/,                                                 
         C'THE TOTAL NO OF RECORD ARE           : ',02,8,ZD,/,     
         80C'-')),                                                 
  IFTHEN=(WHEN=NONE,                                               
  BUILD=(25:C'THE TITLE FOR THE REPORT',X,DATE1(/),X,TIME,/,       
         80C'-',/,                                                 
         C'DESCRIPTION COUNT',/,                                   
         80C'-',/,                                                 
         C'THE NO OF RECORDS WITH IDENTIFIER 12 : ',11,8,ZD,/,     
         C'THE NO OF RECORDS WITH IDENTIFIER 22 : ',20,8,ZD,/,     
         80C'-',/,                                                 
         C'THE NO OF RECORDS THAT ARE MISSED IN ',                 
         C'AFTER UPDATION ARE : ',2,8,ZD,SUB,29,8,ZD,M10,LENGTH=8,/,
         80C'-'))                                                   
/*                                                                 


If the counts match then the report will be as follows

                        THE TITLE FOR THE REPORT 2009/02/18 14:30:11   
------------------------------------------------------------------------
DESCRIPTION COUNT                                                       
------------------------------------------------------------------------
THE NO OF RECORDS WITH IDENTIFIER 12 :        5                         
THE NO OF RECORDS WITH IDENTIFIER 22 :        5                         
------------------------------------------------------------------------
THE TOTAL NO OF RECORD ARE           :       10                         
------------------------------------------------------------------------


If the counts don't match then the report will be as follows

                        THE TITLE FOR THE REPORT 2009/02/18 14:29:07
---------------------------------------------------------------------
DESCRIPTION COUNT                                                   
---------------------------------------------------------------------
THE NO OF RECORDS WITH IDENTIFIER 12 :        5                     
THE NO OF RECORDS WITH IDENTIFIER 22 :        5                     
---------------------------------------------------------------------
THE NO OF RECORDS THAT ARE MISSED IN AFTER UPDATION ARE :        3   
---------------------------------------------------------------------
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: How can we count and compare the records using ICETOOL?

Postby bunny2 » Thu Feb 19, 2009 10:21 am

Thank you skolusu
bunny2
 
Posts: 8
Joined: Fri Jan 02, 2009 10:31 am
Has thanked: 0 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post