| View previous topic :: View next topic |
| Author |
Message |
Nisha Rajan
Beginner
Joined: 01 Jun 2006
Posts: 1
Topics: 1
|
 Posted: Tue Jul 04, 2006 7:22 am Post subject: REXX- Copy/Write into a GDG from a PS |
 |
|
Hi,
My requirement is to actually receive a file and store it in a GDG . Now as we could not receive the file to a GDG , we received it in a PS.So our next constraint is to move data from PS to GDG. The GDG needs to be allocated and copied in the REXX.Please provide pointers on how to go about it. |
|
| Back to top |
|
 |
superk
Advanced
Joined: 19 Dec 2002
Posts: 684
Topics: 5
|
| Posted: Tue Jul 04, 2006 9:41 am Post subject: |
|
|
I'm presuming for these pointers that your REXX exec will be running in a TSO address space and will be able to use TSO services:
1. Will the GDG base entry already exist? If not, you can use the TSO DEFINE command to create one.
2. Will there already be generations cataloged to the GDG? If yes, then you will have to determine what the next generation number is. Use a combination of TSO LISTCAT and OUTTRAP to list all existing generations. Add 1 to the last entry for the next generation (roll over from 9999 to 0001 if necessary).
3. Use the TSO ALLOC command to allocate the next generation explicitly, i.e.: ALLOC DD(X) DA('HLQ.GDG.G0001V00') NEW CATLG REUSE ...
4. You can copy using any preferred COPY function (IEBGENER, SORT, REPRO) or EXECIO. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
jyoung
Beginner
Joined: 10 Nov 2005
Posts: 36
Topics: 2
Location: Flint, MI
|
| Posted: Wed Jul 05, 2006 12:53 pm Post subject: |
|
|
| How are you "receiving" the file? |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
