midrange.com code scratchpad
Name:
SECLOG: Send QSECOFR job log
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
06/15/2022 12:22:36 pm
IP:
Logged
Description:
When someone uses SIGNOFF it will send a joblog
See:
ADDEXITPGM EXITPNT(QIBM_QCA_CHG_COMMAND)
FORMAT(CHGC0100)
PGMNBR(*LOW)
PGM(ROUTINES/SECLOG)
PGMDTA(*JOB *CALC 'SIGNOFF QSYS ')
Code:
  1.              PGM        PARM(&INPUT &OUTPUT &OUTLEN)
  2.  
  3.              DCL        VAR(&INPUT)     TYPE(*CHAR) LEN(9999)
  4.              DCL        VAR(&OUTPUT)    TYPE(*CHAR) LEN(999)
  5.              DCL        VAR(&OUTLEN)    TYPE(*CHAR) LEN(4)
  6.  
  7.              DCL        VAR(&USER)      TYPE(*CHAR) LEN(10)
  8.              DCL        VAR(&RTNLIB)    TYPE(*CHAR) LEN(10)
  9.  
  10.        /* ONLY WANT TO CHANGE THINGS WHEN THE USER IS     +
  11.           QSECOFR */
  12.  
  13.              RTVJOBA    CURUSER(&USER)
  14.              IF (&USER *NE 'QSECOFR') DO
  15.                 RETURN
  16.              ENDDO
  17.  
  18.              RTVOBJD    OBJ(EMLPDF) OBJTYPE(*DEVD) RTNLIB(&RTNLIB)
  19.              MONMSG     CPF0000 EXEC(GOTO NOEMLPDF)
  20.              OVRPRTF    FILE(QPJOBLOG) DEV(EMLPDF) OUTQ(*DEV) HOLD(*NO) +
  21.                           USRDTA('Joblog') +
  22.                           USRDFNDTA('MAILTAG(01000000000000OPERATIONS)')
  23.              GOTO       CONTINUE
  24.  NOEMLPDF:
  25.              OVRPRTF    FILE(QPJOBLOG) HOLD(*YES) USRDTA('Joblog') +
  26.                           USRDFNDTA('MAILTAG(01000000000000OPERATIONS)')
  27.  
  28.  CONTINUE:
  29.  
  30.              DSPJOBLOG  OUTPUT(*PRINT)
  31.              DLTOVR     FILE(QPJOBLOG)
  32.  END:
  33.              ENDPGM 
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css