IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

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


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
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
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

Global Moderator


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

PostPosted: Wed Mar 04, 2009 6:51 pm
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
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: 2358
Location: Israel

PostPosted: Wed Mar 04, 2009 7:21 pm
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

Global Moderator


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

PostPosted: Wed Mar 04, 2009 7:25 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 8
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
Search our Forums:

Back to Top