***************************************************************
* MHP SERVICE PROGRAM *
***************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. SVRA.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
***************************************************************
* WORKING STORAGE *
***************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
***************************************************************
* AREA FOR MESSAGE RECEIVING *
***************************************************************
01 RECV-AREA.
02 RE-DATALENG PIC 9(4) COMP.
02 RE-RSV1 PIC X(2).
02 RE-DATA PIC X(1024).
***************************************************************
* AREA FOR APPLICATION BOOTING MESSAGE *
***************************************************************
01 SEND-PRO-AREA.
02 PRO-DATALENG PIC 9(4) COMP VALUE 29.
02 PRO-RSV1 PIC X(2).
02 PRO-DATA1 PIC X(9) VALUE SPACE.
02 PRO-DATA2 PIC X(16) VALUE 'SVRA EXECAP DATA'.
***************************************************************
* AREA FOR MESSAGE SENDING *
***************************************************************
01 SEND-AREA.
02 SE-DATALENG PIC 9(4) COMP VALUE 29.
02 SE-RSV1 PIC X(2).
02 SE-DATA1 PIC X(9) VALUE X'C1D7D3F0F240404040'.
02 SE-DATA2 PIC X(16) VALUE 'SVRA SEND DATA'.
COMMUNICATION SECTION.
***************************************************************
* RECEIVE OF MESSAGE (COMMUNICATION DESCRIPTION TERM) *
***************************************************************
CD RECV-INF
FOR INPUT
STATUS KEY IS RE-STATUS
SYMBOLIC TERMINAL IS RE-TERMNAM
MESSAGE DATE IS RE-DATE
MESSAGE TIME IS RE-TIME.
***************************************************************
* APPLICATION PROGRAM BOOTING (COMMUNICATION DESCRIPTON TERM) *
***************************************************************
CD SEND-PRO
FOR OUTPUT PROGRAM
STATUS KEY IS SE-STATUS-PRO
SYMBOLIC TERMINAL IS SE-TERMNAM-PRO.
***************************************************************
* SEND OF MESSAGE (COMMUNICATIO DESCRIPTION TERM) *
***************************************************************
CD SEND-INF
FOR OUTPUT
STATUS KEY IS SE-STATUS
SYMBOLIC TERMINAL IS SE-TERMNAM.
PROCEDURE DIVISION.
***************************************************************
* RECEIVE OF MESSAGE (COMMUNICATION DESCRIPTION SENTENCE) *
***************************************************************
MOVE 1028 TO RE-DATALENG.
RECEIVE RECV-INF
FIRST SEGMENT
INTO RECV-AREA.
IF RE-STATUS IS NOT EQUAL '00000'
***************************************************************
* PARTIAL RECOVERY *
***************************************************************
ROLLBACK WITH STOPPING.
***************************************************************
* APPLICATION PROGRAM BOOTING (COMMUNICATION SENTENCE) *
***************************************************************
MOVE 'APL01 ' TO SE-TERMNAM-PRO.
SEND SEND-PRO
FROM SEND-PRO-AREA
WITH EMI.
IF SE-STATUS-PRO IS NOT EQUAL '00000'
***************************************************************
* PARTIAL RECOVERY *
***************************************************************
ROLLBACK WITH STOPPING.
***************************************************************
* SEND OF MESSAGE (COMMUNICATION SENTENCE) *
***************************************************************
MOVE 'NFLE02 ' TO SE-TERMNAM.
SEND SEND-INF
FROM SEND-AREA
WITH EMI.
IF SE-STATUS IS NOT EQUAL '00000'
***************************************************************
* PARTIAL RECOVERY *
***************************************************************
ROLLBACK WITH STOPPING.
***************************************************************
* END PROCESSING *
***************************************************************
EXIT PROGRAM.