DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tclearentry«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tclearentry« 

TextFile

procedure clear_entries(permkey,lower,upper,z);
value permkey,lower,upper; integer permkey,lower,upper;
zone z;
<*clear all temporary entries up to permkey
within the bases given;
begin
integer segm,i,j;
integer array field rec;
long array field doc,name;
integer array t(1:10);
array sname(1:3);


rec:=0;
name:=6;
doc:=16;
sname(1):=0;
lookup_tail(<:catalog:>,t);
segm:=t(1);
connectcuri(<:catalog:>);
setposition(in,0,0);
for segm:=segm step -1 until 1 do
begin
  inrec6(in,512);
  for rec:=0 step 34 until 512-34 do
  begin
    if in.rec(1)<>-1 then
    begin
      if lower>=in.rec(2) and upper<=in.rec(3) then
      begin
        if in.rec(1) extract 3<=permkey then
        begin
        setcatbase(sname,lower,upper);
        if true then write(z,"nl",1,in.rec.name);
        comment removeentry(in.rec.name);
        end permkey;
      end user base;
    end entry;
  end record;
end segments;
end clearentries;;
▶EOF◀