Copy DBCS Data Sets Using Translation Tables in z/OS
In this example consisting of six COPY steps, six different translation tables are being used to convert from one format to another while each file is being transferred from the PNODE to the SNODE. Each translation table is specified using the SYSOPTS DBCS parameter in the TO clause.
DBCSTST1 PROCESS SNODE=CD.MAINFRAME -
SNODEID=(USERID,PASSWRD)
**********************************************************************
* DBCS CHINESE NEW HOST CODE TO CHINESE BIG 5 (NHCXBG5)
**********************************************************************
STEP01 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.NHCXBG5 -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=NHCXBG5" -
) -
FROM ( PNODE -
DSN=CD.DBCS.NHC -
DISP=SHR -
)
**********************************************************************
* DBCS TABLE BG5XNHC
**********************************************************************
STEP02 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.BG5XNHC -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=BG5XNHC" -
) -
FROM ( PNODE -
DSN=CD.DBCS.BG5XNHC -
DISP=SHR -
)
**********************************************************************
* DBCS TABLE EBCXKSC
**********************************************************************
STEP03 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.EBCXKSC.SOSI -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=(EBCXKSC,0E,0F)" -
) -
FROM ( PNODE -
DSN=CD.DBCS.EBCXKSC.FILE.SOSI -
DISP=SHR -
)
**********************************************************************
* DBCS TABLE KSCXEBC
**********************************************************************
STEP04 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.KSCXEBC -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=KSCXEBC" -
) -
FROM ( PNODE -
DSN=CD.O.DBCS.EBCXKSC.SOSI -
DISP=SHR -
)
**********************************************************************
* DBCS TABLE EBCXKPC
**********************************************************************
STEP05 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.EBCXKPC.NOSO -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=(EBCXKPC,00,00)" -
) -
FROM ( PNODE -
DSN=CD.DBCS.EBCXKPC.NOSO -
DISP=SHR -
)
**********************************************************************
* DBCS TABLE KPCXEBC
**********************************************************************
STEP06 -
COPY TO ( SNODE -
DSN=CD.O.DBCS.KPCXEBC -
DISP=(RPL,CATLG) -
UNIT=SYSDA -
DCB=(RECFM=VB,LRECL=254,BLKSIZE=4096,DSORG=PS) -
SPACE=(254,(1000,100)) -
SYSOPTS="DBCS=KPCXEBC" -
) -
FROM ( PNODE -
DSN=CD.O.DBCS.EBCXKPC.NOSO -
DISP=SHR -
)