LIBNAME sas8 v8 'current directory';
FILENAME INPUTDAT 'p01putm8x.dat' ;
DATA sas8.p01putm8x ;
INFILE INPUTDAT PAD LRECL=425 ;
INPUT
 SSUSEQ 1- 5
 SSUID $ 6- 17
 SPANEL 18- 21
 SWAVE 22- 23
 SROTATON 24- 24
 TFIPSST 25- 26
 SHHADID 27- 29
 SINTHHID 30- 32
 EOUTCOME 33- 35
 RFID 36- 38
 RFID2 39- 41
 EPPIDX 42- 44
 EENTAID 45- 47
 EPPPNUM 48- 51
 EPOPSTAT 52- 52
 EPPINTVW 53- 54
 EPPMIS4 55- 55
 ESEX 56- 56
 ERACE 57- 57
 EORIGIN 58- 59
 WPFINWGT 60- 69
 ERRP 70- 71
 TAGE 72- 73
 EMS 74- 74
 EPNSPOUS 75- 78
 EPNMOM 79- 82
 EPNDAD 83- 86
 EPNGUARD 87- 90
 RDESGPNT 91- 92
 EEDUCATE 93- 94
 LGTKEY 95- 102
 EAWRUNV 103- 104
 IINCCAT 105- 106
 IPAYN 107- 108
 IPAYN2 109- 110
 IHLPHIRE 111- 111
 IHLPTRAI 112- 112
 IHLPWAGE 113- 113
 ITRAIHYN 114- 115
 IHLPDK 116- 117
 IFOODHYN 118- 119
 ICLOTHYN 120- 121
 IHOUSHYN 122- 123
 ICSUPHYN 124- 125
 IOTHHYN 126- 127
 IJOBHELP 128- 129
 IREQINC 130- 131
 IREQCS 132- 133
 IREQPAT 134- 135
 IREQDT 136- 137
 IJHRUSU 138- 139
 IJHINT 140- 141
 IJHDRES 142- 143
 IJHSELF 144- 145
 IJHCOMP 146- 147
 IJHCLER 148- 149
 IJHMACH 150- 151
 IJHOJS 152- 153
 IJHGED 154- 155
 IJHCOL 156- 157
 IJHLIT 158- 159
 IJHLIS 160- 161
 IJHENG 162- 163
 IJHOTH 164- 165
 IJCOMPTR 166- 167
 IJHJOBYN 168- 169
 IJHPAYYN 170- 171
 INUMPAY 172- 173
 IGASVYN 174- 175
 ITOKYN 176- 177
 ICARYN 178- 179
 IRIDEYN 180- 181
 IOTHTYN 182- 183
 ICCTYPE 184- 185
 ICCPAYYN 186- 187
 ICCEMPYN 188- 189
 ICCWHO 190- 191
 ICCCOV01 192- 195
 ICCCOV02 196- 199
 ICCCOV03 200- 203
 ICCCOV04 204- 207
 ICCCOV05 208- 211
 ICCCOV06 212- 215
 ICCCOV07 216- 219
 ICCREL 220- 221
 ICCDAYC 222- 223
 ICCSITT 224- 225
 ICCAFT 226- 227
 IFAVOU 228- 229
 IFAGROC 230- 231
 IFAMEAL 232- 233
 IFAOTH 234- 235
 IVOUGA 236- 236
 IVOUHAR 237- 237
 IVOUFAM 238- 238
 IVOUOTH 239- 239
 IVOUTHH 240- 241
 ICAGA 242- 242
 ICACHAR 243- 243
 ICAFAM 244- 244
 ICAEMP 245- 245
 ICAOTH 246- 246
 ICAOTHH 247- 248
 IHATYPE 249- 250
 IHATYPE2 251- 252
 IHAGA 253- 253
 IHAHOUS 254- 254
 IHACHAR 255- 255
 IHAOTH 256- 256
 IHAOTHH 257- 258
 ICASHSC 259- 260
 ICASHHM 261- 262
 ICASHAMT 263- 266
 ICASHAL 267- 268
 ICASHUSE 269- 270
 ICASHREN 271- 271
 ICASHFOO 272- 272
 ICASHCS 273- 273
 ICASHCK 274- 274
 ICASHCAR 275- 275
 ICASHOTH 276- 277
 ICASHOHH 278- 279
 ICSAGEN 280- 280
 ICSWELF 281- 281
 ICSOTH 282- 282
 ICSOTHH 283- 284
 ICSPAT 285- 286
 ICSABS 287- 288
 ICSCOURT 289- 290
 ICSCOLL 291- 292
 ICSOTH2 293- 294
 ICSGOV 295- 295
 ICSCHAR 296- 296
 ICSFAM 297- 297
 ICSELSE 298- 298
 ICSELSEE 299- 300
 ICSAMT 301- 304
 ICSNCASH 305- 306
 ICSEARL 307- 308
 ICSPART 309- 310
 ICSRENT 311- 311
 ICSFOOD 312- 312
 ICSCLOS 313- 313
 ICSCLOK 314- 314
 ICSCAR 315- 315
 ICSOUSE 316- 316
 ICSOUSEE 317- 318
 IWFTYPE 319- 320
 IWFORG 321- 322
 IWFIND 323- 324
 IWFJOB 325- 326
 IWFCORE 327- 328
 IINQCOMP 329- 330
 IINQCOMO 331- 332
 IINCAFDC 333- 333
 IINCGA 334- 334
 IINCSSI 335- 335
 IINCFS 336- 336
 IINCMCD 337- 337
 IINCWIC 338- 338
 IINCUNEM 339- 339
 IINCPH 340- 340
 IINCENER 341- 341
 IINCEDUC 342- 342
 IINCQCC 343- 343
 IINCTRAN 344- 344
 IINCMEAL 345- 345
 IINCOTH 346- 346
 IINCOTHH 347- 348
 ININLIMT 349- 349
 ININDN 350- 350
 ININIMM 351- 351
 ININELIG 352- 352
 ININDK 353- 353
 ININHAS 354- 354
 ININTRAN 355- 355
 ININCHAR 356- 356
 ININWORT 357- 357
 ININPLAN 358- 358
 ININAVAI 359- 359
 ININOTH 360- 360
 ININOTHH 361- 362
 IPBREDYN 363- 364
 IREDINCR 365- 365
 IREDWKRQ 366- 366
 IREDCSRQ 367- 367
 IREDINFO 368- 368
 IREDSIGN 369- 369
 IREDSSI 370- 370
 IREDLIMT 371- 371
 IREDOTH 372- 372
 IREDDK 373- 374
 IPASTPUB 375- 376
 IPASTMON 377- 378
 IPASTYR 379- 382
 INOTLIMT 383- 383
 INOTWKRQ 384- 384
 INOTCSRQ 385- 385
 INOTINFO 386- 386
 INOTBANK 387- 387
 INOTHIGH 388- 388
 INOTMAX 389- 389
 INOTSIGN 390- 390
 INOTMARR 391- 391
 INOTNEED 392- 392
 INOTOLD 393- 393
 INOTOTH 394- 394
 INOTDK 395- 396
 IELIGNUM 397- 398
 IELIGMON 399- 400
 IELIGYR 401- 404
 IALWAYCH 405- 406
 IKIDWKRQ 407- 407
 IKIDCSRQ 408- 408
 IKIDIMMI 409- 409
 IKIDINFO 410- 410
 IKIDSIGN 411- 411
 IKIDSSI 412- 412
 IKIDLIMT 413- 413
 IKIDOTH 414- 414
 IKIDDK 415- 416
 IKDSTRTM 417- 418
 IKDSTRTY 419- 422
 FILLER 423- 424
;
RUN ;