00001 *****                                                             05/22/01
00002 *                                                                 DTSIIEBX
00003 *    DTSIIEBX  ALTERNATE INDEX FILE                                  LV001
00004 *              ELECTRONIC MEDIA BOX SEARCH RECORD DEFINITION.     DTSIIEBX
00005 *                                                                 DTSIIEBX
00006 *    FUNCTION: ONE EXISTS FOR EACH ACTIVE ITEM.                   DTSIIEBX
00007 *              INPUT:  ELECTRONIC MEDIA BOX NUMBER.               DTSIIEBX
00008 *              RETURN: LOG NUMBER OF AN ITEM IN THE BOX.          DTSIIEBX
00009 *                                                                 DTSIIEBX
00010 *              01/17/2001  INITIAL DEVELOPMENT.  GD               DTSIIEBX
00011 *                                                                 DTSIIEBX
00012 *****                                                             DTSIIEBX
00013                                                                   DTSIIEBX
00014          10  IEBX-KEY-AREA.                                       DTSIIEBX
00015              15  IEBX-REC-TYPE           PIC S9(04)       COMP.   DTSIIEBX
00016                  88  IEBX-EBX-88             VALUE +14.           DTSIIEBX
00017              15  IEBX-BOX-NO             PIC  X(08).              DTSIIEBX
00018              15  IEBX-LOG-NO             PIC  9(10).              DTSIIEBX
00019              15  IEBX-KEY-FILLER         PIC  X(44).              DTSIIEBX