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