00001 *****                                                             09/30/98
00002 *                                                                 DTSIL933
00003 *    DTSIL933    BATCH SIC FILE INPUT LINKAGE.                       LV002
00004 *                                                                 DTSIL933
00005 *    DTSIL933 AND DTSIXSIC DEFINE THE LINKAGE AREAS TO               CL**2
00006 *    DTSBU933 (SIC FILE INPUT).                                      CL**2
00007 *                                                                 DTSIL933
00008 *                                                                    CL**2
00009 *      09/30/1998  REVIEWED AND MODIFIED FOR DC.  EHH                CL**2
00010 *                                                                    CL**2
00011 *****                                                             DTSIL933
00012                                                                      CL**2
00013          10  L933-TRACE-IND              PIC  X(01).              DTSIL933
00014              88  L933-TRACE-88               VALUE 'T'.           DTSIL933
00015                                                                      CL**2
00016          10  L933-MOD-NAME               PIC  X(08).              DTSIL933
00017                                                                      CL**2
00018          10  L933-CMND-CD                PIC  X(03).              DTSIL933
00019              88  L933-OPEN-READ-88               VALUE 'OPR'.     DTSIL933
00020              88  L933-READ-88                    VALUE 'RD '.     DTSIL933
00021              88  L933-START-BROWSE-88            VALUE 'STB'.     DTSIL933
00022              88  L933-READ-NEXT-88               VALUE 'RDN'.     DTSIL933
00023              88  L933-CLOSE-88                   VALUE 'CL '.     DTSIL933
00024                                                                      CL**2
00025          10  FILLER                      PIC  X(51).              DTSIL933
00026                                                                      CL**2
00027          10  L933-RESULT-IND             PIC  X(01).              DTSIL933
00028              88  L933-OK-88                      VALUE '0'.       DTSIL933
00029              88  L933-NO-REC-88                  VALUE '1'.       DTSIL933