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:
- PGM PARM(&INPUT &OUTPUT &OUTLEN)
-
- DCL VAR(&INPUT) TYPE(*CHAR) LEN(9999)
- DCL VAR(&OUTPUT) TYPE(*CHAR) LEN(999)
- DCL VAR(&OUTLEN) TYPE(*CHAR) LEN(4)
-
- DCL VAR(&USER) TYPE(*CHAR) LEN(10)
- DCL VAR(&RTNLIB) TYPE(*CHAR) LEN(10)
-
- /* ONLY WANT TO CHANGE THINGS WHEN THE USER IS +
- QSECOFR */
-
- RTVJOBA CURUSER(&USER)
- IF (&USER *NE 'QSECOFR') DO
- RETURN
- ENDDO
-
- RTVOBJD OBJ(EMLPDF) OBJTYPE(*DEVD) RTNLIB(&RTNLIB)
- MONMSG CPF0000 EXEC(GOTO NOEMLPDF)
- OVRPRTF FILE(QPJOBLOG) DEV(EMLPDF) OUTQ(*DEV) HOLD(*NO) +
- USRDTA('Joblog') +
- USRDFNDTA('MAILTAG(01000000000000OPERATIONS)')
- GOTO CONTINUE
- NOEMLPDF:
- OVRPRTF FILE(QPJOBLOG) HOLD(*YES) USRDTA('Joblog') +
- USRDFNDTA('MAILTAG(01000000000000OPERATIONS)')
-
- CONTINUE:
-
- DSPJOBLOG OUTPUT(*PRINT)
- DLTOVR FILE(QPJOBLOG)
- END:
- ENDPGM
|
|
|