68 lines
5.2 KiB
COBOL
68 lines
5.2 KiB
COBOL
00001 ***** 09/13/12
|
|
00002 * DTSIS00
|
|
00003 * DTSIS00 MAIN MENU SEND/RECEIVE AREA. LV006
|
|
00004 * DTSIS00
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSIS00
|
|
00006 * DTSIS00
|
|
00007 ***** DTSIS00
|
|
00008 DTSIS00
|
|
00009 10 FILLER PIC X(12). DTSIS00
|
|
00010 DTSIS00
|
|
00011 10 MAP-SCR-TYPE-AREA. DTSIS00
|
|
00012 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS00
|
|
00013 15 MAP-SCR-TYPE-A PIC X(01). DTSIS00
|
|
00014 15 MAP-SCR-TYPE PIC X(02). DTSIS00
|
|
00015 DTSIS00
|
|
00016 10 MAP-CURR-RUN-DATE1-AREA. DTSIS00
|
|
00017 15 MAP-CURR-RUN-DATE1-L PIC S9(04) COMP. DTSIS00
|
|
00018 15 MAP-CURR-RUN-DATE1-A PIC X(01). DTSIS00
|
|
00019 15 MAP-CURR-RUN-DATE1 PIC X(09). DTSIS00
|
|
00020 DTSIS00
|
|
00021 10 MAP-CICS-REGION-NAME-AREA. DTSIS00
|
|
00022 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS00
|
|
00023 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS00
|
|
00024 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS00
|
|
00025 DTSIS00
|
|
00026 10 MAP-SYS-DATE-AREA. DTSIS00
|
|
00027 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS00
|
|
00028 15 MAP-SYS-DATE-A PIC X(01). DTSIS00
|
|
00029 15 MAP-SYS-DATE PIC X(08). DTSIS00
|
|
00030 DTSIS00
|
|
00031 10 MAP-SYS-TIME-AREA. DTSIS00
|
|
00032 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS00
|
|
00033 15 MAP-SYS-TIME-A PIC X(01). DTSIS00
|
|
00034 15 MAP-SYS-TIME PIC X(08). DTSIS00
|
|
00035 DTSIS00
|
|
00036 10 MAP-OP-ID-AREA. DTSIS00
|
|
00037 15 MAP-OP-ID-L PIC S9(04) COMP. DTSIS00
|
|
00038 15 MAP-OP-ID-A PIC X(01). DTSIS00
|
|
00039 15 MAP-OP-ID PIC X(08). DTSIS00
|
|
00040 DTSIS00
|
|
00041 10 MAP-OPT-AREA. DTSIS00
|
|
00042 15 MAP-OPT-L PIC S9(04) COMP. DTSIS00
|
|
00043 15 MAP-OPT-A PIC X(01). DTSIS00
|
|
00044 15 MAP-OPT PIC X(02). DTSIS00
|
|
00045 DTSIS00
|
|
00046 10 MAP-OP-ALARM-IND-AREA. DTSIS00
|
|
00047 15 MAP-OP-ALARM-IND-L PIC S9(04) COMP. DTSIS00
|
|
00048 15 MAP-OP-ALARM-IND-A PIC X(01). DTSIS00
|
|
00049 15 MAP-OP-ALARM-IND PIC X(01). DTSIS00
|
|
00050 88 MAP-OP-ALARM-VALID-88 VALUE 'Y' 'N' 'M' 'P' DTSIS00
|
|
00051 'E'. DTSIS00
|
|
00052 DTSIS00
|
|
00053 10 MAP-OP-NAME-AREA. DTSIS00
|
|
00054 15 MAP-OP-NAME-L PIC S9(04) COMP. DTSIS00
|
|
00055 15 MAP-OP-NAME-A PIC X(01). DTSIS00
|
|
00056 15 MAP-OP-NAME PIC X(12). DTSIS00
|
|
00057 DTSIS00
|
|
00058 10 MAP-MSG-AREA. DTSIS00
|
|
00059 15 MAP-MSG-ID-AREA. DTSIS00
|
|
00060 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS00
|
|
00061 20 MAP-MSG-ID-A PIC X(01). DTSIS00
|
|
00062 20 MAP-MSG-ID PIC X(08). DTSIS00
|
|
00063 DTSIS00
|
|
00064 15 MAP-MSG-TEXT-AREA. DTSIS00
|
|
00065 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS00
|
|
00066 20 MAP-MSG-TEXT-A PIC X(01). DTSIS00
|
|
00067 20 MAP-MSG-TEXT PIC X(58). DTSIS00
|