付録E.2 ユーザアプリケーションプログラムのコーディング例(全二重でのCOBOL言語)

<この項の構成>
(1) コンテンション勝者側(SPP)
(2) コンテンション敗者側(MHP)

(1) コンテンション勝者側(SPP)

IDENTIFICATION  DIVISION.
PROGRAM-ID.     SEND01.

ENVIRONMENT     DIVISION.

DATA            DIVISION.
WORKING-STORAGE SECTION.

01    SND-S1.
     02    MSG-SNDSYNC  PIC X(8)   VALUE   'SENDSYNC'.
     02    DATA1        PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA2        PIC X(4)   VALUE   SPACE.
     02    DATA3        PIC X(4)   VALUE   SPACE.
     02    DATA4        PIC 9(8).
     02    DATA5        PIC 9(8).
     02    DATA6        PIC 9(9)   COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)   VALUE   'EMI '.
     02    DATA7        PIC X(4)   VALUE   SPACE.
     02    DATA8        PIC X(4)   VALUE   SPACE.
     02    DATA9        PIC X(4)   VALUE   SPACE.
     02    DATA10       PIC X(8)   VALUE   SPACE.
     02    DATA11       PIC X(4)   VALUE   SPACE.
     02    DATA12       PIC X(8)   VALUE   SPACE.
     02    DATA13       PIC X(4)   VALUE   SPACE.
     02    DATA14       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA15       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA16       PIC X(1)   VALUE   SPACE.
     02    DATA17       PIC X(1)   VALUE   SPACE.
     02    DATA18       PIC X(14)  VALUE   LOW-VALUE.
01    SND-S2.
     02    SEG-CODE     PIC X(4)   VALUE   SPACE.
     02    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     02    DATA19       PIC X(8)   VALUE   SPACE.
     02    DATA20       PIC X(8)   VALUE   SPACE.
     02    DATA21       PIC X(28)  VALUE   LOW-VALUE.
01    SND-S3.
     02    DATA22       PIC 9(9)    COMP    VALUE   54.
     02    DATA23       PIC X(8).
     02    SEND-DATA.
           03    S-DATA1     PIC X(1)   VALUE   X'00'.
           03    S-DATA2     PIC X(1)   VALUE   X'0a'.
           03    S-DATA3     PIC X(4)   VALUE   'OTP1'.
           03    S-DATA4     PIC X(4)   VALUE   'BDR '.
           03    S-DATA5     PIC X(1)   VALUE   X'00'.
           03    S-DATA6     PIC X(1)   VALUE   X'2a'.
           03    S-DATA7     PIC X(1)   VALUE   X'00'.
           03    S-DATA8     PIC X(1)   VALUE   X'0d'.
           03    S-DATA8-1   PIC X(2)   VALUE   'PR'.
           03    S-DATA9     PIC X(9)   VALUE   'SEND_TPSU'.
           03    S-DATA10    PIC X(1)   VALUE   X'00'.
           03    S-DATA11    PIC X(1)   VALUE   X'02'.
           03    S-DATA12    PIC X(1)   VALUE   X'00'.
           03    S-DATA13    PIC X(1)   VALUE   X'0d'.
           03    S-DATA13-1  PIC X(2)   VALUE   'PR'.
           03    S-DATA14    PIC X(9)   VALUE   'RECV_TPSU'.
           03    S-DATA15    PIC X(1)   VALUE   X'00'.
           03    S-DATA16    PIC X(1)   VALUE   X'04'.
           03    S-DATA17    PIC X(1)   VALUE   X'48'.
           03    S-DATA18    PIC X(1)   VALUE   X'ff'.
           03    S-DATA19    PIC X(1)   VALUE   X'00'.
           03    S-DATA20    PIC X(1)   VALUE   X'02'.
           03    S-DATA21    PIC X(1)   VALUE   X'00'.
           03    S-DATA22    PIC X(1)   VALUE   X'02'.
           03    S-DATA23    PIC X(1)   VALUE   X'00'.
           03    S-DATA24    PIC X(1)   VALUE   X'04'.
           03    S-DATA25    PIC X(2)   VALUE   'AL'.
           03    S-DATA26    PIC X(1)   VALUE   X'00'.
           03    S-DATA27    PIC X(1)   VALUE   X'02'.
