HP 3000 Manuals

HP Transact Reference Manual

Traversal by Alternate Key 

Here the file is accessed by alternate key, where the key value is AAAAE.

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

     DEFINE(ITEM) KARRAY 80 X(1):
                  KEY2      X(5) = KARRAY(2);    << DEFINE ALTERNATE KEY        >>

     LIST KARRAY, INIT;

     MOVE (KEY2)= "AAAAE";                       << GIVE KEY A VALUE            >>

     SET(KEY) LIST (KEY2);                       << PUT KEY AND VALUE IN        >>
                                                 << KEY/ARGUMENT REGISTERS      >>

     FIND(CHAIN) KTRAN3,LIST=(KARRAY),           << USE CHAINED ACCESS ON       >>
                 PERFORM=DISP;                   << ALTERNATE KEY               >>

     EXIT;

     DISP:
       DISPLAY KARRAY;
       RETURN;

     END KPLAY4;

MPE/iX 5.0 Documentation