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
 

 

Read a PS file and wirte the contents to a PDS Member?

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

New User


Joined: 06 Feb 2009
Posts: 23
Location: India

PostPosted: Wed Mar 04, 2009 6:21 pm    Post subject: Read a PS file and wirte the contents to a PDS Member?
Reply with quote

I have an input PS file (say 100 records) and need a job which creates a new PDS and writes one record (from PS file) per member. So finally I should have 100 members in a single PDS.

Anand
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Mar 04, 2009 6:51 pm    Post subject: Reply to: Read a PS file and wirte the contents to a PDS Mem
Reply with quote

I'd use the IEBUPDTE program as long as your data meets its requirements. If not, I think you'll need to look into writing your own application and using either a lot of dynamic allocation processes, or preferably, the ISPF Library Management (LM) Services to accomplish this.
Back to top
View user's profile Send private message
anandkumarrn

New User


Joined: 06 Feb 2009
Posts: 23
Location: India

PostPosted: Wed Mar 04, 2009 7:07 pm    Post subject:
Reply with quote

Thanks Superk
can you provide me a example for using IEBUPDTE?
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Mar 04, 2009 7:21 pm    Post subject:
Reply with quote

Here is a nice working REXX example:
Code:
/* REXX */                                             
                                                       
ADDRESS TSO "ALLOC FI(SEQ) DA('seq.dataset') SHR"       
ADDRESS TSO "EXECIO * DISKR SEQ (STEM LINE. FINIS"     
ADDRESS TSO "FREE FI(SEQ)"                             
                                                       
PDS = "PDS.dataset"                                     
                                                       
DO I = 1 TO LINE.0                                     
  QUEUE LINE.I                                         
  ADDRESS TSO "ALLOC FI(MEM) DA('"PDS"(MEM"I")') SHR"   
  ADDRESS TSO "EXECIO 1 DISKW MEM (FINIS"               
  ADDRESS TSO "FREE FI(MEM)"                           
END I                                                   
                                                       
EXIT                                                   
                                                       


O.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Mar 04, 2009 7:25 pm    Post subject:
Reply with quote

anandkumarrn wrote:
Can you provide me a example for using IEBUPDTE?


I already posted the link to the IBM documentation. Here's a previous topic on the same subject.
Back to top
View user's profile Send private message
anandkumarrn

New User


Joined: 06 Feb 2009
Posts: 23
Location: India

PostPosted: Thu Mar 05, 2009 10:51 am    Post subject:
Reply with quote

thanks Super and ofer71
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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 4 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


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