file handle pcdat/name='C:\emp_hours.dat' /lrecl=205.
data list file pcdat fixed /
   R8814700  1-3
   R8814800  4-6
   R8814900  7-9
   R8815000  10-12
   R8815100  13-15
   R8815200  16-18
   R8815300  19-21
   R8815400  22-24
   R8815500  25-27
   R8815600  28-30
   R8815700  31-33
   R8815800  34-36
   R8815900  37-39
   R8816000  40-42
   R8816100  43-45
   R8816200  46-48
   R8816300  49-51
   R8816400  52-54
   R8816500  55-57
   R8816600  58-60
   R8816700  61-63
   R8816800  64-66
   R8816900  67-69
   R8817000  70-72
   R8817100  73-75
   R8817200  76-78
   R8817300  79-81
   R8817400  82-84
   R8817500  85-87
   R8817600  88-90
   R8817700  91-93
   R8817800  94-96
   R8817900  97-99
   R8818000  100-102
   R8818100  103-105
   R8818200  106-108
   R8818300  109-111
   R8818400  112-114
   R8818500  115-117
   R8818600  118-120
   R8818700  121-123
   R8818800  124-126
   R8818900  127-129
   R8819000  130-132
   R8909400  133-135
   R8909500  136-138
   R8909600  139-141
   R8909700  142-144
   R8909800  145-147
   R8909900  148-150
   R8910000  151-153
   R8910100  154-156
   R8910200  157-159
   R8910300  160-162
   R8910400  163-165
   R8910500  166-168
   R8910600  169-171
   R8910700  172-174
   R8910800  175-177
   R8910900  178-180
   R8911000  181-183
   R8911100  184-186
   R8911200  187-189
   R8911300  190-192
   R8911400  193-195
   R8911500  196-198
   R0000100  199-202
    .
variable labels
   R8814700  "2000 EMP: TTL HRS WRK WK L10"
   R8814800  "2000 EMP: TTL HRS WRK WK L11"
   R8814900  "2000 EMP: TTL HRS WRK WK L12"
   R8815000  "2000 EMP: TTL HRS WRK WK L13"
   R8815100  "2000 EMP: TTL HRS WRK WK L14"
   R8815200  "2000 EMP: TTL HRS WRK WK L15"
   R8815300  "2000 EMP: TTL HRS WRK WK L16"
   R8815400  "2000 EMP: TTL HRS WRK WK L17"
   R8815500  "2000 EMP: TTL HRS WRK WK L18"
   R8815600  "2000 EMP: TTL HRS WRK WK L19"
   R8815700  "2000 EMP: TTL HRS WRK WK L20"
   R8815800  "2000 EMP: TTL HRS WRK WK L21"
   R8815900  "2000 EMP: TTL HRS WRK WK L22"
   R8816000  "2000 EMP: TTL HRS WRK WK L23"
   R8816100  "2000 EMP: TTL HRS WRK WK L24"
   R8816200  "2000 EMP: TTL HRS WRK WK L25"
   R8816300  "2000 EMP: TTL HRS WRK WK L26"
   R8816400  "2000 EMP: TTL HRS WRK WK L27"
   R8816500  "2000 EMP: TTL HRS WRK WK L28"
   R8816600  "2000 EMP: TTL HRS WRK WK L29"
   R8816700  "2000 EMP: TTL HRS WRK WK L30"
   R8816800  "2000 EMP: TTL HRS WRK WK L31"
   R8816900  "2000 EMP: TTL HRS WRK WK L32"
   R8817000  "2000 EMP: TTL HRS WRK WK L33"
   R8817100  "2000 EMP: TTL HRS WRK WK L34"
   R8817200  "2000 EMP: TTL HRS WRK WK L35"
   R8817300  "2000 EMP: TTL HRS WRK WK L36"
   R8817400  "2000 EMP: TTL HRS WRK WK L37"
   R8817500  "2000 EMP: TTL HRS WRK WK L38"
   R8817600  "2000 EMP: TTL HRS WRK WK L39"
   R8817700  "2000 EMP: TTL HRS WRK WK L40"
   R8817800  "2000 EMP: TTL HRS WRK WK L41"
   R8817900  "2000 EMP: TTL HRS WRK WK L42"
   R8818000  "2000 EMP: TTL HRS WRK WK L43"
   R8818100  "2000 EMP: TTL HRS WRK WK L44"
   R8818200  "2000 EMP: TTL HRS WRK WK L45"
   R8818300  "2000 EMP: TTL HRS WRK WK L46"
   R8818400  "2000 EMP: TTL HRS WRK WK L47"
   R8818500  "2000 EMP: TTL HRS WRK WK L48"
   R8818600  "2000 EMP: TTL HRS WRK WK L49"
   R8818700  "2000 EMP: TTL HRS WRK WK L50"
   R8818800  "2000 EMP: TTL HRS WRK WK L51"
   R8818900  "2000 EMP: TTL HRS WRK WK L52"
   R8819000  "2000 EMP: TTL HRS WRK WK L53"
   R8909400  "2001 EMP: TTL HRS WRK WK L1"
   R8909500  "2001 EMP: TTL HRS WRK WK L2"
   R8909600  "2001 EMP: TTL HRS WRK WK L3"
   R8909700  "2001 EMP: TTL HRS WRK WK L4"
   R8909800  "2001 EMP: TTL HRS WRK WK L5"
   R8909900  "2001 EMP: TTL HRS WRK WK L6"
   R8910000  "2001 EMP: TTL HRS WRK WK L7"
   R8910100  "2001 EMP: TTL HRS WRK WK L8"
   R8910200  "2001 EMP: TTL HRS WRK WK L9"
   R8910300  "2001 EMP: TTL HRS WRK WK L10"
   R8910400  "2001 EMP: TTL HRS WRK WK L11"
   R8910500  "2001 EMP: TTL HRS WRK WK L12"
   R8910600  "2001 EMP: TTL HRS WRK WK L13"
   R8910700  "2001 EMP: TTL HRS WRK WK L14"
   R8910800  "2001 EMP: TTL HRS WRK WK L15"
   R8910900  "2001 EMP: TTL HRS WRK WK L16"
   R8911000  "2001 EMP: TTL HRS WRK WK L17"
   R8911100  "2001 EMP: TTL HRS WRK WK L18"
   R8911200  "2001 EMP: TTL HRS WRK WK L19"
   R8911300  "2001 EMP: TTL HRS WRK WK L20"
   R8911400  "2001 EMP: TTL HRS WRK WK L21"
   R8911500  "2001 EMP: TTL HRS WRK WK L22"
   R0000100  "PUBID - YTH ID CODE 1997"
    .
* The following code works with all SPSS versions.
* Other recode/missing values may be possible on your system.
recode R8814700 to R0000100 (-4,-3,-2,-1=-5).
missing values R8814700 to R0000100 (-5).
* missing values R8814700 to R0000100 (-5,-4,-3,-2,-1).