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
 

 

DFSORT to know the record count

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

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Wed Sep 29, 2010 5:29 pm    Post subject: DFSORT to know the record count
Reply with quote

How can I know the record count for HDR1,HDR2 and so on
for key start with pos 4 lenth 3 which is AB1 and 14th pos A1 records

FB LRECL=80
Input File:-
Code:

##HDR0001##
000AB1   xxxxx   A1
000AB3   xxxxx   C1
000AB1   xxxxx   A1
000AB1   xxxxx   A2
000AB2   xxxxx   C1
##TRL##
##HDR0002##
000AB1   xxxxx   A1
000AB3   xxxxx   C1
000AB1   xxxxx   A1
000AB1   xxxxx   A1
000AB2   xxxxx   C1
##TRL##


The output shoud be
Code:
##HDR0001##     2
##HDR0002##     3
Back to top
View user's profile Send private message

sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Wed Sep 29, 2010 8:26 pm    Post subject:
Reply with quote

shrivatsa,
Unless I am missing something, do you always want a count of AB1 and A1 records or should output have count for all the keys? What about AB3, C1 and AB2,C1 records under HDR0001?

Thanks,
Back to top
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Wed Sep 29, 2010 9:05 pm    Post subject: Reply to: DFSORT Help
Reply with quote

I need count of only AB1 and A1 records.
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Wed Sep 29, 2010 9:24 pm    Post subject:
Reply with quote

shrivatsa,
See if below jcl works for you...
Code:

//STEP01   EXEC PGM=SORT                                               
//SORTIN   DD   *                                                       
##HDR0001##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   C1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A2                                                     
000AB2   XXXXX   C1                                                     
##TRL##                                                                 
##HDR0002##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   C1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A1                                                     
000AB2   XXXXX   C1                                                     
##TRL##                                                                 
//SORTOUT  DD  SYSOUT=*                                                 
//SYSIN DD *                                                           
 OPTION COPY                                                           
 INCLUDE COND=((1,5,CH,EQ,C'##HDR'),OR,                                 
               (4,3,CH,EQ,C'AB1',AND,18,2,CH,EQ,C'A1'))                 
 INREC IFTHEN=(WHEN=GROUP,                                             
               BEGIN=(1,5,CH,EQ,C'##HDR'),PUSH=(52:1,11))               
 OUTFIL REMOVECC,NODETAIL,SECTIONS=(52,11,                             
                          TRAILER3=(52,11,COUNT-1=(M10,LENGTH=8)))     
/*                                                                     
//SYSOUT DD SYSOUT=*                                                   
//*                                                                     

OUTPUT
Code:
##HDR0001##       2
##HDR0002##       3


Thanks,
Back to top
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Fri Oct 01, 2010 9:46 am    Post subject: Reply to: DFSORT Help
Reply with quote

Thanks for the below solution but there is slight modification in input file
as I want count based on the A1 group as below

Code:
##HDR0001##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   A1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A2                                                     
000AB2   XXXXX   C1
000AB3   XXXXX   A1                                                         
##TRL##                                                                 
##HDR0002##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   C1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A1                                                     
000AB2   XXXXX   C1
000AB3   XXXXX   A1     
000AB3   XXXXX   A1                                                         
##TRL##   



Output is

Code:
##HDR0001##     
000AB1      2
000AB3      2
##HDR0002##     
000AB1      3
000AB3      2
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Oct 01, 2010 9:53 am    Post subject:
Reply with quote

Hello,

Talk with others on your project and make sure you now have posted the complete requirement.

It is just a waste of everyone's time and effort to ask for incremental changes. . .
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Fri Oct 01, 2010 9:20 pm    Post subject:
Reply with quote

shrivatsa,
See if below jcl works for you...
Code:

//SORT01   EXEC PGM=SORT                                               
//SORTIN   DD *                                                         
##HDR0001##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   A1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A2                                                     
000AB2   XXXXX   C1                                                     
000AB3   XXXXX   A1                                                     
##TRL##                                                                 
##HDR0002##                                                             
000AB1   XXXXX   A1                                                     
000AB3   XXXXX   C1                                                     
000AB1   XXXXX   A1                                                     
000AB1   XXXXX   A1                                                     
000AB2   XXXXX   C1                                                     
000AB3   XXXXX   A1                                                     
000AB3   XXXXX   A1                                                     
##TRL##                                                                 
//SORTOUT  DD  SYSOUT=*                                                 
//SYSIN DD *                                                           
 INCLUDE COND=(18,2,CH,EQ,C'A1',OR,1,5,CH,EQ,C'##HDR')                 
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'##HDR'),                   
                          PUSH=(83:1,11)),                             
       IFTHEN=(WHEN=(1,5,CH,NE,C'##HDR'),                               
                          OVERLAY=(12:10,71,10:2X,94:C'1'))             
 SORT FIELDS=(83,11,CH,A,1,11,CH,A),EQUALS                             
 OUTFIL REMOVECC,NODETAIL,SECTIONS=(01,11,                             
        TRAILER3=(1,11,4X,TOTAL=(94,1,ZD,EDIT=(III))))                 
/*                                                                     
//SYSOUT DD SYSOUT=*                                                   
//*                                                                     

OUTPUT
Code:
##HDR0001##       
000AB1           2
000AB3           2
##HDR0002##       
000AB1           3
000AB3           2

Thanks,
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 Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 5 Wed Jul 26, 2017 7:35 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am


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