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