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 Incorrect output when trying to add n... monica1 PL/I & Assembler 7 Fri Jan 13, 2017 5:02 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts output data in CSV Format janmejay COBOL Programming 8 Sat Oct 15, 2016 2:20 pm
This topic is locked: you cannot edit posts or make replies. output data in CSV Format janmejay DFSORT/ICETOOL 3 Sat Oct 15, 2016 2:16 pm


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