Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Copy using DFSORT - PDS members with non-PDS ones

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
sivaplv

New User


Joined: 15 Mar 2005
Posts: 17
Location: Toronto, Canada

PostPosted: Tue May 10, 2005 2:37 am    Post subject: Copy using DFSORT - PDS members with non-PDS ones
Reply with quote

Hi,

I have to modify a sort job: It currently copies by SORT 4 datasets with LRECL=71 and RECFM=FB, with a header date and trailer record (end-of-file identifier) created by using HEADER1 and TRAILER1 options.

Now I need to include a PDS member in the SORT which has only one line with 11 characters in it, still keeping OPTION COPY. PDS member should be the first SORTIN file and output file still should be 71 in length.

Is it possible? If so, please explain.

Thanks,
Back to top
View user's profile Send private message
References
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4579
Location: San Jose, CA

PostPosted: Tue May 10, 2005 2:45 am    Post subject:
Reply with quote

You just have to increase the length of the PDS member records from 11 characters to 71 characters to match the output length. There are a variety of ways to do that depending on what exactly you're doing. For example, you can use MOD for the output file and do a COPY of the PDS member, using DSN=pds(member), to the output file using:

Code:

  OUTREC FIELDS=(1,11,71:X)


and then COPY the rest of the input files to the MOD output file.

Or you can do a COPY of the PDS member, using DSN=pds(member), to a temp file again using OUTREC, and then do the other COPY with the temp file concatenated before the other files.
Back to top
View user's profile Send private message
sivaplv

New User


Joined: 15 Mar 2005
Posts: 17
Location: Toronto, Canada

PostPosted: Tue May 10, 2005 3:13 am    Post subject: Re: Copy using DFSORT - PDS members with non-PDS ones
Reply with quote

Hi Frank,

Thanks for your quick reply. It worked.

You may treat this posting as closed.

Regards.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1