HP 3000 Manuals

HP Transact Reference Manual

Search with Generic Key 

Generic keys must be equal to or less than the length of the search
value.

     SYSTEM KPLAY4, KSAM=KTRAN3;                 << OPEN AS A KSAM FILE         >>

     DEFINE(ITEM) KARRAY 80 X(1):
                  KEY       X(5) = KARRAY(2):    << ALTERNATE KEY               >>
                  KGEN      X(2) = KARRAY(2);    << GENERIC SEARCH VALUE        >>

     LIST KARRAY, INIT;

     DATA KGEN;                                  << RETRIEVE GENERIC SEARCH     >>
                                                 << VALUE                       >>

     SET(KEY) LIST(KGEN);                        << SETUP KEY/ARGUMENT REGISTER >>
                                                 << WITH SEARCH VALUE           >>

     FIND(CHAIN) KTRAN3,LIST=(KARRAY),           << USE CHAINED ACCESS ON       >>
                 PERFORM=DISP;                   << KSAM FILE                   >>
     EXIT;

     DISP:
       DISPLAY KARRAY;
       RETURN;

     END KPLAY4;

MPE/iX 5.0 Documentation