JGSSの職種をリコードする

Stataでリコードする場合，

JGSS2010コードブックの職業コードを参照して，リコードしてみる．
以下のコードで一応，管理(1)・事務(2)・熟練(3)・専門(4)・農林(5)・半熟練(6)・販売(7)・非熟練(8)のリコードができる．
分類不能は欠損とした．範囲指定をすれば，もっとエレガントにできるのだろう．

generate tjob=.
replace tjob = 1 if XXJOB = 545
replace tjob = 1 if XXJOB = 546
replace tjob = 1 if XXJOB = 547
replace tjob = 1 if XXJOB = 548
replace tjob = 1 if XXJOB = 549
replace tjob = 1 if XXJOB = 550
replace tjob = 1 if XXJOB = 551
replace tjob = 1 if XXJOB = 552
replace tjob = 1 if XXJOB = 553
replace tjob = 1 if XXJOB = 608
replace tjob = 2 if XXJOB = 554
replace tjob = 2 if XXJOB = 555
replace tjob = 2 if XXJOB = 556
replace tjob = 2 if XXJOB = 557
replace tjob = 2 if XXJOB = 558
replace tjob = 2 if XXJOB = 559
replace tjob = 2 if XXJOB = 560
replace tjob = 2 if XXJOB = 561
replace tjob = 2 if XXJOB = 562
replace tjob = 2 if XXJOB = 563
replace tjob = 2 if XXJOB = 564
replace tjob = 2 if XXJOB = 565
replace tjob = 2 if XXJOB = 586
replace tjob = 2 if XXJOB = 590
replace tjob = 2 if XXJOB = 593
replace tjob = 2 if XXJOB = 594
replace tjob = 2 if XXJOB = 595
replace tjob = 2 if XXJOB = 596
replace tjob = 2 if XXJOB = 597
replace tjob = 2 if XXJOB = 598
replace tjob = 2 if XXJOB = 616
replace tjob = 2 if XXJOB = 617
replace tjob = 2 if XXJOB = 618
replace tjob = 2 if XXJOB = 619
replace tjob = 2 if XXJOB = 701
replace tjob = 3 if XXJOB = 579
replace tjob = 3 if XXJOB = 581
replace tjob = 3 if XXJOB = 623
replace tjob = 3 if XXJOB = 624
replace tjob = 3 if XXJOB = 626
replace tjob = 3 if XXJOB = 628
replace tjob = 3 if XXJOB = 631
replace tjob = 3 if XXJOB = 633
replace tjob = 3 if XXJOB = 635
replace tjob = 3 if XXJOB = 636
replace tjob = 3 if XXJOB = 637
replace tjob = 3 if XXJOB = 638
replace tjob = 3 if XXJOB = 639
replace tjob = 3 if XXJOB = 640
replace tjob = 3 if XXJOB = 641
replace tjob = 3 if XXJOB = 642
replace tjob = 3 if XXJOB = 643
replace tjob = 3 if XXJOB = 644
replace tjob = 3 if XXJOB = 647
replace tjob = 3 if XXJOB = 651
replace tjob = 3 if XXJOB = 654
replace tjob = 3 if XXJOB = 655
replace tjob = 3 if XXJOB = 656
replace tjob = 3 if XXJOB = 658
replace tjob = 3 if XXJOB = 660
replace tjob = 3 if XXJOB = 661
replace tjob = 3 if XXJOB = 662
replace tjob = 3 if XXJOB = 663
replace tjob = 3 if XXJOB = 664
replace tjob = 3 if XXJOB = 665
replace tjob = 3 if XXJOB = 666
replace tjob = 3 if XXJOB = 668
replace tjob = 3 if XXJOB = 670
replace tjob = 3 if XXJOB = 671
replace tjob = 3 if XXJOB = 673
replace tjob = 3 if XXJOB = 674
replace tjob = 3 if XXJOB = 675
replace tjob = 3 if XXJOB = 677
replace tjob = 3 if XXJOB = 678
replace tjob = 3 if XXJOB = 679
replace tjob = 3 if XXJOB = 680
replace tjob = 3 if XXJOB = 681
replace tjob = 3 if XXJOB = 684
replace tjob = 4 if XXJOB = 501
replace tjob = 4 if XXJOB = 502
replace tjob = 4 if XXJOB = 503
replace tjob = 4 if XXJOB = 504
replace tjob = 4 if XXJOB = 505
replace tjob = 4 if XXJOB = 506
replace tjob = 4 if XXJOB = 507
replace tjob = 4 if XXJOB = 508
replace tjob = 4 if XXJOB = 509
replace tjob = 4 if XXJOB = 510
replace tjob = 4 if XXJOB = 511
replace tjob = 4 if XXJOB = 512
replace tjob = 4 if XXJOB = 513
replace tjob = 4 if XXJOB = 514
replace tjob = 4 if XXJOB = 515
replace tjob = 4 if XXJOB = 516
replace tjob = 4 if XXJOB = 517
replace tjob = 4 if XXJOB = 518
replace tjob = 4 if XXJOB = 519
replace tjob = 4 if XXJOB = 520
replace tjob = 4 if XXJOB = 521
replace tjob = 4 if XXJOB = 522
replace tjob = 4 if XXJOB = 523
replace tjob = 4 if XXJOB = 524
replace tjob = 4 if XXJOB = 525
replace tjob = 4 if XXJOB = 526
replace tjob = 4 if XXJOB = 527
replace tjob = 4 if XXJOB = 528
replace tjob = 4 if XXJOB = 529
replace tjob = 4 if XXJOB = 530
replace tjob = 4 if XXJOB = 531
replace tjob = 4 if XXJOB = 532
replace tjob = 4 if XXJOB = 533
replace tjob = 4 if XXJOB = 534
replace tjob = 4 if XXJOB = 535
replace tjob = 4 if XXJOB = 536
replace tjob = 4 if XXJOB = 537
replace tjob = 4 if XXJOB = 538
replace tjob = 4 if XXJOB = 539
replace tjob = 4 if XXJOB = 540
replace tjob = 4 if XXJOB = 541
replace tjob = 4 if XXJOB = 542
replace tjob = 4 if XXJOB = 543
replace tjob = 4 if XXJOB = 544
replace tjob = 4 if XXJOB = 609
replace tjob = 4 if XXJOB = 610
replace tjob = 4 if XXJOB = 615
replace tjob = 4 if XXJOB = 703
replace tjob = 5 if XXJOB = 599
replace tjob = 5 if XXJOB = 600
replace tjob = 5 if XXJOB = 601
replace tjob = 5 if XXJOB = 602
replace tjob = 5 if XXJOB = 603
replace tjob = 5 if XXJOB = 604
replace tjob = 5 if XXJOB = 605
replace tjob = 6 if XXJOB = 580
replace tjob = 6 if XXJOB = 606
replace tjob = 6 if XXJOB = 607
replace tjob = 6 if XXJOB = 611
replace tjob = 6 if XXJOB = 612
replace tjob = 6 if XXJOB = 613
replace tjob = 6 if XXJOB = 614
replace tjob = 6 if XXJOB = 625
replace tjob = 6 if XXJOB = 627
replace tjob = 6 if XXJOB = 629
replace tjob = 6 if XXJOB = 630
replace tjob = 6 if XXJOB = 632
replace tjob = 6 if XXJOB = 634
replace tjob = 6 if XXJOB = 645
replace tjob = 6 if XXJOB = 646
replace tjob = 6 if XXJOB = 648
replace tjob = 6 if XXJOB = 649
replace tjob = 6 if XXJOB = 650
replace tjob = 6 if XXJOB = 652
replace tjob = 6 if XXJOB = 653
replace tjob = 6 if XXJOB = 657
replace tjob = 6 if XXJOB = 659
replace tjob = 6 if XXJOB = 667
replace tjob = 6 if XXJOB = 669
replace tjob = 6 if XXJOB = 672
replace tjob = 6 if XXJOB = 676
replace tjob = 7 if XXJOB = 566
replace tjob = 7 if XXJOB = 567
replace tjob = 7 if XXJOB = 568
replace tjob = 7 if XXJOB = 569
replace tjob = 7 if XXJOB = 570
replace tjob = 7 if XXJOB = 571
replace tjob = 7 if XXJOB = 572
replace tjob = 7 if XXJOB = 573
replace tjob = 7 if XXJOB = 574
replace tjob = 7 if XXJOB = 575
replace tjob = 7 if XXJOB = 576
replace tjob = 7 if XXJOB = 577
replace tjob = 7 if XXJOB = 582
replace tjob = 7 if XXJOB = 583
replace tjob = 7 if XXJOB = 584
replace tjob = 7 if XXJOB = 585
replace tjob = 7 if XXJOB = 587
replace tjob = 7 if XXJOB = 588
replace tjob = 7 if XXJOB = 589
replace tjob = 8 if XXJOB = 578
replace tjob = 8 if XXJOB = 591
replace tjob = 8 if XXJOB = 592
replace tjob = 8 if XXJOB = 620
replace tjob = 8 if XXJOB = 621
replace tjob = 8 if XXJOB = 622
replace tjob = 8 if XXJOB = 682
replace tjob = 8 if XXJOB = 683
replace tjob = 8 if XXJOB = 685
replace tjob = 8 if XXJOB = 686
replace tjob = 8 if XXJOB = 687
replace tjob = 8 if XXJOB = 688