DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PUTGET.K«

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »PUTGET.K« 
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »PUTGET.K« 
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »PUTGET.K« 

Mikados K File

PROCEDURE PUTREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH ZO DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    PEG:=1;
    IF (BLKENTRY>0) AND (BLKENTRY<=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)) THEN
    BEGIN
      EXTRACT(ZO,REC,Z,1,KEY1);
      EXTRACT(ZO,Z,Z,BLK+(BLKENTRY-1)*RECSIZE,KEY2);
      PEG:=COMPARE(ZO,Z,Z,KEY1,KEY2)
    END;
    IF PEG<>0 THEN
      FINDPOST(ZO,F,REC);
    IF IER=0 THEN
    BEGIN
      PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;
      FOR I:=1 TO RECSIZE DO
          Z(PEG+I):=REC(I);
      BLKCHG:=TRUE
    END ELSE
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;
 
PROCEDURE GETREC(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);
VAR I,PEG:INTEGER;
BEGIN
  IER:=0;
  WITH ZO DO
  IF FILEOPEN THEN
  IF FILEINIT THEN
  BEGIN
    FINDPOST(ZO,F,REC);
    PEG:=BLK+(BLKENTRY-1)*RECSIZE-1;
    IF IER=0 THEN FOR I:=1 TO RECSIZE DO
       REC(I):=Z(PEG+I);
    IF IER=-1 THEN IER:=-6
  END ELSE IER:=-12 ELSE IER:=-3
END;