46 lines
3.5 KiB
COBOL
46 lines
3.5 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSISSM
|
|
00003 * DTSISSM SECONDARY MENU SEND/RECEIVE AREA. LV003
|
|
00004 * DTSISSM
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
|
00006 * CL**3
|
|
00007 ***** DTSISSM
|
|
00008 CL**2
|
|
00009 10 FILLER PIC X(12). DTSISSM
|
|
00010 CL**2
|
|
00011 10 MAP-SCR-TYPE-AREA. DTSISSM
|
|
00012 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSISSM
|
|
00013 15 MAP-SCR-TYPE-A PIC X(01). DTSISSM
|
|
00014 15 MAP-SCR-TYPE PIC X(02). DTSISSM
|
|
00015 CL**2
|
|
00016 10 MAP-CICS-REGION-NAME-AREA. DTSISSM
|
|
00017 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSISSM
|
|
00018 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSISSM
|
|
00019 15 MAP-CICS-REGION-NAME PIC X(08). DTSISSM
|
|
00020 CL**2
|
|
00021 10 MAP-SYS-DATE-AREA. DTSISSM
|
|
00022 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSISSM
|
|
00023 15 MAP-SYS-DATE-A PIC X(01). DTSISSM
|
|
00024 15 MAP-SYS-DATE PIC X(08). DTSISSM
|
|
00025 CL**2
|
|
00026 10 MAP-SYS-TIME-AREA. DTSISSM
|
|
00027 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSISSM
|
|
00028 15 MAP-SYS-TIME-A PIC X(01). DTSISSM
|
|
00029 15 MAP-SYS-TIME PIC X(08). DTSISSM
|
|
00030 CL**2
|
|
00031 10 MAP-OPT-AREA. DTSISSM
|
|
00032 15 MAP-OPT-L PIC S9(04) COMP. DTSISSM
|
|
00033 15 MAP-OPT-A PIC X(01). DTSISSM
|
|
00034 15 MAP-OPT PIC X(02). DTSISSM
|
|
00035 CL**2
|
|
00036 10 MAP-MSG-AREA. DTSISSM
|
|
00037 15 MAP-MSG-ID-AREA. DTSISSM
|
|
00038 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISSM
|
|
00039 20 MAP-MSG-ID-A PIC X(01). DTSISSM
|
|
00040 20 MAP-MSG-ID PIC X(08). DTSISSM
|
|
00041 CL**2
|
|
00042 15 MAP-MSG-TEXT-AREA. DTSISSM
|
|
00043 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISSM
|
|
00044 20 MAP-MSG-TEXT-A PIC X(01). DTSISSM
|
|
00045 20 MAP-MSG-TEXT PIC X(58). DTSISSM
|