View previous topic :: View next topic
|
Author |
Message |
anandkumarrn
New User
Joined: 06 Feb 2009 Posts: 23 Location: India
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
anandkumarrn
New User
Joined: 06 Feb 2009 Posts: 23 Location: India
|
|
|
|
Thanks Superk
can you provide me a example for using IEBUPDTE? |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
anandkumarrn
New User
Joined: 06 Feb 2009 Posts: 23 Location: India
|
|
|
|
thanks Super and ofer71 |
|
Back to top |
|
|
|