top - download
⟦894c6d80a⟧ Wang Wps File
Length: 969 (0x3c9)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN58.02«
Derivation
└─⟦080c9775e⟧ Bits:30006085 8" Wang WCS floppy, CR 0131A
└─ ⟦this⟧ »~ORPHAN58.02«
WangText
ref. TMP
INIT SECOND ̲TMP ̲REC.BUFFER2 = MAX ̲BUFF ̲SIZE
INIT SECOND ̲TMP ̲REC.FUNCTION=SEARCH ̲NEXT ̲PRIMARY ̲KEY…86…1 …02… …02… …02… …02… …02… …02…
…02…
4.2.2.6.12.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲S̲E̲A̲R̲C̲H̲ ̲N̲E̲X̲T̲ ̲R̲E̲C̲O̲R̲D̲S̲
N̲a̲r̲r̲a̲t̲i̲v̲e̲
The TMP is requested for N numbers of records next to the one specified.
F̲l̲o̲w̲g̲r̲a̲m̲
Refer 4.2.2.6.12.4-1
PROCEDURE SEARCH ̲NEXT ̲RECORDS (TABLE ̲ID: TABLE ̲ID
̲TYPE,
KEY: PRIMARY ̲KEY, NUMBER:INTEGER)
(OUTPUT ̲BUFFER: BUFFER)
EQUIVALENCE (SECOND ̲TMP ̲REC, REG: TMP ̲PARAM)
REG.TABLE ̲ID = TABLE ̲ID
REG.OUTPUT ̲BUFFER = OUTPUT ̲BUFFER
REG.ENTRY = KEY - 1
CASE SEARCH ̲NEXT ̲PRIMARTY ̲KEY (TMP ̲REC ̲1(CC): ERROR
̲OK
ERROR? ANALYSE ̲ERROR (CC,0)
OK?
END CASE
END SEARCH ̲NEXT ̲RECORDS
Figue 4.2.2.6.12.4-1…86…1 …02… …02… …02… …02… …02… …02… …02… …02… …02…
4.2.2.7 S̲u̲b̲-̲P̲a̲c̲k̲a̲g̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲s̲
Refer 4.1.7
