90 lines
7.0 KiB
COBOL
90 lines
7.0 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSIL851
|
|
00003 * DTSIL851 MAP SEND/RECEIVE MODULE LINKAGE. LV003
|
|
00004 * DTSIL851
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
|
00006 * CL**3
|
|
00007 * CL**3
|
|
00008 * LINK EXAMPLE: DTSIL851
|
|
00009 * DTSIL851
|
|
00010 * 01 L851-COMM-AREA. DTSIL851
|
|
00011 * COPY DTSIL851. CL**2
|
|
00012 * SKIP3 DTSIL851
|
|
00013 * 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSIL851
|
|
00014 * COPY DTSIS42. CL**2
|
|
00015 * DTSIL851
|
|
00016 * DTSIL851
|
|
00017 * EXEC CICS DTSIL851
|
|
00018 * LINK DTSIL851
|
|
00019 * PROGRAM ('DTSCU851') CL**2
|
|
00020 * COMMAREA (L851-COMM-AREA) DTSIL851
|
|
00021 * END-EXEC. DTSIL851
|
|
00022 * DTSIL851
|
|
00023 * DTSIL851
|
|
00024 * L851-CMND-CD COMMAND CODE. DTSIL851
|
|
00025 * DTSIL851
|
|
00026 * L851-SCR-ID SCREEN ID OF THE SCREEN TO BE SENT DTSIL851
|
|
00027 * OR RECEIVED. DTSIL851
|
|
00028 * DTSIL851
|
|
00029 * L851-AID RETURNED FOLLOWING A RECEIVE. AID KEY DTSIL851
|
|
00030 * PRESSED BY TERMINAL OPERATOR. UPON DTSIL851
|
|
00031 * RETURN FROM DTSCU851 AFTER A RECEIVE, CL**2
|
|
00032 * MOVE L851-AID TO LCCM-AID. DTSIL851
|
|
00033 * DTSIL851
|
|
00034 * L851-CURSOR RETURNED FOLLOWING A RECEIVE. CURSOR DTSIL851
|
|
00035 * POSITION. UPON RETURN FROM DTSCU851 AFTER CL**2
|
|
00036 * A RECEIVE, MOVE L851-CURSOR TO LCCM-CURSOR. DTSIL851
|
|
00037 * DTSIL851
|
|
00038 * HAS NO MEANING ON A SEND. DTSIL851
|
|
00039 * ALL SEND COMMANDS INCLUDE THE "CURSOR" DTSIL851
|
|
00040 * OPTION. THE LINKING MODULE MUST INDICATE DTSIL851
|
|
00041 * CURSOR POSITION BY MOVING A VALUE OF -1 DTSIL851
|
|
00042 * TO A MAP-*-L FIELD PRIOR TO THE 'SEND' DTSIL851
|
|
00043 * TO DTSCU851. CL**2
|
|
00044 * DTSIL851
|
|
00045 * L851-ALARM-IND USED BY DTSCU851 (IN CONJUNCTION WITH CL**2
|
|
00046 * L851-MSG-TYPE) DURING A SEND TO DETERMINE DTSIL851
|
|
00047 * WHETHER THE TERMINAL ALARM IS SOUNDED. DTSIL851
|
|
00048 * MOVE LCCM-ALARM-IND TO L851-ALARM-IND PRIOR DTSIL851
|
|
00049 * TO THE 'SEND' LINK TO DTSCU851. CL**2
|
|
00050 * DTSIL851
|
|
00051 * L851-MSG-TYPE USED BY DTSCU851 (IN CONJUNCTION WITH CL**2
|
|
00052 * L851-ALARM-IND) DURING A SEND TO DETERMINE DTSIL851
|
|
00053 * WHETHER THE TERMINAL ALARM IS SOUNDED DTSIL851
|
|
00054 * DURING THE SEND. MOVE LCCM-MSG-TYPE TO DTSIL851
|
|
00055 * L851-MSG-TYPE PRIOR TO THE 'SEND' LINK DTSIL851
|
|
00056 * TO DTSCU851. CL**2
|
|
00057 * DTSIL851
|
|
00058 ***** DTSIL851
|
|
00059 DTSIL851
|
|
00060 *****05 L851-LENGTH PIC S9(04) COMP CL**2
|
|
00061 *********************************************VALUE +2048. CL**2
|
|
00062 SKIP3 DTSIL851
|
|
00063 05 L851-CONTROL-AREA. DTSIL851
|
|
00064 10 L851-CMND-CD PIC X(03). DTSIL851
|
|
00065 88 L851-RECEIVE-88 VALUE 'R '. DTSIL851
|
|
00066 *************88 L851-RECEIVE-ASIS-88 VALUE 'RAS'. DTSIL851
|
|
00067 88 L851-SEND-88 VALUE 'S '. DTSIL851
|
|
00068 88 L851-SEND-DATAONLY-88 VALUE 'SDO'. DTSIL851
|
|
00069 DTSIL851
|
|
00070 10 L851-SCR-ID PIC X(02). DTSIL851
|
|
00071 SKIP2 DTSIL851
|
|
00072 10 L851-AID PIC X(01). DTSIL851
|
|
00073 DTSIL851
|
|
00074 10 L851-CURSOR. DTSIL851
|
|
00075 15 L851-CURSOR-ROW PIC S9(04) COMP. DTSIL851
|
|
00076 15 L851-CURSOR-COL PIC S9(04) COMP. DTSIL851
|
|
00077 SKIP2 DTSIL851
|
|
00078 10 L851-ALARM-IND PIC X(01). DTSIL851
|
|
00079 DTSIL851
|
|
00080 10 L851-MSG-TYPE PIC X(01). DTSIL851
|
|
00081 88 L851-NO-MSG-88 VALUE ' '. DTSIL851
|
|
00082 88 L851-PROMPT-MSG-88 VALUE 'P'. DTSIL851
|
|
00083 88 L851-ERROR-MSG-88 VALUE 'E'. DTSIL851
|
|
00084 *************88 L851-WH-OFLT-MSG-88 VALUE 'R'. CL**2
|
|
00085 88 L851-MSG-88 VALUE 'P' 'E'. CL**2
|
|
00086 SKIP3 DTSIL851
|
|
00087 10 FILLER PIC X(52). CL**2
|
|
00088 SKIP2 DTSIL851
|
|
00089 05 L851-MAP-AREA PIC X(1984). DTSIL851
|