00001 *****                                                             11/06/98
00002 *                                                                 DTSIR991
00003 *    DTSIR991    EXPORT CONTROL REPORT RECORD.                       LV002
00004 *                                                                 DTSIR991
00005 *****                                                             DTSIR991
00006      05  R991-EXPORT-CONTROL.                                        CL**2
00007          10  R991-LENGTH         PIC S9(04)  COMP  VALUE +196.    DTSIR991
00008                                                                      CL**2
00009          10  R991-SORT-AREA.                                      DTSIR991
00010              15  R991-REC-TYPE           PIC  X(03)  VALUE '991'. DTSIR991
00011                                                                      CL**2
00012          10  R991-DATA-AREA.                                      DTSIR991
00013              15  R991-MOD                PIC  X(03).              DTSIR991
00014              15  R991-ROUTE1             PIC  X(40).              DTSIR991
00015              15  R991-ROUTE2             PIC  X(40).              DTSIR991
00016              15  R991-DATA-TYPE          PIC  X(60).              DTSIR991
00017              15  R991-UNIT-DSCR          PIC  X(20).              DTSIR991
00018              15  R991-UNIT-COUNT         PIC S9(07)  COMP-3.      DTSIR991
00019              15  R991-DATASET-NAME       PIC  X(44).              DTSIR991