Trailing-Edge
-
PDP-10 Archives
-
BB-D867C-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.