Newsgroups: bit.listserv.notis-l
Date:         Thu, 23 Jul 1992 13:35:54 CDT
From:         JTRIMBLE@UA1VM.BITNET
Subject:      4XX REFS. ARE FIXED!!!!

4XX refs in authority records are fixed in OPAC!  We were able to have
the 'fixes' installed that Gary Strawn suggested back in September
1991.  This will correct 451 not appearing in author searches and 400,
410, and 430 tags will NOW appear in author searches.  Catalogers out there
will not have to improperly code the heading use fields any longer to
'force' the 400, 410, and 411 references to appear in the OPAC.  Also, the
S/SYS can remain 'a' and the references will STILL appear.

For the convenience of all, I'm going to reiterate the changes to the 5.0.2
searching program LPC140P that appeared on NOTIS-L at that time and two
additional fixes that we stumbled upon with help from an Authories Librarian,
who shall remain nameless.  I recommend that you might want to search the
NOTIS-L archives at Syracuse for information concerning the background to
the changes listed below.

In the following code segments, modified lines are marked '*'; new lines are
marked '+'.

The first change also optimizes the logic which looks up the appropriate
search rule making the program run faster in some situations.

FINDIXRL EQU  *
         CLC  DSIXRULK(2),0(R2)   IT THIS A VALID INDEX SEARCH RULE?  *
         BNH  IXSUBCHK            MAYBE *
FINDLOOP LA   R2,AINDXTB$(R2)     NO, GET NEXT ENTRY IN TABLE *
         BCT  R0,FINDIXRL         CHECK IF NEXT SEARCH RULE IS
         <etc.>
IXSUBCHK EQU  *
         BL   IXNOHIT             DONE WITH THIS INDEX ENTRY +
         CLI  OPACSTRP,OPACAU     IS THIS A SUBJECT SEARCH?
         BNE  IXAUTHCK            NO, CHECK IF AUTHOR
         CLI  DSIXSLC,C' '        DOES THIS HAVE A SUBJECT SYSTEM? +
         BE   IXSUBGO             NO, ACCEPT INDEX ENTRY +
         CLI  DSICSLC,2(R2)       IS THIS RIGHT SUBJECT SYSTEM? +
         BNE  FINDLOOP            NO, TRY NEXT RULE +
IXSUBGO  CLI  DSIXFC,C'3'         IS SOURCE RECORD AUTHORITY +
         BH   IXFLGCHK            NO, CHECK INDEX CONTROL FLAGS

==========

IXAUTHCK EQU    *
         CLI   OPACSTRP,OPACAU    IS THIS AN AUTHOR SEARCH?
         BNE   IXTILCHK           NO, IT'S A TITLE SEARCH
         CLI   DSIXFC,C'3'        IS THE SOURCE RECORD AUTHORITY?
         BH    CHKBADIX           NO, CHECK INDEX CONTROL FLAGS
         CLI   DSIXHTC,C'9'       IS THIS AN X51 FIELD?  +
         BE    IXAUTCH2           YES, CHECK AUTHORITY VALIDITY +
         CLI   DSIXHTC,C'2'       IS THIS AN X00, X10, X11 FIELD?
         BH    CHKBADIX           NO, CHECK INDEX CONTROL FLAGS
IXAUTCH2 BAL   R14,AAUTHCHK       CHECK VALIDITY OF AUTHORITY *
         <etc.>

=========

IXTILCHK EQU    *
         CLC   DSIXTTC,3(R2)       IS THIS RIGHT TITLE TYPE?  +
         BNE   FINDLOOP            NO, TRY NEXT RULE +
         CLI   DSIXFC,C'3'         IS SOURCE RECORD AUTHORITY?
         <etc.>

=========
The following affect the SERIES AUTHORITY REFERENCES (400, 410, 411), which we
stumbled upon and HAS NOT been posted previously.  At AAUTHCHK the problem is
now corrected.  TAUTHCHK needs to have ICBA2SER deleted (this causes the OPAC
to produce the message "For more information on this heading, type 1" and
there is no scope note authorized in the MARC format and an error is produced.)

AAUTHCHK DS    0H
         ST    R14,DSREGSV5        SAVE RETURN ADDRESS
         USING IXBINFO,R3
         SR    R15,R15             ASSUME AUTHORITY IX IS VALID
         TM    ICBAFLG1,ICBA1UMA+ICBA1USE  MAIN/ADDED OR SERIES? + <==YES!
         <etc.>

==========
TAUTHCHK DS    0H
         ST    R14,DSREGSV5
         USING ICBINFO,R3
         SR    R15,R15             ASSUME TITLE AUTHORITY IX IS VALID
         TM    ICBAFLG1,ICBA1UMA+ICBA1USE  MAIN/ADDED ETNRY OR SERIES?
         BZ    TAUTHNHT            NO, EXIT FROM THIS ROUTINE
         CLI   ICBFC,C'1'          ESTABLISHED OR REFERENCED HEADING ?
         BNE   TAUTHCXT            NO, EXIT FROM THIS ROUTINE
         TM    ICBAFLG1,ICBA1NRI   REFERENCE INSTRUCTION CODE MISSING ?
         BO    TAUTHNHT            YES, INDEX IS NOT A HIT
         TM    ICBAFLG2,ICBA2SUR+ICBA2CGR+ICBA2RFT+ICBA2ONR  +*
*                    SUBJ. REF, CAT. GEN. REF, REFERRED TO HEADING, +*
*                    OR OTHER NAME REFERENCE ?                      +*

===========
The last fix addresses missing entries in the search rule tables:

AINDXTB  DS    0C
         DC    C'1',C'0',C' ',C' '
AINDXTB$ EQU   *-AINDXTB
         DC    C'1',C'1',C' ',C' '
         DC    C'1',C'2',C' ',C' '
         DC    C'1',C'9',C' ',C' '    +  (was missing)
         <etc>

TINDXTB  DS    0C
         DS    C'1',C'3',C' ',C' '    +  (was missing)
TINDXTB$ EQU   *-TINDXTB
         DS    C'2',C'3',C' ',C' '  (moved down two lines)
         DS    C'3',C'3',C' ',C' '
         <etc.>
============

We also added this little 'ditty' to rid ourselves of the author 'rotated'
entries (suggested in the posting from NOTIS-L in September 1991).  I don't
suggest that everyone needs to add this: it depends on what your catalogers
like.

CHKBADIX EQU   *
         CLI   DSIXTTC,C'7'        IS THIS ROTATED ENTRY? +
         BNL   IXNOHIT             YES, REJECT INDEX RECORD +
         TM    DSMHIFLG, DSMHINIR  DID INDEX RULE MATCH SEARCH RULE ?
         <etc.>
================
Okay folks, that's all there is.  I apologize for the length, but I was trying
to assist you a little.  Thanks to Mr. Strawn for the help.  Yep, it took all
this to get those references to appear.

If you have questions about the above, look at the NOTIS-L archives or
contact your nearest programmer at the corner store.


Moral support by:                  Changes made by:
Jeffrey Trimble                    Harry Samuels
Monographs Catalog Librarian       Programmer/Analyst (Tech 1)
University of Alabama              University of Alabama
Bitnet: JTRIMBLE@UA1VM             Bitnet: HSAMUELS@UA1VM
Internet: JTRIMBLE@UA1VM.UA.EDU    Internet: HSAMUELS@UA1VM.UA.EDU
(205) 348-6045                     Voice: (205) 348-2877
                                   Fax: (205) 348-9170
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU