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.

This was last published in August 2001

Dig Deeper on Implementation

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

  • How do I size a UPS unit?

    Your data center UPS sizing needs are dependent on a variety of factors. Develop configurations and determine the estimated UPS ...

  • How to enhance FTP server security

    If you still use FTP servers in your organization, use IP address whitelists, login restrictions and data encryption -- and just ...

  • 3 ways to approach cloud bursting

    With different cloud bursting techniques and tools from Amazon, Zerto, VMware and Oracle, admins can bolster cloud connections ...

Close