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