48 lines
1.5 KiB
OpenEdge ABL
48 lines
1.5 KiB
OpenEdge ABL
93900 #include "rundecs.h"
|
|
93910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
93920 (**)
|
|
93930 FUNCTION CRSTRUCT(TEMPLATE: DPOINT ) : OBJECTP ; EXTERN ;
|
|
93940 (*+01() (*$X6*) ()+01*)
|
|
93950 PROCEDURE OPENCOVER(
|
|
93960 PFET: FETROOMP; VAR PCOV: OBJECTP; LFN: LFNTYPE; PROCEDURE CH (*-01() ( COV: OBJECTP; L: LFNTYPE) ()-01*)
|
|
93970 ); EXTERN;
|
|
93980 (**)
|
|
93990 (**)
|
|
94000 PROCEDURE STOPEN(
|
|
94010 PFET: FETROOMP; VAR RF: OBJECTP; LFN: LFNTYPE; PROCEDURE CH (*-01() (COV: OBJECTP; L: LFNTYPE) ()-01*)
|
|
94020 );
|
|
94030 VAR F, PCOV: OBJECTP;
|
|
94040 BEGIN
|
|
94050 OPENCOVER(PFET, PCOV, LFN, CH);
|
|
94060 PCOV^.STATUS := PCOV^.STATUS+[STARTUP];
|
|
94070 F := CRSTRUCT(FILEBLOCK);
|
|
94080 WITH F^ DO
|
|
94090 BEGIN
|
|
94100 FINC;
|
|
94110 OSCOPE := 1;
|
|
94120 PCOVER := PCOV;
|
|
94130 TERM := [] ; (*+01() TERM1 := [] ; ()+01*)
|
|
94140 END;
|
|
94150 ENEW(RF, REFNSIZE);
|
|
94160 WITH RF^ DO
|
|
94170 BEGIN
|
|
94180 (*-02() FIRSTWORD := SORTSHIFT * ORD(REFN) + INCRF; ()-02*)
|
|
94190 (*+02() PCOUNT:=1; SORT:=REFN; ()+02*)
|
|
94200 (*+01() SECONDWORD := 0; ()+01*)
|
|
94210 ANCESTOR := RF;
|
|
94220 OFFSET := STRUCTCONST;
|
|
94230 PVALUE := F;
|
|
94240 OSCOPE := 3;
|
|
94250 END
|
|
94260 END;
|
|
94270 (*+01() (*$X4*) ()+01*)
|
|
94280 (**)
|
|
94290 (**)
|
|
94300 (*-02()
|
|
94310 BEGIN (*OF A68*)
|
|
94320 END; (*OF A68*)
|
|
94330 ()-02*)
|
|
94340 (*+01()
|
|
94350 BEGIN (*OF MAIN PROGRAM*)
|
|
94360 END (* OF EVERYTHING *).
|
|
94370 ()+01*)
|