01    SND-S4.
     02    MSG-SNDSYNC  PIC X(8)   VALUE   'SENDSYNC'.
     02    DATA25       PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA26       PIC X(4)   VALUE   SPACE.
     02    DATA27       PIC X(4)   VALUE   SPACE.
     02    DATA28       PIC 9(8).
     02    DATA29       PIC 9(8).
     02    DATA30       PIC 9(9)   COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)   VALUE   'EMI '.
     02    DATA31       PIC X(4)   VALUE   SPACE.
     02    DATA32       PIC X(4)   VALUE   SPACE.
     02    DATA33       PIC X(4)   VALUE   SPACE.
     02    DATA34       PIC X(8)   VALUE   SPACE.
     02    DATA35       PIC X(4)   VALUE   SPACE.
     02    DATA36       PIC X(8)   VALUE   SPACE.
     02    DATA37       PIC X(4)   VALUE   SPACE.
     02    DATA38       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA39       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA40       PIC X(1)   VALUE   SPACE.
     02    DATA41       PIC X(1)   VALUE   SPACE.
     02    DATA42       PIC X(14)  VALUE   LOW-VALUE.
01    SND-S5.
     02    SEG-CODE     PIC X(4)   VALUE   SPACE.
     02    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     02    DATA43       PIC X(8)   VALUE   SPACE.
     02    DATA44       PIC X(8)   VALUE   SPACE.
     02    DATA45       PIC X(28)  VALUE   LOW-VALUE.
01    SND-S6.
     02    DATA46       PIC 9(9)    COMP VALUE 23.
     02    DATA48       PIC X(8).
     02    SEND-DATA2.
           03    S-DATA281   PIC X(1)   VALUE   X'00'.
           03    S-DATA282   PIC X(1)   VALUE   X'0a'.
           03    S-DATA283   PIC X(4)   VALUE   'OTP1'.
           03    S-DATA284   PIC X(4)   VALUE   'TDR '.
           03    S-DATA285   PIC X(1)   VALUE   X'00'.
           03    S-DATA286   PIC X(1)   VALUE   X'02'.
           03    S-DATA287   PIC X(1)   VALUE   X'00'.
           03    S-DATA288   PIC X(1)   VALUE   X'0b'.
           03    S-DATA289   PIC X(1)   VALUE   X'80'.
           03    S-DATA290   PIC X(8)   VALUE   'USERDATA'.

01    SND-S7.
     02    MSG-SNDSYNC  PIC X(8)   VALUE   'SENDSYNC'.
     02    DATA49       PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA50       PIC X(4)   VALUE   SPACE.
     02    DATA51       PIC X(4)   VALUE   SPACE.
     02    DATA52       PIC 9(8).
     02    DATA53       PIC 9(8).
     02    DATA54       PIC 9(9)   COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)   VALUE   'EMI '.
     02    DATA55       PIC X(4)   VALUE   SPACE.
     02    DATA56       PIC X(4)   VALUE   SPACE.
     02    DATA57       PIC X(4)   VALUE   SPACE.
     02    DATA58       PIC X(8)   VALUE   SPACE.
     02    DATA59       PIC X(4)   VALUE   SPACE.
     02    DATA60       PIC X(8)   VALUE   SPACE.
     02    DATA61       PIC X(4)   VALUE   SPACE.
     02    DATA62       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA63       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA64       PIC X(1)   VALUE   SPACE.
     02    DATA65       PIC X(1)   VALUE   SPACE.
     02    DATA66       PIC X(14)  VALUE   LOW-VALUE.
01    SND-S8.
     02    SEG-CODE     PIC X(4)   VALUE   SPACE.
     02    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     02    DATA67       PIC X(8)   VALUE   SPACE.
     02    DATA68       PIC X(8)   VALUE   SPACE.
     02    DATA69       PIC X(28)  VALUE   LOW-VALUE.
01    SND-S9.
     02    DATA70       PIC 9(9)   COMP    VALUE   14.
     02    DATA71       PIC X(8).
     02    SEND-DATA3.
           03    S-DATA29    PIC X(1)   VALUE   X'00'.
           03    S-DATA30    PIC X(1)   VALUE   X'0a'.
           03    S-DATA31    PIC X(4)   VALUE   'OTP1'.
           03    S-DATA32    PIC X(4)   VALUE   'HSP '.
           03    S-DATA33    PIC X(1)   VALUE   X'00'.
           03    S-DATA34    PIC X(1)   VALUE   X'02'.
           03    S-DATA35    PIC X(1)   VALUE   X'00'.
           03    S-DATA36    PIC X(1)   VALUE   X'02'.
