Two commands to help IS personnel deal with "insufficient authority"

Two quick and simple commands to help IS personnel deal with "insufficient authority"
  1. Ever have a case were a job running for example, under QSECOFR authority, had an error message waiting but programmers and/or operators could not view the ACTIVE joblog because of insufficient authority?
  2. Ever had a time when a programmer or operator displayed objects in a library and could not find (see) them because of insufficient authority (i.e. owned by QSECOFR)

Two simple commands SEEJOB and SEEOBJ can solve this for you if you compile them under QSECOFR with USRPRF=*OWNER. Command line entry is not available and therefore protects against adopted authority issues. 

  1. SEEJOB ..corresponding  command receives &JOB (required) and &USER (optional). Tip: Make sure you create commands that will not be created by IBM in the future. The prefix SEE is pretty safe.               PGM        PARM(&JOB &USER)              DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)              DCL        VAR(&USER) TYPE(*CHAR) LEN(10)               DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)              DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(100)              DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)              DCL        VAR(&MSGFL) TYPE(*CHAR) LEN(10)               MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))  /* JOB NAME ONLY PARM .............................................              IF (&USER = ' ')  THEN(DO)              DSPJOB     JOB(&JOB)              GOTO EXIT              ENDDO  /* JOB NAME AND USER GIVEN ........................................              DSPJOB     JOB(&USER/&JOB)              GOTO EXIT ================================================================= 
  2. SEEOBJ ..corresponding  command receives those required for DSPOBJD  PGM        PARM(&LIB &OBJ &TYPE)  DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)  DCL        VAR(&OBJ) TYPE(*CHAR) LEN(10)  DCL        VAR(&TYPE) TYPE(*CHAR) LEN(7)  DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)  DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(100)  DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)  DCL        VAR(&MSGFL) TYPE(*CHAR) LEN(10)   MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))  DSPOBJD    OBJ(&LIB/&OBJ) OBJTYPE(&TYPE)   GOTO       CMDLBL(EXIT)

This was first published in September 1999

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top