Copy members using CLIST from one pds to another

1 post / 0 new
Anonymous (not verified)
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)

"; ; ; ;

Sponsored Listing

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer

Navigation