How to search for a hex-character string in your members from a CA Librarian masterfile.

Products

• PanAudit Plus
• Easytrieve Report Generator
• PAN/SQL
• Librarian
• CA 2E

Issue/Introduction

Description:

You can use the user contributed routine FAIRSCAN to do such a search (FAIRSCAN is not limited to search for hex-value only, character strings can be searched as well). You need to use the COBOL compiler to compile the FAIRSCAN program first. It resides on the UCR target data set created during the installation of CA-Librarian. See CA Librarian System Services Guide ch.13.3 FAIRSCAN for details on this.

Solution:

Please find here a template to run the FAIRSCAN program searching for a X'00' in any members of the Masterfile.
In order to change the value in front of the delimiter #$# to your search criteria, just use the ISPF HEX ON editor.

...
    //SCAN EXEC PGM=FAIRSCAN,PARM='NRJS,NJTA'
    //STEPLIB DD DISP=SHR,DSN=<your.LIBR.CAILIB>
    //MASTER DD DISP=SHR,DSN=<your.master.file>
    //PRINTOUT DD SYSOUT=*
    //SYSOUT DD SYSOUT=*
    //CARDIN DD *
    -SCAN #$#
    -COLM 001 072
    ...
    Data for the control cards starts at column 11, the SCAN literal MUST
    be terminated by #$#. the -SCAN line above looks in hex like:
    -SCAN      #$#
    6ECCD444440757444444444444444444444444444444444444444444444444444444444444444
    02315000000BBB000000000000000000000000000000000000000000000000000000000000000

At the bottom of the listing, the following information was seen:

       *** JOB STATISTICS ***
       00052 MODULE PROCESSED
       00000 MODULES DROPPED -LANG
       00052 MODULES SEARCHED
       00002 MODULES FOUND

Environment

Release: LIB-AM00200-4.3-CA-Librarian-Access Method
Component: