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
 

 

OUTFIL to pds members

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

Active User


Joined: 29 Oct 2010
Posts: 183
Location: Toronto, ON, Canada

PostPosted: Tue Oct 08, 2013 9:11 pm    Post subject: OUTFIL to pds members
Reply with quote

What is the option to tell DFSORT to process multiple OUTFIL statements one at at time? I checked the reference manual but could not find the option. I think that be default DFSORT will process them in one pass.

I want to have multiple OUTFIL statements going to members of the same pds. I get a S213 abend.
Code:
OUTFIL FNAMES=MEM1,INCLUDE=(cond1)
OUTFIL FNAMES=MEM2,INCLUDE=(cond2)
//MEM1  DD DSN=MYPDS(MEM1),DISP=SHR
//MEM2 DD DSN=MYPDS(MEM2),DISP=SHR
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue Oct 08, 2013 9:16 pm    Post subject:
Reply with quote

Remember that you can only have one writer to a PDS at a time. This is likely the cause of the S213. Show the IEC143I message for a better diagnosis.
Back to top
View user's profile Send private message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 183
Location: Toronto, ON, Canada

PostPosted: Tue Oct 08, 2013 9:39 pm    Post subject:
Reply with quote

Akatsukami wrote:
Remember that you can only have one writer to a PDS at a time. This is likely the cause of the S213. Show the IEC143I message for a better diagnosis.

That is what I figured. Is there an option that tells DFSORT to process each OUTFIL statement one at a time? It would them make a pass over the data for each OUTFIL.
Code:
IEC143I 213-30,IFG0194D,JTERPCIC,SORT01,DB2E,71D0,DEV01A,  807
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue Oct 08, 2013 9:52 pm    Post subject:
Reply with quote

S213-30 is definitely more than one writer to a PDS:
Quote:
An attempt was made to open a partitioned data set (PDS) for OUTPUT,DISP=SHR. The PDS is already open in this condition, and a DCB is already open for output to the data set. The data set might be on the same system or on another system that is sharing the volume. Access was not serialized before the attempt to open the data set.

I don't know if there's an option only write one output at a time; Kolusu will know or know how find out. As a workaround, you could write the data to temporary data sets, and then copy them one at a time to the PDS.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Oct 08, 2013 10:57 pm    Post subject: Reply to: OUTFIL to pds members
Reply with quote

No such option.

How about generating one file with IEBUPDTE control cards to ADD a member, followed by the data. Then run that control file through IEBUPDTE?
Back to top
View user's profile Send private message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 183
Location: Toronto, ON, Canada

PostPosted: Tue Oct 08, 2013 11:55 pm    Post subject:
Reply with quote

Thanks for the responses. I thought there was an option for this but maybe I was thinking of another tool.
I can't use IEBUPDTE as the lrecl > 80 bytes.
I will check StarBat or just code a rexx.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Oct 09, 2013 4:15 am    Post subject:
Reply with quote

Hi,

just create 2 separate datasets followed by 2 more steps to write each file into the PDS.



Gerry
Back to top
View user's profile Send private message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 183
Location: Toronto, ON, Canada

PostPosted: Wed Oct 09, 2013 7:02 pm    Post subject:
Reply with quote

gcicchet wrote:
just create 2 separate datasets followed by 2 more steps to write each file into the PDS.

I actually want to do a lot more then 2 outputs. I used just 2 for this posting to keep it simple.

I developed a Rexx to do what I want. It looks at the first 4 bytes of the record and writes all the records with the same value to a member with a name that matches the value.

I had confused an ICETOOL feature with OUTFIL. If doing a SORT or COPY to mutliple outputs:
Code:
COPY FROM(INDD) TO(OUTDD1,OUTDD2,OUTDD3) SERIAL
the parm SERIAL causes it to repeat the sort for each output. This won't work for what I was planning.
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 Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
No new posts Differences between copying members b... E.LAI TSO/ISPF 8 Wed Mar 30, 2016 12:35 pm
No new posts OUTREC on OUTFIL error rocky_balboa DFSORT/ICETOOL 4 Thu Aug 27, 2015 10:26 am
No new posts JCL to replace string in all PDS members bhamarekm All Other Mainframe Topics 8 Thu May 28, 2015 8:44 pm
No new posts Issue with copying PDS members to ano... Senthilkumar k CLIST & REXX 13 Mon Apr 20, 2015 1:28 pm


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