The 8.3 CR will not be used as this can already be accomplished as of 8.2 patch 5.
C:D transfer can be speeden up, during remote promote by adding select cards into the instream
skeleton CMN$$NPM
)SEL <YPHFS NE Y
CPY&LIBTYPE COPY FROM(PNODE DSN=&STGLIB..&LIBTYPE -
)CM
)CM Only transfer the selected members in case of selective promote
)SEL &PROMACT EQ P AND &PROMFUN EQ SELPROM
SELECT ( -
)DOT RPMTB&LIBTYPE
&CMPNAME. -
)ENDDOT RPMTB&LIBTYPE
) -
)ENDSEL &PROMACT EQ P AND &PROMFUN EQ SELPROM
)CM
DISP=(SHR)) -
TO (SNODE DSN=&RMTLIB..&LIBTYPE -
DISP=(NEW,CATLG) UNIT=&RDEFUNT) COMPRESS PRIME=X'40'
IF (CPY&LIBTYPE EQ 8) THEN
RPL&LIBTYPE COPY FROM(PNODE DSN=&STGLIB..&LIBTYPE -
DISP=(SHR)) -
TO (SNODE DSN=&RMTLIB..&LIBTYPE -
DISP=(OLD) UNIT=&RDEFUNT) COMPRESS PRIME=X'40'
IF (RPL&LIBTYPE NE 0) THEN
GOTO ABEND
EIF
ELSE
IF (CPY&LIBTYPE NE 0) THEN
GOTO ABEND
EIF
EIF
)ENDSEL <YPHFS NE Y
