Tue, 07/31/2012 – 03:17
#1
Copy members using CLIST from one pds to another
The following CLIST code can be used to copy members from one PDS to the other.
/*ISPEXEC CONTROL DISPLAY REFRESH
CONTROL MSG CONLIST SYMLIST NOFLUSH
CONTROL NOMSG
SET FIL1=PDDH1B
ISPEXEC LMINIT DATAID(INPDD1) DATASET(‘&SYSUID..COMMON.JOBS’)
ISPEXEC LMINIT DATAID(OUTDD1) DATASET(‘&SYSUID..COMMON.TEMP’)
ISPEXEC LMCOPY FROMID(&INPDD1) TODATAID(&OUTDD1) FROMMEM(&FIL1) +
 TOMEM(&FIL1) REPLACE PACK
IF &LASTCC NE 0 THEN + DO Â WRITE NOT COPIED END ELSE + DO Â WRITE COPIED END
ISPEXEC LMFREE DATAID(&INPDD1)
ISPEXEC LMFREE DATAID(&OUTDD1)
“; ; ; ;
Click the +1 button  below to share it with your friends and colleagues
Share this if you liked it!
Disclaimer