01    RCV-S1.
     02    MSG-RCVSYNC  PIC X(8)   VALUE   'RECVSYNC'.
     02    DATA73       PIC X(5).
     02    FILLER       PIC X(3).
     02    RCV-S-SEG    PIC X(4)   VALUE   'FRST'.
     02    DATA74       PIC X(4)   VALUE   SPACE.
     02    DATA75       PIC 9(8).
     02    DATA76       PIC 9(8).
     02    RCV-S-LEG    PIC 9(9)   COMP    VALUE   256.
     02    DATA77       PIC X(4)   VALUE   SPACE.
     02    DATA78       PIC X(4)   VALUE   SPACE.
     02    DATA79       PIC X(4)   VALUE   SPACE.
     02    DATA80       PIC X(4)   VALUE   SPACE.
     02    DATA81       PIC X(8)   VALUE   SPACE.
     02    DATA82       PIC X(4)   VALUE   SPACE.
     02    DATA83       PIC X(8)   VALUE   SPACE.
     02    DATA84       PIC X(4)   VALUE   SPACE.
     02    DATA85       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA86       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA87       PIC X(1)   VALUE   SPACE.
     02    DATA88       PIC X(1)   VALUE   SPACE.
     02    DATA89       PIC X(14)  VALUE   LOW-VALUE.
01    RCV-S2.
     02    DATA90       PIC X(4)   VALUE   SPACE.
     02    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     02    DATA92       PIC X(8)   VALUE   SPACE.
     02    DATA93       PIC X(8)   VALUE   SPACE.
     02    DATA94       PIC X(28)  VALUE   LOW-VALUE.
01    RCV-S3.
     02    DATA95       PIC 9(9)   COMP.
     02    DATA96       PIC X(8).
     02    DATA97       PIC X(1024).
01    SND-RCV1.
     02    MSG-SNDRCV   PIC X(8)   VALUE   'SENDRECV'.
     02    DATA101      PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA102      PIC X(4)   VALUE   SPACE.
     02    DATA103      PIC X(4)   VALUE   SPACE.
     02    DATA104      PIC 9(8).
     02    DATA105      PIC 9(8).
     02    SND-RCV-LEG  PIC 9(9)   COMP    VALUE   256.
     02    SND-RCV-SEG  PIC X(4)   VALUE   'EMI '.
     02    DATA106      PIC X(4)   VALUE   SPACE.
     02    DATA107      PIC X(4)   VALUE   SPACE.
     02    DATA108      PIC X(4)   VALUE   SPACE.
     02    DATA109      PIC X(8)   VALUE   SPACE.
     02    DATA110      PIC X(4)   VALUE   SPACE.
     02    DATA111      PIC X(8)   VALUE   SPACE.
     02    DATA112      PIC X(4)   VALUE   SPACE.
     02    PRO-CD       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA113      PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA113-1    PIC X(1)   VALUE   SPACE.
     02    DATA113-2    PIC X(1)   VALUE   SPACE.
     02    DATA114      PIC X(14)  VALUE   LOW-VALUE.
01    SND-RCV2.
     02    MSG          PIC X(4)   VALUE   'IO  '.
     02    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     02    DATA115      PIC X(8)   VALUE   SPACE.
     02    DATA116      PIC X(8)   VALUE   SPACE.
     02    DATA117      PIC X(28)  VALUE   LOW-VALUE.
01    SND-RCV3.
     02    MSG-SEG-LEG  PIC 9(9)   COMP    VALUE   18.
     02    DATA119      PIC X(8).
     02    SNDRCV-DATA.
           03    SR-DATA1    PIC X(1)   VALUE   X'00'.
           03    SR-DATA2    PIC X(1)   VALUE   X'0a'.
           03    SR-DATA3    PIC X(4)   VALUE   'OTP1'.
           03    SR-DATA4    PIC X(4)   VALUE   'EDR '.
           03    SR-DATA5    PIC X(1)   VALUE   X'00'.
           03    SR-DATA6    PIC X(1)   VALUE   X'06'.
           03    SR-DATA7    PIC X(1)   VALUE   X'00'.
           03    SR-DATA8    PIC X(1)   VALUE   X'04'.
           03    SR-DATA9    PIC X(2)   VALUE   'TR'.
           03    SR-DATA10   PIC X(1)   VALUE   X'00'.
           03    SR-DATA11   PIC X(1)   VALUE   X'02'.
01    SND-RCV4.
     02    DATA120      PIC 9(9)   COMP.
     02    DATA121-1    PIC X(7)   VALUE   SPACE.
     02    DATA121-2    PIC X(1).
     02    DATA123      PIC X(248).

