00001 *****                                                             11/25/98
00002 *                                                                 DTSILSED
00003 *    DTSILSED    EDIT SCREEN PROCESSING MODULE LINKAGE               LV002
00004 *                (LCCM-SCRED-HOLD-AREA).                          DTSILSED
00005 *                                                                 DTSILSED
00006 *****                                                             DTSILSED
00007      SKIP1                                                        DTSILSED
00008          10  LSED-CALLING-MODULE-INFO.                            DTSILSED
00009              15  LSED-HOLD-AID           PIC  X(01).              DTSILSED
00010              15  LSED-HOLD-SCR-ID        PIC  X(02).              DTSILSED
00011              15  LSED-HOLD-SCR-STATUS    PIC  X(01).              DTSILSED
00012              15  LSED-HOLD-SCR-ABSTIME   PIC S9(15)  COMP-3.      DTSILSED
00013      SKIP1                                                        DTSILSED
00014          10  LSED-QUEUE-NAME             PIC  X(08).              DTSILSED
00015      SKIP1                                                        DTSILSED
00016          10  LSED-TITLE                  PIC  X(40).              DTSILSED
00017      SKIP1                                                        DTSILSED
00018          10  LSED-RESULT-IND             PIC  X(01).              DTSILSED
00019              88  LSED-OK-88                     VALUE '0'.        DTSILSED
00020              88  LSED-FAILED-88                 VALUE '9'.        DTSILSED
00021      SKIP1                                                        DTSILSED
00022          10  LSED-PAGE-CONTROL-AREA.                              DTSILSED
00023              15  LSED-CURR-LINE          PIC S9(04) COMP.         DTSILSED
00024              15  LSED-BUFFER-ITEM        PIC S9(04) COMP.         DTSILSED
00025      SKIP1                                                        DTSILSED
00026          10  FILLER                      PIC  X(31).              DTSILSED