Copy from GDG to GDG using REXX
Posted: Mon Aug 04, 2008 1:33 pm
I have a requirement of copying the current generation of one GDG to +1 generation of another GDG. The new GDG getting created must have similar properties to the GDG from where we are copying. I tried by the following way:
But i didnt the result. Please tell me how can I proceed to get this done.
/*****************************REXX*************************************/
"NEWSTACK" /* CREATE A NEW DATA STACK FOR INPUT ONLY */
"EXECIO * DISKR DATAIN (FINIS"
QUEUE '' /* ADD A NULL LINE TO INDICATE THE END OF THE INFORMATION */
"EXECIO * DISKW DATAOUT (FINIS"
"DELSTACK" /* DELETE THE NEW DATA STACK */
"FREE F(DATAIN DATAOUT)"
"NEWSTACK" /* CREATE A NEW DATA STACK FOR INPUT ONLY */
"EXECIO * DISKR DATAIN (FINIS"
QUEUE '' /* ADD A NULL LINE TO INDICATE THE END OF THE INFORMATION */
"EXECIO * DISKW DATAOUT (FINIS"
"DELSTACK" /* DELETE THE NEW DATA STACK */
"FREE F(DATAIN DATAOUT)"
But i didnt the result. Please tell me how can I proceed to get this done.