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
 

 

Write output in the PDS members

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
banand

New User


Joined: 05 Jun 2007
Posts: 28
Location: Mumbai

PostPosted: Wed Aug 26, 2009 12:43 pm    Post subject: Write output in the PDS members
Reply with quote

My job is used to convert (By COBOL program) the Common delimited variable block file in to Fixed format fixed block file. And this job is a dataset triggered job that is when ever third party send us the file this job will be triggered. Now there is only one third party so no problem ,but there is new third coming in to picture, so they will be sending the file in different file name.
Now instead of using different Jcl I am planning to use one JCL and include member in it which has the DD statement for the input file. Based on the output of the List cat (Gives which third party file cataloged)I will be creating this Include member. Now by giving the listcat output to the sort card I have tried to create multiple members (Since I need to change the file names in different steps) using outfil statement, but all the members are written with the output of the last outrec statement instead of corresponding outrec statement. Below I have attached the screen shot of my JCL
Code:

//PS020  EXEC PGM=SORT                                         
//SORTJNF1 DD DSN=WXX262.LISTCAT.E3USI250,DISP=SHR             
//SORTJNF2 DD DSN=WXX262.MAPPING.FILE,DISP=SHR                 
//BKPFILE  DD DSN=WXX830.BALA.SEMIS(TEST12),DISP=OLD           
//INFILE   DD DSN=WXX830.BALA.SEMIS(TEST13),DISP=OLD           
//SYSIN DD *                                                   
   JOINKEYS  FILES=F1,                                         
             FIELDS=(033,004,A),INCLUDE=(13,7,CH,EQ,C'NONVSAM')
   JOINKEYS  FILES=F2,                                         
             FIELDS=(001,004,A)                                 
   REFORMAT FIELDS=(F2:001,4,F1:22,44,F2:5,44)                 
   SORT FIELDS=(1,10,CH,A),STOPAFT=1                           
   OUTFILE FNAMES=BKPFILE,                                     
      OUTREC=(1:C'//SORTIN DD DISP=SHR,DSN=',26:5,44,70:11X,/, 
              1:C'//SORTOUT DD DISP=(NEW,CATLG,DELETE),',38:43X,
             /,1:C'//        ',11:C'DSN=',15:49,44,59:21X)     
   OUTFILE FNAMES=INFILE,                                       
      OUTREC=(1:C'//E3250I01 DD DISP=SHR,DSN=',28:49,44,72:09X)
/*                                                             
//SYSOUT DD SYSOUT=*         


Please help me to create different output in multiple members in the same PDS. Also please let me know if you need any more details
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: Wed Aug 26, 2009 7:14 pm    Post subject:
Reply with quote

Hello,

Suggest you post some of the current and expected future input data and the output(s) you want from that input.

Explain the rules for processing the input.

I'm not sure why the output uses ddname INFILE - confusing at best. . .
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Aug 27, 2009 6:45 pm    Post subject:
Reply with quote

That's an input to other system, we care about others... icon_lol.gif
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 -> JCL & VSAM 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 6 Wed Jul 26, 2017 7:35 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts JES2 doesn't honor the priority of th... Aron Lendvai JCL & VSAM 8 Thu Jun 29, 2017 1:41 pm


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