HP 3000 Manuals

HP Transact Reference Manual

General Format for Generic Keys 

The way to set up the key register for a generic search is to define a
child item that is the size of the search string and set up the
Key/Argument registers with its name or value.  For example:

     SYSTEM NAME, KSAM=FILENAME;                 << OPEN AS A KSAM FILE         >>

     DEFINE(ITEM) RECORD X(80):                  << 80 BYTE RECORD              >>
                  KEY1   X(5) = RECORD(1):       << KEY IS FIRST FIVE CHAR      >>
                  GEN    X(2) = RECORD(1);       << GENERIC SEARCH ITEM         >>

     LIST RECORD,INIT;

     MOVE (GEN) = "AB";                          << DEFINE GENERIC SEARCH VALUE >>

     SET(KEY) LIST(GEN);                         << SETUP KEY/ARGUMENT REGISTER >>

     FIND(CHAIN) FILENAME,LIST=(RECORD);         << USE CHAINED ACCESS ON       >>
                                                 << GENERIC KEY                 >>

     END NAME;

MPE/iX 5.0 Documentation