This Process sends an entire BSAM VSE sublibrary into a
new z/OS partitioned data set. The Process runs on the PNODE (VSE)
and sends the data to the SNODE (z/OS). This Process uses symbolic
values.
When you reference BSAM libraries in a IBM® Connect:Direct® Process,
you must specify: DSORG, DSN, UNIT, and VOL=SER= parameters.
You
must specify all of the parameters in this sample on the FROM side
to Process BSAM libraries.
LIB2ZOS4 PROC SNODE=SC.OS390.NODE -
PNODE=SC.VSE.NODE -
&OS390LIB=USER01.TEST.VSELIB -
&VSELIB=CONN.DIRECT.LIBRARIES -
&VSESUB=PROCESS -
&VSETYP=N
STEP0001 COPY FROM ( PNODE -
DSN=&VSELIB -
DISP=SHR -
VOL=SER=USER03 -
DCB=(DSORG=PS) -
LIBR=(SELSLIB=&VSESUB -
SELTYPE=&VSETYP -
REPLACE=YES) -
) -
TO ( SNODE -
DSN=&OS390LIB -
DISP=RPL -
UNIT=SYSDA -
SPACE=(CYL,(5,1,100),RLSE) -
DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920) -
) -
COMPRESS
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&OS390LIB)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&OS390LIB)) -
PNODE
EIF
|