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                                       -
                    )