Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-BM - uetp/lib/fit2.fml
There are 15 other files named fit2.fml in the archive. Click here to see a list.
	INTEGER OWNER,MEMBER,TENANT,EMPTY
*	DBMS
	INVOKE FS1 OF SCHEMA ORDENT.
*	DBMS
	OPEN AREA AREA1.
	A=1
	TYPE 100,A
100	FORMAT(' MADE IT',F)
*	DBMS
	FIND FIRST RECORD OF AREA1 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
	L1=OWNER(0)
	L2=MEMBER(0)
	L3=TENANT(0)
	L5=OWNER('CUSORD-SET')
	L6=MEMBER('ORDITM-SET')
	L7=EMPTY('CUSORD-SET')
	TYPE 107,L1,L2,L3,L5,L6,L7
107	FORMAT(1H ,6I9)
*	DBMS
	FIND NEXT RECORD OF AREA1 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
*	DBMS
	FIND NEXT RECORD OF AREA1 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
101	FORMAT(1H ,6A5,2X,6A5,2X,I3)
150	CALL S1
151	CONTINUE
*	DBMS
	END FIT1.
	SUBROUTINE S1
*	DBMS
	INVOKE FS1 OF SCHEMA ORDENT.
*	DBMS
	OPEN AREA AREA2.
	A=1
	TYPE 100,A
100	FORMAT(' MADE IT',F)
*	DBMS
	FIND FIRST RECORD OF AREA2 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
*	DBMS
	FIND NEXT RECORD OF AREA2 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
*	DBMS
	FIND NEXT RECORD OF AREA2 AREA.
	TYPE 101,ARNAM,RECNAM,ERCNT
101	FORMAT(1H ,6A5,2X,6A5,2X,I3)
	CALL UNSET
200	RETURN
*	DBMS
	END FIT2.