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