34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
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
|