00001 *****                                                             08/28/02
00002 *                                                                 DESIR101
00003 *    DESIR101    ELECTRONIC MEDIA PACKING LIST                       LV001
00004 *                REPORT RECORD.                                   DESIR101
00005 *                                                                 DESIR101
00006 *                                                                 DESIR101
00007 *                03/13/2001  INITIAL DEVELOPMENT. GD              DESIR101
00008 *                03/29/2002  ADDED R101-FORMAT-CD.  GB            DESIR101
00009 *                                  R101-DATA-TYPE-CD              DESIR101
00010 *                                  R101-MEDIUM-TYPE-CD            DESIR101
00011 *                                                                 DESIR101
00012 *****                                                             DESIR101
00013                                                                   DESIR101
00014          10  R101-LENGTH              PIC S9(04)  COMP.           DESIR101
00015                                                                   DESIR101
00016          10  R101-SORT-AREA.                                      DESIR101
00017              15  R101-REC-TYPE        PIC  X(03)  VALUE '101'.    DESIR101
00018              15  R101-BOX-NO          PIC  X(08).                 DESIR101
00019              15  R101-LOG-NO          PIC  9(06).                 DESIR101
00020                                                                   DESIR101
00021          10  R101-DATA-AREA.                                      DESIR101
00022              15  R101-ELF-ID          PIC S9(07)  COMP-3.         DESIR101
00023              15  R101-ELF-NAME        PIC  X(40).                 DESIR101
00024              15  R101-OPID            PIC  X(08).                 DESIR101
00025              15  R101-JOBNAME         PIC  X(08).                 DESIR101
00026              15  R101-FORMAT-CD       PIC  X(03).                 DESIR101
00027              15  R101-DATA-TYPE-CD    PIC  X(02).                 DESIR101
00028              15  R101-MEDIUM-TYPE-CD  PIC  X(02).                 DESIR101