Trailing-Edge
-
PDP-10 Archives
-
BB-4171G-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