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.