00001 *****                                                             06/29/02
00002 *                                                                 DTSIL983
00003 *    DTSIL983    BATCH WAGE TRANSACTION FILE                         LV001
00004 *                INPUT/OUTPUT LINKAGE.                            DTSIL983
00005 *                                                                 DTSIL983
00006 *    DTSIL983 AND DTSIWSKL DEFINE THE LINKAGE AREAS TO            DTSIL983
00007 *    DTSBU983 (WAGE TRANSACTION FILE INPUT/OUTPUT).               DTSIL983
00008 *                                                                 DTSIL983
00009 *****                                                             DTSIL983
00010      SKIP1                                                        DTSIL983
00011          10  L983-TRACE-IND              PIC  X(01).              DTSIL983
00012              88  L983-TRACE-88               VALUE 'T'.           DTSIL983
00013      SKIP1                                                        DTSIL983
00014          10  L983-MOD-NAME               PIC  X(08).              DTSIL983
00015      SKIP1                                                        DTSIL983
00016          10  L983-CMND-CD                PIC  X(03).              DTSIL983
00017              88  L983-OPEN-READ-88               VALUE 'OPR'.     DTSIL983
00018              88  L983-OPEN-UPDATE-88             VALUE 'OPU'.     DTSIL983
00019              88  L983-READ-88                    VALUE 'RD '.     DTSIL983
00020              88  L983-START-BROWSE-88            VALUE 'STB'.     DTSIL983
00021              88  L983-READ-NEXT-88               VALUE 'RDN'.     DTSIL983
00022              88  L983-WRITE-88                   VALUE 'WR '.     DTSIL983
00023              88  L983-REWRITE-88                 VALUE 'RWR'.     DTSIL983
00024              88  L983-DELETE-88                  VALUE 'DEL'.     DTSIL983
00025              88  L983-CLOSE-88                   VALUE 'CL '.     DTSIL983
00026      SKIP1                                                        DTSIL983
00027          10  FILLER                      PIC  X(51).              DTSIL983
00028      SKIP1                                                        DTSIL983
00029          10  L983-RESULT-IND             PIC  X(01).              DTSIL983
00030              88  L983-OK-88                      VALUE '0'.       DTSIL983
00031              88  L983-NO-REC-88                  VALUE '1'.       DTSIL983