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