付録E.5 ユーザアプリケーションプログラムのコーディング例(半二重での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'88'.
           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    DATA47       PIC X(8).
     02    SEND-DATA2.
           03    S-DATA281   PIC 9(4)   COMP    VALUE   10.
           03    S-DATA282   PIC X(4)   VALUE   'OTP1'.
           03    S-DATA283   PIC X(4)   VALUE   'TDR '.
           03    S-DATA285   PIC 9(4)   COMP    VALUE   2.

           03    S-DATA287   PIC 9(4)   VALUE   11.
           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   18.
     02    DATA71       PIC X(8).
     02    SEND-DATA3.
           03    S-DATA329   PIC X(1)   VALUE   X'00'.
           03    S-DATA330   PIC X(1)   VALUE   X'0a'.
           03    S-DATA331   PIC X(4)   VALUE   'OTP1'.
           03    S-DATA332   PIC X(4)   VALUE   'HGR '.
           03    S-DATA333   PIC X(1)   VALUE   X'00'.
           03    S-DATA334   PIC X(1)   VALUE   X'06'.
           03    S-DATA335   PIC X(1)   VALUE   X'00'.
           03    S-DATA336   PIC X(1)   VALUE   X'04'.
           03    S-DATA337   PIC X(2)   VALUE   'UR'.
           03    S-DATA338   PIC X(1)   VALUE   X'00'.
           03    S-DATA339   PIC X(1)   VALUE   X'02'.

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    TRM-NAME     PIC X(8)   VALUE   'otm01   '.
     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    DATA130      PIC 9(9)   COMP    VALUE   14.
     02    DATA131      PIC X(8).
     02    SEND-DATA.
           03    S-DATA311   PIC 9(4)   COMP    VALUE   10.
           03    S-DATA312   PIC X(4)   VALUE   'OTP1'.
           03    S-DATA313   PIC X(4)   VALUE   'EDP '.
           03    S-DATA314   PIC X(1)   VALUE   X'00'.
           03    S-DATA315   PIC X(1)   VALUE   X'02'.
           03    S-DATA316   PIC X(1)   VALUE   X'00'.
           03    S-DATA317   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).

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  SND-S7  SND-S8  SND-S9.

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

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

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

CALL  'CBLDCMCF'    USING  SND4    SND5    SND6.

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(6)   VALUE   SPACE.
     02    DATA19       PIC X(2)   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 9(4)   COMP    VALUE   10.
           03    S-DATA2     PIC X(4)   VALUE   'OTP1'.
           03    S-DATA3     PIC X(4)   VALUE   'BDPA'.
           03    S-DATA4     PIC 9(4)   COMP    VALUE   6.
           03    S-DATA5     PIC 9(4)   COMP    VALUE   4.
           03    S-DATA6     PIC X(2)   VALUE   'AC'.
           03    S-DATA7     PIC 9(4)   COMP    VALUE   2.
01    RCV4.
     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    RCV5.
     02    DATA65       PIC X(4)   VALUE   SPACE.
     02    R5-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    RCV6.
     02    DATA70       PIC 9(9)   COMP.
     02    DATA71       PIC X(8).
     02    DATA72       PIC X(1024).
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    DATA130      PIC 9(9)   COMP    VALUE   14.
     02    DATA131      PIC X(8).
     02    SEND-DATA.
           03    S-DATA11    PIC 9(4)   COMP    VALUE   10.
           03    S-DATA12    PIC X(4)   VALUE   'OTP1'.
           03    S-DATA13    PIC X(4)   VALUE   'HGP '.
           03    S-DATA14    PIC 9(4)   COMP    VALUE   2.
           03    S-DATA15    PIC 9(4)   COMP    VALUE   2.
01    SND7.
     02    MSG-SNDSYNC  PIC X(8)   VALUE   'SENDSYNC'.
     02    DATA225      PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA226      PIC X(4)   VALUE   SPACE.
     02    DATA227      PIC X(4)   VALUE   SPACE.
     02    DATA228      PIC 9(8).
     02    DATA229      PIC 9(8).
     02    DATA230      PIC 9(9)   COMP    VALUE   ZERO.
     02    SND-S-SEG    PIC X(4)   VALUE   'EMI '.
     02    DATA231      PIC X(4)   VALUE   SPACE.
     02    DATA232      PIC X(4)   VALUE   SPACE.
     02    DATA233      PIC X(4)   VALUE   SPACE.
     02    DATA234      PIC X(8)   VALUE   SPACE.
     02    DATA235      PIC X(4)   VALUE   SPACE.
     02    DATA236      PIC X(8)   VALUE   SPACE.
     02    DATA237      PIC X(4)   VALUE   SPACE.
     02    DATA238      PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA239      PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA240      PIC X(1)   VALUE   SPACE.
     02    DATA241      PIC X(1)   VALUE   SPACE.
     02    DATA242      PIC X(14)  VALUE   LOW-VALUE.
