00001 *****                                                             02/02/99
00002 *                                                                 DTSIL040
00003 *    DTSIL040       NAIC CODE EDIT/DESCRIPTION MODULE LINKAGE.       LV006
00004 *                                                                 DTSIL040
00005 *****                                                             DTSIL040
00006                                                                      CL**5
00007          10  L040-NAICS-CD               PIC  X(06).                 CL**6
00008                                                                      CL**5
00009          10  L040-NAICS-RESULT-IND       PIC  X(01).                 CL**5
00010              88  L040-NAICS-VALID            VALUE '1'.              CL**5
00011              88  L040-NAICS-NOT-VALID        VALUE '2'.              CL**5
00012              88  L040-NAICS-FILE-CLOSED      VALUE '3'.              CL**5
00013                                                                      CL**5
00014          10  L040-NAICS-DSCRS.                                       CL**5
00015              15  L040-NAICS-SHORT-DSCR   PIC  X(10).                 CL**5
00016              15  L040-NAICS-LONG-DSCR    PIC  X(40).                 CL**5
00017                                                                      CL**5
00018          10  L040-MSG-AREA.                                          CL**3
00019              15  L040-MSG-ID             PIC  X(04).                 CL**3
00020              15  L040-MSG-TXT            PIC  X(60).                 CL**3
00021                                                                      CL**5
00022          10  FILLER                      PIC  X(07).                 CL**5