Copy members using CLIST from one pds to another

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