00001 *****                                                             02/02/99
00002 *                                                                 DTSIL039
00003 *    DTSIL039    LMI SIC CODE EDIT/DESCRIPTION MODULE LINKAGE.       LV005
00004 *                                                                 DTSIL039
00005 *                                                                    CL**5
00006 *                02/02/1999  REVIEWED AND MODIFIED FOR DC.  EHH      CL**5
00007 *                                                                    CL**5
00008 *****                                                             DTSIL039
00009                                                                      CL**5
00010          10  L039-SIC-CD                 PIC  X(04).                 CL**4
00011                                                                      CL**5
00012          10  L039-SIC-RESULT-IND         PIC  X(01).              DTSIL039
00013              88  L039-SIC-VALID              VALUE '1'.           DTSIL039
00014              88  L039-SIC-NOT-VALID          VALUE '2'.           DTSIL039
00015              88  L039-SIC-FILE-CLOSED        VALUE '3'.           DTSIL039
00016                                                                      CL**5
00017          10  L039-SIC-DSCRS.                                      DTSIL039
00018              15  L039-SIC-SHORT-DSCR     PIC  X(10).              DTSIL039
00019              15  L039-SIC-LONG-DSCR      PIC  X(40).              DTSIL039
00020                                                                      CL**5
00021          10  L039-MSG-AREA.                                       DTSIL039
00022              15  L039-MSG-ID             PIC  X(04).              DTSIL039
00023              15  L039-MSG-TXT            PIC  X(60).              DTSIL039
00024                                                                      CL**5
00025          10  FILLER                      PIC  X(09).                 CL**5