DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
25
Copybook/DTSISSF.cpy
Normal file
25
Copybook/DTSISSF.cpy
Normal file
@ -0,0 +1,25 @@
|
||||
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
|
||||
Reference in New Issue
Block a user