PROCEDURE       DIVISION.
CALL  'CBLDCMCF'  USING  SND-S1   SND-S2   SND-S3.

CALL  'CBLDCMCF'  USING  RCV-S1   RCV-S2   RCV-S3.

CALL  'CBLDCMCF'  USING  SND-S4   SND-S5   SND-S6.

CALL  'CBLDCMCF'  USING  RCV-S1   RCV-S2   RCV-S3.

CALL  'CBLDCMCF'  USING  SND-S7   SND-S8   SND-S9.

CALL  'CBLDCMCF'  USING  SND-RCV1 SND-RCV2 SND-RCV3 SND-RCV4.

EXIT  PROGRAM.

(2) コンテンション敗者側(MHP)

IDENTIFICATION  DIVISION.
PROGRAM-ID.     RECV01.

ENVIRONMENT     DIVISION.

DATA            DIVISION.
WORKING-STORAGE SECTION.

01    RCV1.
     02    MSG-RCV      PIC X(8)   VALUE   'RECEIVE '.
     02    DATA1        PIC X(5).
     02    FILLER       PIC X(3).
     02    SEG-CODE     PIC X(4)   VALUE   'FRST'.
     02    DATA2        PIC X(4)   VALUE   SPACE.
     02    DATA3        PIC 9(8).
     02    DATA4        PIC 9(8).
     02    SEG-LENG     PIC 9(9)   COMP    VALUE   256.
     02    DATA5        PIC X(4)   VALUE   SPACE.
     02    DATA6        PIC X(4)   VALUE   SPACE.
     02    DATA7        PIC X(4)   VALUE   SPACE.
     02    DATA8        PIC X(4)   VALUE   SPACE.
     02    DATA9        PIC X(8)   VALUE   SPACE.
     02    DATA10       PIC X(4)   VALUE   SPACE.
     02    DATA11       PIC X(8)   VALUE   SPACE.
     02    DATA12       PIC X(4)   VALUE   SPACE.
     02    DATA13       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA13-1     PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA13-2     PIC X(1)   VALUE   SPACE.
     02    DATA13-3     PIC X(1)   VALUE   SPACE.
     02    DATA14       PIC X(14)  VALUE   LOW-VALUE.
01    RCV2.
     02    DATA15       PIC X(4)   VALUE   SPACE.
     02    RCV-TRM-NAM  PIC X(8).
     02    DATA17       PIC X(8)   VALUE   SPACE.
     02    DATA18       PIC X(8)   VALUE   SPACE.
     02    DATA20       PIC X(28)  VALUE   LOW-VALUE.
01    RCV3.
     02    DATA21       PIC 9(9)   COMP.
     02    DATA22       PIC X(8).
     02    DATA23       PIC X(1024).
01    SND1.
     02    MSG-SNDSYNC  PIC X(8)   VALUE   'SENDSYNC'.
     02    DATA24       PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA25       PIC X(4)   VALUE   SPACE.
     02    DATA26       PIC X(4)   VALUE   SPACE.
     02    DATA27       PIC 9(8).
     02    DATA28       PIC 9(8).
     02    DATA29       PIC 9(9)   COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)   VALUE   'EMI '.
     02    DATA30       PIC X(4)   VALUE   SPACE.
     02    DATA31       PIC X(4)   VALUE   SPACE.
     02    DATA32       PIC X(4)   VALUE   SPACE.
     02    DATA33       PIC X(8)   VALUE   SPACE.
     02    DATA34       PIC X(4)   VALUE   SPACE.
     02    DATA35       PIC X(8)   VALUE   SPACE.
     02    DATA36       PIC X(4)   VALUE   SPACE.
     02    DATA37       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA38       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA39       PIC X(1)   VALUE   SPACE.
     02    DATA40       PIC X(1)   VALUE   SPACE.
     02    DATA41       PIC X(14)  VALUE   LOW-VALUE.
01    SND2.
     02    SEG-CODE     PIC X(4)   VALUE   SPACE.
     02    S2-TRM-NAM   PIC X(8).
     02    DATA42       PIC X(8)   VALUE   SPACE.
     02    DATA43       PIC X(8)   VALUE   SPACE.
     02    DATA44       PIC X(28)  VALUE   LOW-VALUE.
