Re: Retrival of Joblog after the user has signed off

[Mike.Barton@xxxxxxxxxxxx]

>Somehow one of my important QDDSSRC has been deleted.
>
>I could notice the above after few hours by that time
>the user must have signed off. If any body can help me
>to trace how it has happen will be of great help to
>me

Amanda
     snce there is no doubt that it is happening, my initial
suggestions of auditing/journalling will certainly help point
the finger to the person(s) and program(s) involved.

An alternative to changing the SIGNOFF command default to
LOG(*LIST) (which is perhaps a bit drastic) could be the following
Cl program (change the user to whoever):

PGM        PARM(&LOG &DROP &ENDCNN)

DCL        VAR(&LOG) TYPE(*CHAR) LEN(1)         /* Values L or D */
DCL        VAR(&DROP) TYPE(*CHAR) LEN(1)      /* Values D,Y or N */
DCL        VAR(&ENDCNN) TYPE(*CHAR) LEN(1)      /* Values Y or N */

DCL        VAR(&USER) TYPE(*CHAR) LEN(10)

RTVJOBA    USER(&USER)

IF         COND(&USER *EQ 'CULPRIT') THEN(DO)
IF         COND(&LOG *NE 'L') THEN(DO)
DSPJOBLOG  OUTPUT(*PRINT)
ENDDO
ENDDO

RETURN
ENDPGM

then, if the above program is SIGNOFFC,

CHGCMD CMD(SIGNOFF) VLDCKR(*LIBL/SIGNOFFC)


Mike


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---