MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Omiting some records and updating trailer count

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
bade_miya
Beginner


Joined: 10 Dec 2003
Posts: 110
Topics: 38
PostPosted: Tue Mar 13, 2007 4:14 am    Post subject: Omiting some records and updating trailer count Reply with quote
Hi All,

I have a file which has lots of diffrent files merged into one. The sample input will look something like this.


00AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
99AAAAAAAAAA 6SOMEDATASOMEDATASOMEDATA
00BBBBBBBBBB SOMEDATASOMEDATASOMEDATASOMEDATA
01BBBBBBBBBB SOMEDATASOMEDATASOMEDATASOMEDATA
99BBBBBBBBBB 3SOMEDATASOMEDATASOMEDATA
00CCCCCCCCC SOMEDATASOMEDATASOMEDATASOMEDATA
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAYYYYYYYYY
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAYYYYYYYYY
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
99CCCCCCCCC 7SOMEDATASOMEDATASOMEDATA


The firts two bytes shows the record type
00 - Header
01 - Detail record
99 - Trailer
The number in the trailer in bold denotes the record count for that batch including header and trailer.
AAA,BBB,CCC denotes, which batch file they are comming from.

My requirement is to omit YYYYYYYYY kind of data from records in CCCCCCCCCC batch and update the trailer count for that batch. I want to retain all the other records in other batches intack in the output file.

The sample output will look like



00AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
01AAAAAAAAAA SOMEDATASOMEDATASOMEDATASOMEDATA
99AAAAAAAAAA 6SOMEDATASOMEDATASOMEDATA
00BBBBBBBBBB SOMEDATASOMEDATASOMEDATASOMEDATA
01BBBBBBBBBB SOMEDATASOMEDATASOMEDATASOMEDATA
99BBBBBBBBBB 3SOMEDATASOMEDATASOMEDATA
00CCCCCCCCC SOMEDATASOMEDATASOMEDATASOMEDATA
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
01CCCCCCCCC SOMEDATASOMEDATASOMEDATAXXXXXXXX
99CCCCCCCCC 5SOMEDATASOMEDATASOMEDATA


Please note that the record count changed for the CCC batch in the trailer count.

Is this achivable in one step using DFSORT?

The record length is 180 bytes
Code:

field                     position         length
-----                    ---------         -------

rec type-------------------1---------------2
batch name-----------------3---------------10
Trailer count--------------50--------------9
field to be omited---------123-------------16


I tried searching the forum and found some of the links where record count in trailer is adjusted. but none of them explained how it works when multiple batch types (AAA,BBB,CCC) are in the file and the correction is needed to only one batch type.

Thanks & Regards
bade_miya
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Tue Mar 13, 2007 6:23 am    Post subject: Reply with quote
bade_miya,

Can the Trailer record be generated dynamically? or should it copied from input updating the count?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bade_miya
Beginner


Joined: 10 Dec 2003
Posts: 110
Topics: 38
PostPosted: Tue Mar 13, 2007 7:15 am    Post subject: Reply with quote
Hi Kolusu,

It would be best if we can copy it from the input updating the count. The count starting position is 50 and it is 9 bytes long.

Thanks & Regards
bade_miya
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Tue Mar 13, 2007 8:53 am    Post subject: Reply with quote
bade_miya,

Try this job.

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*                                   
//SORTIN   DD DSN=your input file,
//            DISP=SHR                                   
//SORTOUT  DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(x,y),RLSE)
//SYSIN    DD *                                         
  SORT FIELDS=(03,10,CH,A)                               
  INREC IFTHEN=(WHEN=(01,02,CH,EQ,C'99'),                 
       OVERLAY=(181:C'D'))                               
                                                         
  OUTFIL REMOVECC,                                       
  OMIT=(123,16,CH,EQ,C'YYYYYYYYY       '),               
  SECTIONS=(03,10,                                       
  TRAILER3=(01,49,                                       
            COUNT=(M10,LENGTH=9),                         
            59,122))                                     
                                                         
/*                                                       
//STEP0200 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*                                   
//SORTIN   DD DSN=&T1,                                   
//            DISP=SHR                                   
//SORTOUT  DD SYSOUT=*                                   
//SYSIN    DD *                                         
  SORT FIELDS=COPY                                       
  OMIT COND=(181,1,CH,EQ,C'D')
/*


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
bade_miya
Beginner


Joined: 10 Dec 2003
Posts: 110
Topics: 38
PostPosted: Tue Mar 13, 2007 10:19 am    Post subject: Reply with quote
Hi Kolusu,

The solution worked perfectly (as always Smile ). Thanks a lot for that. I was just wondering whether it can be done in one step. Anyways, thanks for this wonderful solution.

thanks & regards
bade_miya
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Tue Mar 13, 2007 10:38 am    Post subject: Reply with quote
bade_miya,

Please define exactly what does 1 step mean? Is it 1 pass of data to get the desired results or multiple passes of data in a single step to get the desired results.

If multiple passes of data is ok then you can use the following JCL

Code:

//STEP0100 EXEC PGM=ICETOOL                             
//TOOLMSG  DD SYSOUT=*                                   
//DFSMSG   DD SYSOUT=*                                   
//IN       DD DSN=Your input file,                       
//            DISP=SHR                                   
//T1       DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(x,y),RLSE)
//OUT      DD SYSOUT=*                                   
//TOOLIN   DD *                                         
  SORT FROM(IN) USING(CTL1)                               
  COPY FROM(T1) USING(CTL2)                               
//CTL1CNTL DD *                                         
  SORT FIELDS=(03,10,CH,A)                               
  INREC IFTHEN=(WHEN=(01,02,CH,EQ,C'99'),                 
       OVERLAY=(181:C'D'))                               
                                                         
  OUTFIL FNAMES=T1,REMOVECC,                             
  OMIT=(123,16,CH,EQ,C'YYYYYYYYY       '),               
  SECTIONS=(03,10,                                       
  TRAILER3=(01,49,                                       
            COUNT=(M10,LENGTH=9),                         
            59,122))                                     
                                                         
//CTL2CNTL DD *                                         
  OMIT COND=(181,1,CH,EQ,C'D')                           
  OUTFIL FNAMES=OUT                                     
/*                                                       


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Tue Mar 13, 2007 1:00 pm    Post subject: Reply with quote
Bade_miya,

Just realized that it can be done in single pass/single step and quite easy then the prior one

Try this


Code:

//STEP0100 EXEC PGM=SORT                         
//SYSOUT   DD SYSOUT=*                           
//SORTIN   DD DSN=Your input file,               
//            DISP=SHR                           
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *                                 
  OMIT COND=(123,16,CH,EQ,C'YYYYYYYYY       ')   
  SORT FIELDS=(03,10,CH,A)                       
                                                 
  OUTREC FIELDS=(001,180,                         
                 181:SEQNUM,9,ZD,RESTART=(03,10))
                                                 
  OUTFIL IFOUTLEN=180,                           
           IFTHEN=(WHEN=(01,02,CH,EQ,C'99'),       
          OVERLAY=(050:181,9,ZD,M10,LENGTH=9))     
                                                 
/*     


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group