giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

33
Copybook/DTSIL805.cpy Normal file
View File

@ -0,0 +1,33 @@
00001 ***** 08/11/98
00002 * DTSIL805
00003 * DTSIL805 BUILD SCREEN MESSAGE LINE MODULE LINKAGE. LV005
00004 * DTSIL805
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**5
00006 * CL**5
00007 ***** DTSIL805
00008 CL**2
00009 *********10 L805-LENGTH PIC S9(04) COMP CL**2
00010 *********************************************VALUE +150. CL**2
00011 CL**2
00012 10 L805-MSG-AREA. DTSIL805
00013 15 L805-MSG-ID. DTSIL805
00014 88 L805-CONSTRUCT-88 VALUE 'E051'. DTSIL805
00015 20 L805-MSG-TYPE PIC X(01). DTSIL805
00016 88 L805-NO-MSG VALUE ' '. DTSIL805
00017 88 L805-PROMPT-MSG VALUE 'P'. DTSIL805
00018 88 L805-ERROR-MSG VALUE 'E'. DTSIL805
00019 88 L805-MSG VALUE 'P' 'E'. DTSIL805
00020 20 L805-MSG-NO PIC X(03). DTSIL805
00021 15 L805-MSG-TEXT PIC X(60). DTSIL805
00022 CL**2
00023 10 FILLER PIC X(14). CL**4
00024 CL**4
00025 10 L805-S-MSG-AREA. DTSIL805
00026 15 L805-S-MSG-ID-AREA. DTSIL805
00027 20 L805-S-MSG-ID-L PIC S9(04) COMP. DTSIL805
00028 20 L805-S-MSG-ID-A PIC X(01). DTSIL805
00029 20 L805-S-MSG-ID PIC X(08). DTSIL805
00030 15 L805-S-MSG-TEXT-AREA. DTSIL805
00031 20 L805-S-MSG-TEXT-L PIC S9(04) COMP. DTSIL805
00032 20 L805-S-MSG-TEXT-A PIC X(01). DTSIL805
00033 20 L805-S-MSG-TEXT PIC X(58). DTSIL805