Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/v4s.fml
There are 15 other files named v4s.fml in the archive. Click here to see a list.
*	DBMS
	INVOKE SS3 OF V4S.

*	DBMS
	OPEN AREA AREA1 USAGE-MODE IS PROT UPDATE PRIVACY KEY ABC.

	ACCEPT *,JMAX

	DO 10 I=10,-10,-1
	PROFES=I
*	DBMS
	STORE CALCREC SUPPRESS CALCSORT,AREA UPDATES.
*	DBMS
	MOVE STATUS CALCREC RECORD TO I1.
*	DBMS
	MOVE STATUS CALCSORT SET TO I2.
*	DBMS
	MOVE STATUS AREA1 AREA TO I3.
	TYPE 101,I1,I2,I3
10	CONTINUE

	DO 11 I=-10,10
	PROFES=I
	  DO 12 J=1,JMAX
	  SKMASK(1)=RAN(X)*2**34
	  TYPE *,SKMASK(1)
	  SKMASK(2)=0
*	DBMS
	  STORE SORTREC.
12	  CONTINUE
11	  CONTINUE

	CALL STATS

*	DBMS
	FIND	OWNER OF SYS-SET SET.
	IF (ERSTAT.NE.0) STOP 'ERROR'

	DO 21 I=1,100000
*	DBMS
	FIND NEXT RECORD OF SYS-SET SET.
	IF (ERSTAT.EQ.307) GOTO 99
	IF (ERSTAT.NE.0) STOP 'ERROR'
*	DBMS
	GET SORTREC.
	IF (ERSTAT.NE.0) STOP 'ERROR'
	TYPE *,SKMASK(1)
	IF (.NOT. MEMBER('CALCSORT')) STOP 'PRED'
*	DBMS
	FIND OWNER OF CALCSORT SUPPRESS ALL.
	IF (ERSTAT.NE.0) STOP 'ERROR'
*	DBMS
	GET CALCREC.
	IF (ERSTAT.NE.0) STOP 'ERROR'
21	CONTINUE

*	DBMS
99	CLOSE AREA AREA1.
	CALL STATS

101	FORMAT(1H ,3(O12,X))
*	DBMS
	END V4S.