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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm


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