00001 *****                                                             08/31/98
00002 *                                                                 DTSIL821
00003 *    DTSIL821    ONLINE ALTERNATE INDEX FILE INPUT/OUTPUT            LV003
00004 *                LINKAGE.                                         DTSIL821
00005 *                                                                 DTSIL821
00006 *    DTSIL821 IS USED IN CONJUNCTION WITH DTSIISKL TO                CL**2
00007 *    FORM THE COMMUNICATIONS AREA TO DTSCU821 (ALTERNATE             CL**2
00008 *    INDEX FILE INPUT/OUTPUT).                                    DTSIL821
00009 *                                                                 DTSIL821
00010 *                                                                    CL**2
00011 *                08/31/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00012 *                                                                    CL**2
00013 *****                                                             DTSIL821
00014                                                                      CL**2
00015          10  L821-CMND-CD                PIC  X(03).              DTSIL821
00016              88  L821-READ-88                    VALUE 'RD '.     DTSIL821
00017              88  L821-START-BROWSE-88            VALUE 'STB'.     DTSIL821
00018              88  L821-READ-NEXT-88               VALUE 'RDN'.     DTSIL821
00019              88  L821-READ-PREV-88               VALUE 'RDP'.     DTSIL821
00020              88  L821-END-BROWSE-88              VALUE 'ENB'.     DTSIL821
00021              88  L821-WRITE-88                   VALUE 'WR '.     DTSIL821
00022              88  L821-DELETE-88                  VALUE 'DEL'.     DTSIL821
00023                                                                      CL**2
00024          10  FILLER                      PIC  X(60).                 CL**3
00025                                                                      CL**2
00026          10  L821-MSG-AREA.                                       DTSIL821
00027              15  L821-MSG-ID             PIC  X(04).              DTSIL821
00028              15  L821-MSG-TXT            PIC  X(60).              DTSIL821
00029                                                                      CL**2
00030          10  L821-RESULT-IND             PIC  X(01).              DTSIL821
00031              88  L821-OK-88                      VALUE '0'.       DTSIL821
00032              88  L821-NO-REC-88                  VALUE '1'.       DTSIL821
00033              88  L821-FILE-CLOSED-88             VALUE '9'.       DTSIL821