HP 3000 Manuals

HP Transact Reference Manual

Chronological Traversal of a KSAM File 

The file is read in chronological sequence using FREADC.

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

     DEFINE(ITEM) KARRAY 80 X(1):

     LIST KARRAY, INIT;

     FIND(SERIAL) KTRAN3, LIST=(KARRAY),        << ACCESS THE FILE SERIALLY   >>
                  PERFORM=DISP;

     EXIT;
     DISP:
         DISPLAY KARRAY;
         RETURN;
     END KPLAY4;

MPE/iX 5.0 Documentation