$CONTROL: FIELD, TABLE;                     <<92080-18207 REV.1936>>
BEGIN DATA BASE: VIPDB:100:100; 
LEVELS: 
ITEMS:
       MEMPLI,X6;        <<KEY EMPLOYEE NUMBER>>
       MHLOCI,X6;        <<HOME LOCATION CODE>> 
       MLOCNI,X6;        <<KEY ALL LOCATIONS>>
       MOPERI,X4;        <<KEY ALL OPERATIONS>> 
       DPARTI,X12;       <<PART NUMBER>>
       DOURSI,R2;        <<HOURS CHARGED>>
       DRGOVI,X2;        <<REGULAR OR OVERTIME FLAG>> 
       MWOI,X10;         <<KEY WORK ORDER NUMBER>>
       MPARTI,X12;       <<KEY PART NUMBER>>
       MQTYI,I1;         <<QUANTITY ON W.O.>> 
       DTIMEI,X4;        <<TIME OF TRANSACTION>>
       DDATEI,X6;        <<DATE OF TRANSACTION>>
       DSHIFI,X2;        <<SHIFT - D,S,G>>
       DQTYI,I1;         <<QTY MOVED IN MMDS>>
SETS: 
       NAME: MEMPLB::100,M;  <<MANUAL MASTER EMPLOYEE FILE>>
      ENTRY: MEMPLI(2), 
             MHLOCI;
   CAPACITY:   27;
       NAME: MLOCNB::100,M;  <<MANUAL MASTER OF ALL LOCATION CODES>>
      ENTRY: MLOCNI(1); 
   CAPACITY:   27;
       NAME: MOPERB::100,M;  <<MANUAL MASTER OF ALL OPERATION CODES>> 
      ENTRY: MOPERI(2); 
   CAPACITY:   11;
       NAME: MWOPNB::100,M;  <<MANUAL MASTER WORK ORDERS/PART NUMBERS>> 
      ENTRY: MWOI(2), 
             MPARTI,
             MQTYI; 
   CAPACITY:   27;
       NAME: LABDSB::100,D;  <<DETAIL LABOR COLLECTED>> 
      ENTRY: MEMPLI(MEMPLB), <<KEY ITEM LINKED TO EMPLOYEE MASTER>> 
             MLOCNI(MLOCNB),  <<KEY ITEM LINKED TO LOCATION MASTER>>
             MWOI(MWOPNB),    <<KEY ITEM LINKED TO WORK ORDER MASTER>>
             MOPERI(MOPERB),  <<KEY ITEM LINKED TO OPERATION MASTER>> 
             DOURSI,
             DRGOVI,
             DSHIFI,
             DTIMEI,
             DDATEI;
   CAPACITY:   101; 
       NAME: MMDSB::100,D;    <<MATERIAL MOVE DATA SET>>
      ENTRY: MWOI(MWOPNB),    <<KEY ITEM LINKED TO WORK ORDER MASTER>>
             DPARTI,
             DQTYI, 
             MOPERI(MOPERB),  <<KEY ITEM LINKED TO OPERATION MASTER>> 
             MEMPLI(MEMPLB);  <<KEY ITEM LINKED TO EMPLOYEE MASTER>>
   CAPACITY:   101; 
END.
                                                                                                                                                        