01    SND3.
     02    DATA45       PIC 9(9)   COMP    VALUE   18.
     02    DATA46       PIC X(8).
     02    SEND-DATA.
           03    S-DATA1     PIC X(1)   VALUE   X'00'.
           03    S-DATA2     PIC X(1)   VALUE   X'0a'.
           03    S-DATA3     PIC X(4)   VALUE   'OTP1'.
           03    S-DATA4     PIC X(4)   VALUE   'BDPA'.
           03    S-DATA5     PIC X(1)   VALUE   X'00'.
           03    S-DATA6     PIC X(1)   VALUE   X'06'.
           03    S-DATA7     PIC X(1)   VALUE   X'00'.
           03    S-DATA8     PIC X(1)   VALUE   X'04'.
           03    S-DATA9     PIC X(2)   VALUE   'AC'.
           03    S-DATA10    PIC X(1)   VALUE   X'00'.
           03    S-DATA11    PIC X(1)   VALUE   X'02'.
01    RCV-S1.
     02    MSG-RCVSYNC  PIC X(8)   VALUE   'RECVSYNC'.
     02    DATA48       PIC X(5).
     02    FILLER       PIC X(3).
     02    RCV-S-SEG    PIC X(4)   VALUE   'FRST'.
     02    DATA49       PIC X(4)   VALUE   SPACE.
     02    DATA50       PIC 9(8).
     02    DATA51       PIC 9(8).
     02    RCV-S-LEG    PIC 9(9)   COMP    VALUE   256.
     02    DATA52       PIC X(4)   VALUE   SPACE.
     02    DATA53       PIC X(4)   VALUE   SPACE.
     02    DATA54       PIC X(4)   VALUE   SPACE.
     02    DATA55       PIC X(4)   VALUE   SPACE.
     02    DATA56       PIC X(8)   VALUE   SPACE.
     02    DATA57       PIC X(4)   VALUE   SPACE.
     02    DATA58       PIC X(8)   VALUE   SPACE.
     02    DATA59       PIC X(4)   VALUE   SPACE.
     02    DATA60       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA61       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA62       PIC X(1)   VALUE   SPACE.
     02    DATA63       PIC X(1)   VALUE   SPACE.
     02    DATA64       PIC X(14)  VALUE   LOW-VALUE.
01    RCV-S2.
     02    DATA65       PIC X(4)   VALUE   SPACE.
     02    R2-TRM-NAM   PIC X(8).
     02    DATA67       PIC X(8)   VALUE   SPACE.
     02    DATA68       PIC X(8)  VALUE   SPACE.
     02    DATA69       PIC X(28)  VALUE   LOW-VALUE.
01    RCV-S3.
     02    DATA70       PIC 9(9)  COMP.
     02    DATA71       PIC X(8).
     02    DATA72       PIC X(1024).
01    SND-RCV1.
     02    MSG-SNDRCV   PIC X(8)  VALUE   'SENDRECV'.
     02    DATA76       PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA77       PIC X(4)  VALUE   SPACE.
     02    DATA78       PIC X(4)  VALUE   SPACE.
     02    DATA79       PIC 9(8).
     02    DATA80       PIC 9(8).
     02    SND-RCV-LEG  PIC 9(9)   COMP    VALUE   256.
     02    SND-RCV-SEG  PIC X(4)  VALUE   'EMI '.
     02    DATA81       PIC X(4)  VALUE   SPACE.
     02    DATA82       PIC X(4)  VALUE   SPACE.
     02    DATA83       PIC X(4)  VALUE   SPACE.
     02    DATA84       PIC X(8)  VALUE   SPACE.
     02    DATA85       PIC X(4)  VALUE   SPACE.
     02    DATA86       PIC X(8)  VALUE   SPACE.
     02    DATA87       PIC X(4)  VALUE   SPACE.
     02    PRO-CD       PIC 9(9)  COMP    VALUE   ZERO.
     02    DATA88       PIC 9(9)  COMP    VALUE   ZERO.
     02    DATA88-1     PIC X(1)  VALUE   SPACE.
     02    DATA88-2     PIC X(1)  VALUE   SPACE.
     02    DATA89       PIC X(14) VALUE   LOW-VALUE.
01    SND-RCV2.
     02    MSG          PIC X(4)  VALUE   'IO  '.
     02    SR-TRM-NAM   PIC X(8).
     02    DATA90       PIC X(8)  VALUE   SPACE.
     02    DATA91       PIC X(8)  VALUE   SPACE.
     02    DATA92       PIC X(28) VALUE   LOW-VALUE.
