!
! NOTE - 1) do not edit this header section
!      - 2) this header is created from the template located
!        in $aleph_headers (sub-folders)
!      - 3) to add remarks within the table,
!        start the line with !rem or !*
!      - 4) to mark a line as non-used (but restorable)
!        add ! at start of line, retaining column structure
!        displaced by one position to the right
!      - 5) all internal codes must be Latin characters A-Z,0-9
!
!==============================================================================
!                      tab_fix_usm2mab
!              "Rules" for US-MARC (21) to MAB2 conversion
!==============================================================================
! Last header change: 28/03/2004
!
! HELP
! In order to run special conversion programs for single tags
! it is possible to use programs described in the documentation
!  "Conversion between ALEPH-standard-formats"
!
! END_HELP
!
! COL   1.   5; ALPHA_NUM, UPPER; #;
!               Source Tag & indicator;
!               Source Tag & indicator;
! COL   2.   1; ALPHA_NUM, LOWER;  ;
!               Source Subfield;
!               Source Subfield;
! COL   3.   5; ALPHA_NUM, UPPER; #;
!               Target Tag & indicator;
!               Target Tag & indicator;
! COL   4.   1; ALPHA_NUM, LOWER;  ;
!               Target Subfield;
!               Target Subfield;
! COL   5. 100; ALPHA_NUM, LOWER; _;
!               Program name with arguments;
!               Program name with arguments;
!
! 1   2   3   4               5
!!!!!-!-!!!!!-!-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>
#####   LDR     const_field       "00000nM2.01200024||||||h",ONCE-IDN=01
#####   FMT     const_field       "MH",ONCE-IDN=02

LDR             usm2mab_ldr
001##   001   a
006##           usm2mab_006
007##           usm2mab_007
008##           usm2mab_008
013## a 562   a
015## a 574   a
020## a 540   a
020## z 540b  a
022## a 542   a
022## z 542b  a
0242  a 541   a
0242  z 541b  a
027## a 543   a
027## z 543b  a
0280  a 551a  a
0281  a 552   a
0282  a 551c  a
030## a 376b  a
041##   037b    edit_field             ADDNEW-I,SEL=a,CAT=";aa\x1C;"
100## a 100   a
110##   200     usm2mab_710
111##   200     usm2mab_710
130## a 304   a
130## l 304   a edit_field             MERGE-I,PREFIX="<",SUFFIX=">",CAT=";aa ;"
240## a 304   a
245## a 331   a
245## b 335   a
245## c 359   a str_cat ", "
245## f 359   a str_cat ", "
245## g 359   a str_cat ", "
245## h 334   a
245## k 501   a
245## n 331   a str_cat ", "
245## p 331   a str_cat ": "
246## a 504   a
247## a 532   a
250## a 403   a
250## b 403   a str_cat ", "
254## a 503   a
255## a 407   a
255## b 407   a str_cat " ; "
256## a 653   a
260## a 410   a str_cat ", "
260## b 412   a str_cat ", "
260## c 425_  a str_cat
264##   419     
300## a 433   a
300## b 434   a
300## c 435   a
300## e 437   a
300## f 434   a str_cat ", "
300## g 434   a str_cat ", "
310## a 523   a str_cat ". "
310## b 405   a
336##   060    
337##   061    
338##   062    
340##   439     
344##   440    
345##   441    
346##   442    
347##   443    
362## a 432   a
380## a 380   a
381##   381     
382##   382    
383##   383    
384## a 384   a
385##   678    
490## a 454   a usm2mab_440
500## a 501   a str_cat ". - "
501## a 517   a
502## a 519   a
504## a 517c  a
505## a 517   a
507## a 407   a str_cat " ; "
507## b 407   a str_cat " ; "
508## a 511   a
510##   539     
511## a 509   a
513## a 501   a str_cat ". - "
515## a 523   a str_cat ". "
516## a 651   a
518## a 501   a str_cat ". - "
520## a 750   a
521##   514    
524## a 501   a str_cat ". - "
525## a 501   a str_cat ". - "
533## a 610   a
533## b 611a  a
533## c 613   a
533## d 620   a
533## e 637   a
533## f 621   a
533## m 619   a
534## a 501   a str_cat ". - "
538## a 501   a str_cat ". - "
542##   444     
550## s 537   s
550## u 537   u
600##   711c  a get_sub_all " / ",-67
610##   711d  a get_sub_all " / ",-67
611##   711d  a get_sub_all " / ",-67
630##   711   a get_sub_all " / ",-67
650##   711a  a get_sub_all " / ",-67
651##   711b  a get_sub_all " / ",-67
653##   711   a get_sub_all " / ",-67
655##   064    

700##   100b    usm2mab_700
710##   200b    usm2mab_710
711##   200b    usm2mab_710
720##   100b    usm2mab_700
730##   370   a
740##   370   a
751##   676    
753## a 654   a
753## c 654   c edit_field             MERGE-I
770## i 529   a
770## t 529   a str_cat ": "
780## i 531   a
780## t 531   a str_cat ": "
856     655
8560#   655a
8561#   655b
8562#   655c
8563#   655d
8564#   655e
8567#   655h