options pagesize=59 linesize=120 nocenter;
data;
infile 'C:\emp_hours.dat' lrecl=205;
input
 R8814700  3.
 R8814800  3.
 R8814900  3.
 R8815000  3.
 R8815100  3.
 R8815200  3.
 R8815300  3.
 R8815400  3.
 R8815500  3.
 R8815600  3.
 R8815700  3.
 R8815800  3.
 R8815900  3.
 R8816000  3.
 R8816100  3.
 R8816200  3.
 R8816300  3.
 R8816400  3.
 R8816500  3.
 R8816600  3.
 R8816700  3.
 R8816800  3.
 R8816900  3.
 R8817000  3.
 R8817100  3.
 R8817200  3.
 R8817300  3.
 R8817400  3.
 R8817500  3.
 R8817600  3.
 R8817700  3.
 R8817800  3.
 R8817900  3.
 R8818000  3.
 R8818100  3.
 R8818200  3.
 R8818300  3.
 R8818400  3.
 R8818500  3.
 R8818600  3.
 R8818700  3.
 R8818800  3.
 R8818900  3.
 R8819000  3.
 R8909400  3.
 R8909500  3.
 R8909600  3.
 R8909700  3.
 R8909800  3.
 R8909900  3.
 R8910000  3.
 R8910100  3.
 R8910200  3.
 R8910300  3.
 R8910400  3.
 R8910500  3.
 R8910600  3.
 R8910700  3.
 R8910800  3.
 R8910900  3.
 R8911000  3.
 R8911100  3.
 R8911200  3.
 R8911300  3.
 R8911400  3.
 R8911500  3.
 R0000100  4.
 ;
array chrrlst R8814700 -- R8911500;
do over chrrlst;
  if chrrlst = -5 then chrrlst = .A;
  if chrrlst = -4 then chrrlst = .B;
  if chrrlst = -3 then chrrlst = .C;
  if chrrlst = -2 then chrrlst = .D;
  if chrrlst = -1 then chrrlst = .E;
  end;
label R8814700 = "2000 EMP: TTL HRS WRK WK L10";
label R8814800 = "2000 EMP: TTL HRS WRK WK L11";
label R8814900 = "2000 EMP: TTL HRS WRK WK L12";
label R8815000 = "2000 EMP: TTL HRS WRK WK L13";
label R8815100 = "2000 EMP: TTL HRS WRK WK L14";
label R8815200 = "2000 EMP: TTL HRS WRK WK L15";
label R8815300 = "2000 EMP: TTL HRS WRK WK L16";
label R8815400 = "2000 EMP: TTL HRS WRK WK L17";
label R8815500 = "2000 EMP: TTL HRS WRK WK L18";
label R8815600 = "2000 EMP: TTL HRS WRK WK L19";
label R8815700 = "2000 EMP: TTL HRS WRK WK L20";
label R8815800 = "2000 EMP: TTL HRS WRK WK L21";
label R8815900 = "2000 EMP: TTL HRS WRK WK L22";
label R8816000 = "2000 EMP: TTL HRS WRK WK L23";
label R8816100 = "2000 EMP: TTL HRS WRK WK L24";
label R8816200 = "2000 EMP: TTL HRS WRK WK L25";
label R8816300 = "2000 EMP: TTL HRS WRK WK L26";
label R8816400 = "2000 EMP: TTL HRS WRK WK L27";
label R8816500 = "2000 EMP: TTL HRS WRK WK L28";
label R8816600 = "2000 EMP: TTL HRS WRK WK L29";
label R8816700 = "2000 EMP: TTL HRS WRK WK L30";
label R8816800 = "2000 EMP: TTL HRS WRK WK L31";
label R8816900 = "2000 EMP: TTL HRS WRK WK L32";
label R8817000 = "2000 EMP: TTL HRS WRK WK L33";
label R8817100 = "2000 EMP: TTL HRS WRK WK L34";
label R8817200 = "2000 EMP: TTL HRS WRK WK L35";
label R8817300 = "2000 EMP: TTL HRS WRK WK L36";
label R8817400 = "2000 EMP: TTL HRS WRK WK L37";
label R8817500 = "2000 EMP: TTL HRS WRK WK L38";
label R8817600 = "2000 EMP: TTL HRS WRK WK L39";
label R8817700 = "2000 EMP: TTL HRS WRK WK L40";
label R8817800 = "2000 EMP: TTL HRS WRK WK L41";
label R8817900 = "2000 EMP: TTL HRS WRK WK L42";
label R8818000 = "2000 EMP: TTL HRS WRK WK L43";
label R8818100 = "2000 EMP: TTL HRS WRK WK L44";
label R8818200 = "2000 EMP: TTL HRS WRK WK L45";
label R8818300 = "2000 EMP: TTL HRS WRK WK L46";
label R8818400 = "2000 EMP: TTL HRS WRK WK L47";
label R8818500 = "2000 EMP: TTL HRS WRK WK L48";
label R8818600 = "2000 EMP: TTL HRS WRK WK L49";
label R8818700 = "2000 EMP: TTL HRS WRK WK L50";
label R8818800 = "2000 EMP: TTL HRS WRK WK L51";
label R8818900 = "2000 EMP: TTL HRS WRK WK L52";
label R8819000 = "2000 EMP: TTL HRS WRK WK L53";
label R8909400 = "2001 EMP: TTL HRS WRK WK L1";
label R8909500 = "2001 EMP: TTL HRS WRK WK L2";
label R8909600 = "2001 EMP: TTL HRS WRK WK L3";
label R8909700 = "2001 EMP: TTL HRS WRK WK L4";
label R8909800 = "2001 EMP: TTL HRS WRK WK L5";
label R8909900 = "2001 EMP: TTL HRS WRK WK L6";
label R8910000 = "2001 EMP: TTL HRS WRK WK L7";
label R8910100 = "2001 EMP: TTL HRS WRK WK L8";
label R8910200 = "2001 EMP: TTL HRS WRK WK L9";
label R8910300 = "2001 EMP: TTL HRS WRK WK L10";
label R8910400 = "2001 EMP: TTL HRS WRK WK L11";
label R8910500 = "2001 EMP: TTL HRS WRK WK L12";
label R8910600 = "2001 EMP: TTL HRS WRK WK L13";
label R8910700 = "2001 EMP: TTL HRS WRK WK L14";
label R8910800 = "2001 EMP: TTL HRS WRK WK L15";
label R8910900 = "2001 EMP: TTL HRS WRK WK L16";
label R8911000 = "2001 EMP: TTL HRS WRK WK L17";
label R8911100 = "2001 EMP: TTL HRS WRK WK L18";
label R8911200 = "2001 EMP: TTL HRS WRK WK L19";
label R8911300 = "2001 EMP: TTL HRS WRK WK L20";
label R8911400 = "2001 EMP: TTL HRS WRK WK L21";
label R8911500 = "2001 EMP: TTL HRS WRK WK L22";
label R0000100 = "PUBID - YTH ID CODE 1997";
 
proc means;
run;