01    SND-RCV3.
     02    MSG-SEG-LEG  PIC 9(9)  COMP    VALUE   18.
     02    DATA94       PIC X(8).
     02    SNDRCV-DATA.
           03    SR-DATA1    PIC X(1)   VALUE   X'00'.
           03    SR-DATA2    PIC X(1)   VALUE   X'0a'.
           03    SR-DATA3    PIC X(4)   VALUE   'OTP1'.
           03    SR-DATA4    PIC X(4)   VALUE   'HSR '.
           03    SR-DATA5    PIC X(1)   VALUE   X'00'.
           03    SR-DATA6    PIC X(1)   VALUE   X'06'.
           03    SR-DATA7    PIC X(1)   VALUE   X'00'.
           03    SR-DATA8    PIC X(1)   VALUE   X'04'.
           03    SR-DATA9    PIC X(2)   VALUE   'NR'.
           03    SR-DATA10   PIC X(1)   VALUE   X'00'.
           03    SR-DATA11   PIC X(1)   VALUE   X'02'.
01    SND-RCV4.
     02    DATA95       PIC 9(9)  COMP.
     02    DATA96-1     PIC X(7)   VALUE   SPACE.
     02    DATA96-2     PIC X(1).
     02    DATA98       PIC X(248).
01    SND4.
     02    MSG-SNDSYNC  PIC X(8)  VALUE   'SENDSYNC'.
     02    DATA100      PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA101      PIC X(4)  VALUE   SPACE.
     02    DATA102      PIC X(4)  VALUE   SPACE.
     02    DATA103      PIC 9(8).
     02    DATA104      PIC 9(8).
     02    DATA105      PIC 9(9)  COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)  VALUE   'EMI '.
     02    DATA106      PIC X(4)  VALUE   SPACE.
     02    DATA107      PIC X(4)  VALUE   SPACE.
     02    DATA108      PIC X(4)  VALUE   SPACE.
     02    DATA109      PIC X(8)  VALUE   SPACE.
     02    DATA110      PIC X(4)  VALUE   SPACE.
     02    DATA111      PIC X(8)  VALUE   SPACE.
     02    DATA112      PIC X(4)  VALUE   SPACE.
     02    DATA113      PIC 9(9)  COMP    VALUE   ZERO.
     02    DATA114      PIC 9(9)  COMP    VALUE   ZERO.
     02    DATA115      PIC X(1)  VALUE   SPACE.
     02    DATA116      PIC X(1)  VALUE   SPACE.
     02    DATA117      PIC X(14) VALUE   LOW-VALUE.
01    SND5.
     02    SEG-CODE     PIC X(4)  VALUE   SPACE.
     02    S5-TRM-NAM   PIC X(8).
     02    DATA120      PIC X(8)  VALUE   SPACE.
     02    DATA121      PIC X(8)  VALUE   SPACE.
     02    DATA122      PIC X(28) VALUE   LOW-VALUE.
01    SND6.
     02    DATA123      PIC 9(9)  COMP    VALUE   14.
     02    DATA124      PIC X(8).
     02    SEND-DATA.
           03    S-DATA11    PIC X(1)   VALUE   X'00'.
           03    S-DATA12    PIC X(1)   VALUE   X'0a'.
           03    S-DATA13    PIC X(4)   VALUE   'OTP1'.
           03    S-DATA14    PIC X(4)   VALUE   'EDP '.
           03    S-DATA15    PIC X(1)   VALUE   X'00'.
           03    S-DATA16    PIC X(1)   VALUE   X'02'.
           03    S-DATA17    PIC X(1)   VALUE   X'00'.
           03    S-DATA18    PIC X(1)   VALUE   X'02'.

PROCEDURE       DIVISION.
CALL  'CBLDCMCF'    USING  RCV1     RCV2     RCV3.
MOVE  RCV-TRM-NAM   TO     S2-TRM-NAM.
CALL  'CBLDCMCF'    USING  SND1     SND2     SND3.
MOVE  RCV-TRM-NAM   TO     R2-TRM-NAM.
CALL  'CBLDCMCF'    USING  RCV-S1   RCV-S2   RCV-S3.
MOVE  RCV-TRM-NAM   TO     SR-TRM-NAM.
CALL  'CBLDCMCF'    USING  SND-RCV1 SND-RCV2 SND-RCV3 SND-RCV4.
MOVE  RCV-TRM-NAM   TO     R2-TRM-NAM.
CALL  'CBLDCMCF'    USING  RCV-S1   RCV-S2   RCV-S3.
MOVE  RCV-TRM-NAM   TO     S5-TRM-NAM.
CALL  'CBLDCMCF'    USING  SND4     SND5     SND6.

EXIT    PROGRAM.