Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 4650
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: 4650
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 Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us