.;
.;  GETPRV.ALL
.;	COMMAND FILE TO BUILD GETPRV.TSK
.;
.OPEN GETPRV.FTN;111
.ENABLE DATA
      PROGRAM GETPRV
C+
C GETPRV PROGRAM
C	PROGRAM TO LIST TASK FILES
C	THAT ARE PRIV (NOT /PR:0)
C
C  WRITTEN BY: DAVID J. STRAIT	03-JUN-82
C	       APPLIED DYNAMICS INTERNATIONAL
C
C  INPUT:
C	GETPRV.IN - FROM SRD LIST FILE
C
C  OUTPUT:
C	GETPRV.OUT
C-
      INTEGER*2 BLOCK(256),LENIN,LENFIL,LENDEV
      LOGICAL*1 INBUF(80),OUTBUF(80),FILNAM(40)
C
      CALL ASSIGN(1,'SY:GETPRV.IN')
      CALL FDBSET(1,'R')
      CALL ASSIGN(2,'SY:GETPRV.OUT')
C
C  FIND DEVICE AND UIC
C
  10  READ(1,1000,END=9999) LENIN,INBUF
1000  FORMAT(Q,80A1)
      IF(LENIN.LT.3) GO TO 10
      IF(INBUF(3).NE.'*') GO TO 10
      LENDEV = 0
  20  LENDEV = LENDEV + 1
      FILNAM(LENDEV) = INBUF(LENDEV+4)
      IF (FILNAM(LENDEV).NE.']') GO TO 20
       READ(1,1000,END=9999) LENIN,INBUF	! SKIP COMMAND LINE
C
C  READ FILE NAMES
C
 100  READ(1,1000,END=9999) LENIN,INBUF
      IF (LENIN.GT.40) GO TO 10			! TOTALS
      DO 110 I = 1,LENIN
        FILNAM(LENDEV+I) = INBUF(I)
 110    CONTINUE
      LENFIL = LENDEV+LENIN
C
C  READ FILE AND TEST FOR LIBARY
C
      CALL ASSIGN(3,FILNAM,LENFIL)
      CALL FDBSET(3,'R')
      DEFINE FILE 3("77777,256,U,NBLOCK)
      READ(3'1,ERR=200) BLOCK
      CALL CLOSE(3)
      IF (BLOCK(5).EQ.0) GO TO 100
      WRITE(2,2000) (FILNAM(I),I=1,LENFIL)
2000  FORMAT(1X,40A1)
      GO TO 100
 200  CALL CLOSE(3)
      GO TO 100
C
C  EXIT
C
9999  CALL CLOSE(1)
      CALL CLOSE(2)
      CALL EXIT
      END
.DISABLE DATA
.CLOSE
.OPEN GETPRV.TKB;111
.ENABLE DATA
GETPRV;1/CP,GETPRV;1/-SP/-WI=GETPRV
LB:[1,1]FOROTS/LB:$SHORT,LB:[1,1]FOROTS/LB
/
UNITS=3
ACTFIL=3
TASK=GETLIB
;LIBR=FCSRES:RO
MAXBUF=512
//
.DISABLE DATA
.CLOSE
.;
FOR GETPRV;1=GETPRV;111/-SN
TKB @GETPRV.TKB;111
PIP GETPRV.FTN;111,GETPRV.TKB;111,GETPRV.OBJ;1/DE