This Process copies a VSE Librarian BSAM member into a
preallocated z/OS partitioned data set (PDS) member. The disk data
set has already been defined to the appropriate system catalog. This
Process was written with symbolics for substitution.
When you reference BSAM libraries in a IBM® Connect:Direct® Process,
you must specify: DSORG, DSN, UNIT, and VOL=SER= parameters.
LIB2ZOS1 PROC PNODE=SC.VSE.NODE -
SNODE=SC.OS390.NODE -
&OS390LIB=USER01.TEST.VSEPROC -
&VSELIB=CONN.DIRECT.LIBRARIES -
&VSEMEM=, -
&VSESUB=USER01 -
&VSETYP=N -
&VSEVOL=USER03
STEP0001 COPY FROM ( PNODE -
DSN=&VSELIB -
DISP=SHR -
UNIT=DISK -
DCB=(DSORG=PS) -
VOL=SER=&VSEVOL -
LIBR=(SELMEM=&VSEMEM -
SELSLIB=&VSESUB -
SELTYPE=&VSETYP) -
) -
TO ( SNODE -
DSN=&OS390LIB -
DISP=SHR -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&OS390LIB)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&OS390LIB)) -
PNODE
EIF
|