$CONTROL LIST,ERRORS=5,ROOT,SET,TABLE ; 
BEGIN DATA BASE WIPDB;CR100;100;       <<SCHEMA PART 92903-18207  REV.1913>>
LEVELS: 
ITEMS:
       MEMPLI,U6;        <<KEY EMPLOYEE NUMBER>>
       MHLOCI,U6;        <<HOME LOCATION CODE>> 
       MLOCNI,U6;        <<KEY ALL LOCATIONS>>
       MOPERI,U4;        <<KEY ALL OPERATIONS>> 
       DEMPLI,U6;        <<KEY DETAIL EMPLOYEE NUMBER>> 
       DLOCNI,U6;        <<KEY DETAIL CHARGED LOCATION>>
       DWO1,U10;         <<WORK ORDER NUMBER IN LABDS>> 
       DPARTI,U12;       <<PART NUMBER>>
       DOPER1,U4;        <<OPERATION NUMBER IN LABDS>>
       DOURSI,R2;        <<HOURS CHARGED>>
       DRGOVI,U2;        <<REGULAR OR OVERTIME FLAG>> 
       MWOI,U10;         <<KEY WORK ORDER NUMBER>>
       MPARTI,U12;       <<KEY PART NUMBER>>
       MQTYI,I1;         <<QUANTITY ON W.O.>> 
       DTIMEI,U4;        <<TIME OF TRANSACTION>>
       DDATEI,U6;        <<DATE OF TRANSACTION>>
       DSHIFI,U2;        <<SHIFT - D,S,G>>
       DWO2,U10;         <<WORK ORDER KEY IN MMDS>> 
       DQTYI,I1;         <<QTY MOVED IN MMDS>>
       DOPER2,U4;        <<OPERATION COMPLETED IN MMDS>>
SETS: 
       NAME: MEMPL,M,CR100;  <<MANUAL MASTER EMPLOYEE FILE>>
      ENTRY: MEMPLI(1), 
             MHLOCI;
   CAPACITY:   27;
       NAME: MLOCN,M,CR100;  <<MANUAL MASTER OF ALL LOCATION CODES>>
      ENTRY: MLOCNI(1); 
   CAPACITY:   27;
       NAME: MOPER,M,CR100;  <<MANUAL MASTER OF ALL OPERATION CODES>> 
      ENTRY: MOPERI(2); 
   CAPACITY:   11;
       NAME: MWOPN,M,CR100;  <<MANUAL MASTER WORK ORDERS/PART NUMBERS>> 
      ENTRY: MWOI(2), 
             MPARTI,
             MQTYI; 
   CAPACITY:   27;
       NAME: LABDS,D,CR100;  <<DETAIL LABOR COLLECTED>> 
      ENTRY: DEMPLI(MEMPL),  << KEY ITEM LINKED TO EMPLOYEE MASTER >> 
             DLOCNI(MLOCN),  << KEY ITEM LINKED TO LOCATION MASTER >> 
             DWO1(MWOPN),    << KEY ITEM LINKED TO WORK ORDER MASTER >> 
             DOPER1(MOPER),  << KEY ITEM LINKED TO OPERATION MASTER >>
             DOURSI,
             DRGOVI,
             DSHIFI,
             DTIMEI,
             DDATEI;
   CAPACITY:   101; 
       NAME: MMDS,D,CR100;    << MATERIAL MOVE DATA SET >>
      ENTRY: DWO2(MWOPN),    << KEY ITEM LINKED TO WORK ORDER MASTER >> 
             DPARTI,
             DQTYI, 
             DOPER2(MOPER); 
   CAPACITY:   101; 
END.
                                                                                                                                                        