01    SND8.
     02    SEG-CODE     PIC X(4)   VALUE   SPACE.
     02    S8-TRM-NAM   PIC X(8).
     02    DATA243      PIC X(8)   VALUE   SPACE.
     02    DATA244      PIC X(8)   VALUE   SPACE.
     02    DATA245      PIC X(28)  VALUE   LOW-VALUE.
01    SND9.
     02    DATA246      PIC 9(9)   COMP    VALUE   23.
     02    DATA247      PIC X(8).
     02    SEND-DATA2.
           03    S-DATA281   PIC 9(4)   COMP    VALUE   10.
           03    S-DATA282   PIC X(4)   VALUE   'OTP1'.
           03    S-DATA283   PIC X(4)   VALUE   'TDR '.
           03    S-DATA284   PIC 9(4)   COMP    VALUE   2.
           03    S-DATA285   PIC 9(4)   COMP    VALUE   11.
           03    S-DATA286   PIC X(1)   VALUE   X'80'.
           03    S-DATA287   PIC X(8)   VALUE   'USERDATA'.
01    SND-RCV1.
     02    MSG-SNDRCV   PIC X(8)   VALUE   'SENDRECV'.
     02    DATA301      PIC X(5).
     02    FILLER       PIC X(3).
     02    DATA302      PIC X(4)   VALUE   SPACE.
     02    DATA303      PIC X(4)   VALUE   SPACE.
     02    DATA304      PIC 9(8).
     02    DATA305      PIC 9(8).
     02    SND-RCV-LEG  PIC 9(9)   COMP    VALUE   256.
     02    SND-RCV-SEG  PIC X(4)   VALUE   'EMI '.
     02    DATA306      PIC X(4)   VALUE   SPACE.
     02    DATA307      PIC X(4)   VALUE   SPACE.
     02    DATA308      PIC X(4)   VALUE   SPACE.
     02    DATA309      PIC X(8)   VALUE   SPACE.
     02    DATA310      PIC X(4)   VALUE   SPACE.
     02    DATA311      PIC X(8)   VALUE   SPACE.
     02    DATA312      PIC X(4)   VALUE   SPACE.
     02    PRO-CD       PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA313      PIC 9(9)   COMP    VALUE   ZERO.
     02    DATA313-1    PIC X(1)   VALUE   SPACE.
     02    DATA313-2    PIC X(1)   VALUE   SPACE.
     02    DATA314      PIC X(14)  VALUE   LOW-VALUE.
01    SND-RCV2.
     02    MSG          PIC X(4)   VALUE   'IO  '.
     02    SR-TRM-NAM   PIC X(8).
     02    DATA315      PIC X(8)   VALUE   SPACE.
     02    DATA316      PIC X(8)   VALUE   SPACE.
     02    DATA318      PIC X(28)  VALUE   LOW-VALUE.
01    SND-RCV3.
     02    MSG-SEG-LEG  PIC 9(9)   COMP    VALUE   18.
     02    DATA319      PIC X(8).
     02    SNDRCV-DATA.
           03    SR-DATA1    PIC 9(4)   COMP    VALUE   10.
           03    SR-DATA2    PIC X(4)   VALUE   'OTP1'.
           03    SR-DATA3    PIC X(4)   VALUE   'EDR '.
           03    SR-DATA4    PIC 9(4)   COMP    VALUE   6.
           03    SR-DATA5    PIC 9(4)   COMP    VALUE   4.
           03    SR-DATA6    PIC X(2)   VALUE   'TR'.
           03    SR-DATA7    PIC 9(4)   COMP    VALUE   2.
01    SND-RCV4.
     02    DATA320      PIC 9(9)   COMP.
     02    DATA321      PIC X(7)   VALUE   SPACE.
     02    DATA322      PIC X(1).
     02    DATA323      PIC X(1024).

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     R5-TRM-NAM.
CALL  'CBLDCMCF'   USING  RCV4     RCV5     RCV6.
MOVE  RCV-TRM-NAM  TO     R5-TRM-NAM.
CALL  'CBLDCMCF'   USING  RCV4     RCV5     RCV6.
MOVE  RCV-TRM-NAM  TO     S5-TRM-NAM.
CALL  'CBLDCMCF'   USING  SND4     SND5     SND6.
MOVE  RCV-TRM-NAM  TO     S8-TRM-NAM.
CALL  'CBLDCMCF'   USING  SND7     SND8     SND9.
MOVE  RCV-TRM-NAM  TO     SR-TRM-NAM.
CALL  'CBLDCMCF'   USING  SND-RCV1 SND-RCV2 SND-RCV3 SND-RCV4.

EXIT    PROGRAM.