PROGRAM PRVSET C C N. A. Bourgeois, Jr. 15-Feb-88/. C C Get and display the current privilege set. C INTEGER*2 IPVSET(4) C CALL IPRIV (0,0,IPVSET) TYPE 10,(IPVSET(I),I=1,4) 10 FORMAT (' The privilege set flags are:',4O8,/) C CALL EXIT END