00001 *****                                                             06/29/02
00002 *                                                                 DTSIL880
00003 *    DTSIL880    ON-LINE WAGE TRANSACTION FILE                       LV001
00004 *                INPUT/OUTPUT LINKAGE.                            DTSIL880
00005 *                                                                 DTSIL880
00006 *    DTSIL880 IS USED IN CONJUNCTION WITH DTSIWSKL TO FORM THE    DTSIL880
00007 *    COMMUNICATION AREA TO DTSCU880.                              DTSIL880
00008 *                                                                 DTSIL880
00009 *                                                                 DTSIL880
00010 *                12/28/2001  INITIAL DEVELOPMENT.           GD    DTSIL880
00011 *                                                                 DTSIL880
00012 *****                                                             DTSIL880
00013                                                                   DTSIL880
00014          10  L880-CMND-CD                PIC  X(03).              DTSIL880
00015              88  L880-READ-88                    VALUE 'RD '.     DTSIL880
00016              88  L880-START-BROWSE-88            VALUE 'STB'.     DTSIL880
00017              88  L880-READ-NEXT-88               VALUE 'RDN'.     DTSIL880
00018              88  L880-READ-PREV-88               VALUE 'RDP'.     DTSIL880
00019              88  L880-END-BROWSE-88              VALUE 'ENB'.     DTSIL880
00020              88  L880-REWRITE-88                 VALUE 'RWR'.     DTSIL880
00021              88  L880-WRITE-88                   VALUE 'WR '.     DTSIL880
00022              88  L880-DELETE-88                  VALUE 'DEL'.     DTSIL880
00023                                                                   DTSIL880
00024          10  FILLER                      PIC  X(60).              DTSIL880
00025                                                                   DTSIL880
00026          10  L880-MSG-AREA.                                       DTSIL880
00027              15  L880-MSG-ID             PIC  X(04).              DTSIL880
00028              15  L880-MSG-TXT            PIC  X(60).              DTSIL880
00029                                                                   DTSIL880
00030          10  L880-RESULT-IND             PIC  X(01).              DTSIL880
00031              88  L880-OK-88                      VALUE '0'.       DTSIL880
00032              88  L880-NO-REC-88                  VALUE '1'.       DTSIL880
00033              88  L880-FILE-CLOSED-88             VALUE '9'.       DTSIL880