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
 

 

Is it possible to extract data this way in SORT.

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

New User


Joined: 03 Jul 2006
Posts: 53

PostPosted: Sat Oct 27, 2012 1:53 am    Post subject: Is it possible to extract data this way in SORT.
Reply with quote

Let's say I'm already given old backups of reports and need to split them based on specific condition. Below is how data looks on dataset.
Can I extract specific "WAREHOUSE ID" to separate file (let's say "BBB")?
Thank you in advance......

INPUT FILE:
Code:
                                  MY COMPANY NAME                       
PROGRAM: PGM001A                  REPORT NAME HERE          PAGE: XXXX 
REPORT:  P001RPT                  SOME OTHER HEADER         DATE: XX/XX
                                                                       
DATE: 10/26/2012                                                       
WAREHOUSE ID: AAA                                                       
WAREHOUSE ADDRESS:  SOMEWHERE 11111                                     
                                                                       
 PART           PART         PART                 PART                 
 NUMBER         PRICE        SERIAL               DESCRIPTION           
                                                                       
 100009821     $100.00       081234325234         SOMETHING HERE01     
 100009726     $200.00       018667462345         SOMETHING HERE02     
 100009825     $300.00       981234321248         SOMETHING HERE03     
 100009342     $400.00       018123442309         SOMETHING HERE04     
                                                                       
TOTAL:        $1000.00                                                 


                                                                       
PROGRAM: PGM001A                  REPORT NAME HERE          PAGE: XXXX 
REPORT:  P001RPT                  SOME OTHER HEADER         DATE: XX/XX
                                                                       
DATE: 10/26/2012                                                       
WAREHOUSE ID: BBB                                                     
WAREHOUSE ADDRESS:  SOMEWHERE 22222                                   
                                                                       
 PART           PART         PART                 PART                 
 NUMBER         PRICE        SERIAL               DESCRIPTION         
                                                                       
 340009821     $600.00       777777777234         SOMETHING HERE01     
 350009726     $500.00       744444444345         SOMETHING HERE02     
 350009825     $400.00       987777721248         SOMETHING HERE03     
                                                                       
 TOTAL:       $1500.00                                                 



PROGRAM: PGM001A                  REPORT NAME HERE          PAGE: XXXX 
REPORT:  P001RPT                  SOME OTHER HEADER         DATE: XX/XX
                                                                       
DATE: 10/26/2012                                                       
WAREHOUSE ID: CCC                                                     
WAREHOUSE ADDRESS:  SOMEWHERE 33333                                   
                                                                       
 PART           PART         PART                 PART                 
 NUMBER         PRICE        SERIAL               DESCRIPTION         
                                                                       
 440009824     $300.00       444777777234         SOMETHING HERE01     
 450009824     $400.00       987777721248         SOMETHING HERE03     
                                                                       
 TOTAL:        $700.00                                                 


So my output file looks like this:

Code:
PROGRAM: PGM001A                  REPORT NAME HERE          PAGE: XXXX 
REPORT:  P001RPT                  SOME OTHER HEADER         DATE: XX/XX
                                                                       
DATE: 10/26/2012                                                       
WAREHOUSE ID: BBB                                                     
WAREHOUSE ADDRESS:  SOMEWHERE 22222                                   
                                                                       
 PART           PART         PART                 PART                 
 NUMBER         PRICE        SERIAL               DESCRIPTION         
                                                                       
 340009821     $600.00       777777777234         SOMETHING HERE01     
 350009726     $500.00       744444444345         SOMETHING HERE02     
 350009825     $400.00       987777721248         SOMETHING HERE03     
                                                                       
 TOTAL:       $1500.00                                                 
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Sat Oct 27, 2012 3:13 am    Post subject: Reply to: Is it possible to extract data this way in SORT.
Reply with quote

Yes.

You can look at this topic. The same technique can be applied to your report.
Back to top
View user's profile Send private message
saiprasadh

Active User


Joined: 20 Sep 2006
Posts: 154
Location: US

PostPosted: Sat Oct 27, 2012 4:01 am    Post subject:
Reply with quote

I used below sort card to generate the output.

Code:
//STEP01  EXEC PGM=SORT       
//SYSPRINT  DD SYSOUT=*       
//SYSOUT    DD SYSOUT=*       
//INA       DD DSN=<Your Input file>,DISP=SHR
//INB       DD DSN=<Your Input file>,DISP=SHR
//SORTOUT   DD SYSOUT=*                                                 
//SYSIN  DD  *                                                         
 SORT FIELDS=COPY                                                       
 JOINKEYS F1=INA,FIELDS=(81,10,A)                                       
 JOINKEYS F2=INB,FIELDS=(81,10,A)                                                                                         
 REFORMAT FIELDS=(F1:1,90,?,F2:1,91)                                   
 INCLUDE COND=(182,1,CH,EQ,C'1')                                       
 OUTREC FIELDS=(1:1,80)                                                 
/*                                                                     
//JNF1CNTL DD *                                                         
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,7,CH,EQ,C'PROGRAM'),                 
               END=(1,6,CH,EQ,C' TOTAL'),                               
               PUSH=(81:ID=10))                                         
/*                                                                     
//JNF2CNTL DD *                                                         
 INCLUDE COND(1,12,CH,EQ,C'WAREHOUSE ID')                               
 INREC IFTHEN=(WHEN=INIT,                                               
               BUILD=(1:1,80,81:SEQNUM,10,ZD,START=1,INCR=1,91:C'1')), 
       IFTHEN=(WHEN=(1,17,CH,NE,C'WAREHOUSE ID: BBB'),                 
               OVERLAY=(91:C'0')) 
/*                                 
Back to top
View user's profile Send private message
rmd3003

New User


Joined: 03 Jul 2006
Posts: 53

PostPosted: Mon Oct 29, 2012 5:55 pm    Post subject:
Reply with quote

saiprasadh, thank you very much.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Mon Oct 29, 2012 5:59 pm    Post subject: Reply to: Is it possible to extract data this way in SORT.
Reply with quote

Is it possible for you to have more than one page of report for the warehouse in question? If so, test it.
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 Paasing symbolic parameter to instrea... Anirudh Anand JCL & VSAM 0 Thu Jul 27, 2017 1:22 pm
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts Passing data from REXX to C programme... chong.zhou All Other Mainframe Topics 0 Wed Jul 26, 2017 4:55 pm
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 8 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm


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