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