32 lines
836 B
OpenEdge ABL
32 lines
836 B
OpenEdge ABL
|
42400 #include "rundecs.h"
|
||
|
|
42410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
42420 (**)
|
||
|
|
42430 (**)
|
||
|
|
42440 (*-01() (*-05()
|
||
|
|
42450 PROCEDURE RANGENT (IDB: PIDBLK; LOCRG: DEPTHRANGE; NEWRG: PRANGE);
|
||
|
|
42460 (*PRANGENT*)
|
||
|
|
42470 BEGIN
|
||
|
|
42480 WITH NEWRG^ DO WITH FIRSTW DO
|
||
|
|
42490 BEGIN
|
||
|
|
42500 LOOPCOUNT := 0;
|
||
|
|
42510 RGIDBLK := IDB;
|
||
|
|
42520 RECGEN := NIL;
|
||
|
|
42530 RGSCOPE := LOCRG;
|
||
|
|
42540 RIBOFFSET:= FIRSTRG.RIBOFFSET;
|
||
|
|
42550 (*-41() RGNEXTFREE := INCPTR(NEWRG, RGCONST); ()-41*)
|
||
|
|
42560 (*+41() RGLASTUSED := ASPTR(ORD(NEWRG)); ()+41*)
|
||
|
|
42570 END;
|
||
|
|
42580 FIRSTRG.RIBOFFSET:= NEWRG
|
||
|
|
42590 END;
|
||
|
|
42600 ()-05*) ()-01*)
|
||
|
|
42610 (**)
|
||
|
|
42620 (**)
|
||
|
|
42630 (*-02()
|
||
|
|
42640 BEGIN
|
||
|
|
42650 END ;
|
||
|
|
42660 ()-02*)
|
||
|
|
42670 (*+01()
|
||
|
|
42680 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
42690 END (*OF EVERYTHING*).
|
||
|
|
42700 ()+01*)
|