00001 *****                                                             08/24/98
00002 *                                                                 DTSIL019
00003 *    DTSIL019  DOCUMENT NO FROM SCREEN FORMAT/EDIT                   LV003
00004 *              MODULE LINKAGE.                                    DTSIL019
00005 *                                                                 DTSIL019
00006 *****                                                             DTSIL019
00007      SKIP1                                                        DTSIL019
00008          10  L019-RESULT-IND             PIC  X(01).              DTSIL019
00009              88  L019-NO-ENTRY               VALUE '0'.           DTSIL019
00010              88  L019-VALID                  VALUE '1'.           DTSIL019
00011              88  L019-NOT-VALID              VALUE '2'.           DTSIL019
00012      SKIP1                                                        DTSIL019
00013          10  L019-S-DOC-NO.                                       DTSIL019
00014              15  L019-S-BATCH-NO-AREA.                            DTSIL019
00015                  20  L019-S-BATCH-NO-L   PIC S9(04)      COMP.    DTSIL019
00016                  20  L019-S-BATCH-NO-A   PIC  X(01).              DTSIL019
00017                  20  L019-S-BATCH-NO     PIC  X(05).              DTSIL019
00018              15  L019-S-ITEM-NO-AREA.                             DTSIL019
00019                  20  L019-S-ITEM-NO-L    PIC S9(04)    COMP.      DTSIL019
00020                  20  L019-S-ITEM-NO-A    PIC  X(01).              DTSIL019
00021                  20  L019-S-ITEM-NO      PIC  X(03).              DTSIL019
00022      SKIP1                                                        DTSIL019
00023          10  L019-DOC-NO.                                         DTSIL019
00024              15  L019-BATCH-NO          PIC S9(05)       COMP-3.  DTSIL019
00025              15  L019-ITEM-NO           PIC S9(03)       COMP-3.  DTSIL019
00026      SKIP1                                                        DTSIL019
00027          10  FILLER                      PIC  X(10).              DTSIL019