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