Problem solve Get help with specific problems with your technologies, process and projects.

Authority at a glance

View authority to all or some objects in a library in a single query.

View authority to all or some objects in a library in a single query (by object type, or by object name or any combination) - Print or Display. You will need a DSPF with input fields for object name, library, object type and print or display. You will also need two versions of the same query - one to show the report on the screen and one that gets submitted and prints the report.


  START: PGM                           
INPUT1:  DCLF FILE(your lib/your display file) /* Brings up +  display file for data entry */          
SNDRCVF                           
IF COND(&IN01) THEN(GOTO CMDLBL(END))
IF COND(&IN02) THEN(GOTO CMDLBL(END)) /*Enables F3 and F12 keys */     
DSPOBJ1: DSPOBJD OBJ(&LIBNAME/&OBJNAME) OBJTYPE(&TYPE) OUTPUT(*OUTFILE)      OUTFILE(your lib/your file)OUTMBR(*FIRST *REPLACE)  
MONMSG MSGID(CPF0001) EXEC(GOTO CMDLBL(END))      
MONMSG MSGID(CPF2123 CPF2105) EXEC(SNDPGMMSG + MSG('No objects of specified type in selected library.  Try again.')) 
IF COND(&PRINT *EQ 'P') THEN(GOTO CMDLBL(PRINT1))
ELSE CMD(GOTO CMDLBL(DISPLAY1))                      
DISPLAY1: CALL PGM (Yourlib/yourprogram to runqry to display) PARM(&TYPE)
GOTO  CMDLBL (INPUT1)             
GOTO CMDLBL(INPUT1)              
PRINT1: SBMJOB CMD(CALL PGM(your lib/your program to submit query to print)PARM(&TYPE))JOB(CHKAUTHPRT)             
GOTO CMDLBL(INPUT1)               
END:ENDPGM      

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.

Dig Deeper on Implementation

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close