Google
 

Trailing-Edge - PDP-10 Archives - BB-J712A-BM - uetp/lib/unv4.fml
There are 16 other files named unv4.fml in the archive. Click here to see a list.
*	DBMS
	INVOKE SUBS1 OF ORDTIN PRIVACY KEY COMPILE ORDER1.
	IF (ERCNT.NE.0) ACCEPT 101,J
*	DBMS
	OPEN AREA AREA1 USAGE-MODE IS EXCLUSIVE UPDATE.
	IF (ERCNT.NE.0) ACCEPT 101,J
	SLSOFF(1,1)='HOME'


*	DBMS
	FIND FIRST RECORD OF AREA1 AREA.
	IF (ERCNT.NE.0) ACCEPT 101,J

	DO 12 I=1,25
*	DBMS
	FIND NEXT SLSENG RECORD OF AREA1 AREA.
	IF (ERCNT.NE.0) ACCEPT 101,J
*	DBMS
	FIND NEXT RECORD OF SLSCUS-SET SET.
	IF (ERCNT.NE.0) ACCEPT 101,J
*	DBMS
	REMOVE CUSTOM FROM SLSCUS-SET.
	IF (ERCNT .NE. 0) ACCEPT 101,J
*	DBMS
	DELETE CUSTOM.
*	DBMS
	FIND NEXT RECORD OF SLSCUS-SET SET.
	IF (ERCNT.NE.0) ACCEPT 101,J
*	DBMS
	REMOVE CUSTOM FROM SLSCUS-SET.
	IF (ERCNT .NE. 0) ACCEPT 101,J
*	DBMS
	FIND NEXT RECORD OF SLSCUS-SET SET.
	IF (ERSTAT.NE.0307) ACCEPT 101,J
12	CONTINUE

*	DBMS
	FIND FIRST RECORD OF AREA1 AREA.
*	DBMS
	DELETE ALL.
	DO 13 I=1,1000
*	DBMS
	FIND NEXT RECORD OF AREA1 AREA.
	IF (ERSTAT.EQ.0307) GOTO 20
	IF (ERSTAT.NE.0) ACCEPT 101,J
*	DBMS
	DELETE ALL.
	IF (ERCNT.NE.0) ACCEPT 101,J
13	CONTINUE

*	DBMS
20	CLOSE ALL.

101	FORMAT(I)
102	FORMAT (1X ,I8,2X,O12)
	END