HP 3000 Manuals

HP Transact Reference Manual

Traversing a KSAM File by Primary Key 

In this example, a KSAM file is read in primary key sequence.  Compare it
with a later example of how to read an MPE file by primary key.

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

     DEFINE(ITEM)  KARRAY 80 X(1):
                   KEY1      X(5)= KARRAY(1);   << DEFINE PRIMARY KEY           >>

     LIST KARRAY,INIT;

     MOVE (KEY1)= "$$$$$";                      << GIVE KEY A VALUE             >>

     SET(KEY) LIST(KEY1);                       << SETUP KEY/ARGUMENT REGISTERS >>

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

     EXIT;

     DISP:
       DISPLAY KARRAY;
       RETURN;

     END KPLAY4;

MPE/iX 5.0 Documentation