DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

25
Copybook/DTSISSF.cpy Normal file
View 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