26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSISSF
|
|
00003 * DTSISSF SIGN OFF SEND/RECEIVE AREA. LV003
|
|
00004 * DTSISSF
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
|
00006 * CL**3
|
|
00007 ***** DTSISSF
|
|
00008 CL**2
|
|
00009 10 FILLER PIC X(12). DTSISSF
|
|
00010 CL**2
|
|
00011 10 MAP-CURSOR-FIELD. DTSISSF
|
|
00012 15 MAP-CURSOR-FIELD-L PIC S9(04) COMP. DTSISSF
|
|
00013 15 MAP-CURSOR-FIELD-A PIC X(01). DTSISSF
|
|
00014 15 MAP-CURSOR-FIELD PIC X(01). DTSISSF
|
|
00015 CL**2
|
|
00016 10 MAP-MSG-AREA. DTSISSF
|
|
00017 15 MAP-MSG-ID-AREA. DTSISSF
|
|
00018 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSISSF
|
|
00019 20 MAP-MSG-ID-A PIC X(01). DTSISSF
|
|
00020 20 MAP-MSG-ID PIC X(08). DTSISSF
|
|
00021 CL**2
|
|
00022 15 MAP-MSG-TEXT-AREA. DTSISSF
|
|
00023 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSISSF
|
|
00024 20 MAP-MSG-TEXT-A PIC X(01). DTSISSF
|
|
00025 20 MAP-MSG-TEXT PIC X(58). DTSISSF
|