declare seldsk entry (fixed(7)) returns(ptr), settrk entry (fixed(15)), setsec entry (fixed(15)), rdsec entry returns(fixed(7)), wrsec entry returns(fixed(7)), sectrn entry (fixed(15), ptr) returns(fixed(15));