Skip to main content
ExLibris

  • Subscribe by RSS
    • Aleph
    Ex Libris Knowledge Center

    Fix routine to merge 020 tags

    1. Last updated
    2. Save as PDF
    • Article Type: General
    • Product: Aleph
    • Product Version: 18.01

    Description:
    I have records that have multiple 020 tag fields. The first record has a subfield a, while each subsequent 020 tags have a subfield z. I want to concatentate the first 020 tag subfield a with the subfield z of the other 020 tags. As an example:

    Input
    020 L $$a0684314290 (electronic book)
    020 L $$z0684312573
    020 L $$z0028658078 (v. 1 : alk paper)

    what I want as a result is one record of:

    020 L $$a0684314290 (electronic book)$$z0684312573$$z0028658078 (v. 1 : alk paper)

    deleting all the remaing 020 tag fields with the subfield z only.

    In NDU01/tab/import, I created a fix routine called gvrl.fix. This uses the CONCATENATE-FIELDS option. However, it concatenates the subfield a to each subsequent subfield z. Using the example above, my output looks like this:

    020 L $$a0684314290 (electronic book)$$a0684314290 (electronic book)
    020 L $$z0684312573$$a0684314290 (electronic book)
    020 L $$z0028658078 (v. 1 : alk paper)$$a0028659937 (electronic book)

    Is this the right routine I should use or is there a better one? If this is the right one, how do I use it to get the results I want? [ <Phil Andrzejewski > ]
    --------------------------------------------------------------------------------
    [ <Randy Menakes > ]
    [ <Randy Menakes > ]

    Resolution:
    Here is a version of a script that should work in all cases. If there are more than one 020, only subsequent 020's with a single subfield of $z will be concatenated with the first 020. Subsequent 020 fields that include a $a won't be touched.

    !-!!!!!-!!-!-!!!-!!!-!!!!!-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1 020## 00002 COND-LOAD-VAL-FIELD N
    1 020## 00002 CHANGE-FIELD 02A
    1 020## 00002 CHANGE-FIELD 02B
    1 020## 00002 CHANGE-FIELD 02C
    1 02A## COPY-FIELD 02X
    1 02B## COPY-FIELD 02Y
    1 02C## COPY-FIELD 02Z
    1 02X## DELETE-FIELD-COND Y,$$a
    1 02Y## DELETE-FIELD-COND Y,$$a
    1 02Z## DELETE-FIELD-COND Y,$$a
    1 020## CONCATENATE-FIELDS 02X
    1 020## CONCATENATE-FIELDS 02Y
    1 020## CONCATENATE-FIELDS 02Z
    1 02X## DELETE-FIELD
    1 02Y## DELETE-FIELD
    1 02Z## DELETE-FIELD
    1 02A## DELETE-FIELD-COND N,$$a
    1 02B## DELETE-FIELD-COND N,$$a
    1 02C## DELETE-FIELD-COND N,$$a
    1 02A## CHANGE-FIELD 020
    1 02B## CHANGE-FIELD 020
    1 02C## CHANGE-FIELD 020

    • Article last edited: 10/8/2013