Code:
- *************** Beginning of data *************************************
- CMD PROMPT('show bad logon attempts')
- PARM KWD(FDATE) TYPE(*CHAR) LEN(6) MIN(1) +
- PROMPT('From Date (MMDDYY)')
- PARM KWD(FTIME) TYPE(*CHAR) LEN(6) MIN(1) +
- PROMPT('From Time (HHMMSS)')
- PARM KWD(TDATE) TYPE(*CHAR) LEN(6) PROMPT('To +
- Date(MMDDYY) blank = today')
- PARM KWD(TTIME) TYPE(*CHAR) LEN(6) PROMPT('To +
- Time(HHMMSS) blank = now')
- PARM KWD(RCDSEL) TYPE(*CHAR) LEN(1) RSTD(*YES) +
- DFT(N) VALUES(N Y) PROMPT('Query w/Record +
- Selection?')
- ****************** End of data ****************************************
-
- *************** Beginning of data ***********************************
- PGM (&FDATE &FTIME &TDATE &TTIME &RCDSEL)
-
- DCL &FDATE *CHAR 6
- DCL &FTIME *CHAR 6
- DCL &TDATE *CHAR 6
- DCL &TTIME *CHAR 6
- DCL &RCDSEL *CHAR 1
-
- MonMsg CPF0000 *N GoTo Error
-
- IF COND(&TDATE = ' ') THEN(RTVSYSVAL +
- SYSVAL(QDATE) RTNVAR(&TDATE))
- IF COND(&TTIME = ' ') THEN(RTVSYSVAL +
- SYSVAL(QTIME) RTNVAR(&TTIME))
-
- CHKOBJ OBJ(QTEMP/QASYPWJ5) OBJTYPE(*FILE)
- MONMSG MSGID(CPF9801) EXEC(CRTDUPOBJ OBJ(QASYPWJ5) +
- FROMLIB(QSYS) OBJTYPE(*FILE) TOLIB(QTEMP))
- DSPJRN JRN(QAUDJRN) RCVRNG(*CURCHAIN) +
- FROMTIME(&FDATE &FTIME) TOTIME(&TDATE +
- &TTIME) JRNCDE((T)) ENTTYP(PW) +
- OUTPUT(*OUTFILE) OUTFILFMT(*TYPE5) +
- OUTFILE(QTEMP/QASYPWJ5)
-
- IF COND(&RCDSEL = 'N') THEN(RUNQRY +
- QRY(BADLOGONS) OUTTYPE(*DISPLAY))
- ELSE CMD(RUNQRY QRY(BADLOGONS) OUTTYPE(*DISPLAY) +
- RCDSLT(*YES))
-
- GOTO END
- /*-- Error handling: -----------------------------------------------*/
- Error:
- Call QMHMOVPM ( ' ' +
- '*DIAG' +
- x'00000001' +
- '*PGMBDY' +
- x'00000001' +
- x'0000000800000000' +
- )
-
- Call QMHRSNEM ( ' ' +
- x'0000000800000000' +
- )
-
- END: DLTF FILE(QTEMP/QASYPWJ5)
- ENDPGM
- ****************** End of data ******************************
-
- *************** Beginning of data *********************************************
- H QM4 05 Q 01 E V W E R 01 03 08/05/29 12:02
- V 1001 050 simple query over the QASYPWJ5 QAUDJRN
- V 5001 004 *HEX
- SELECT
- ALL DIGITS(PWNBR)||'/'||PWUSER||'/'||PWJOB AS JUN, PWPGM, PWRADR,
- PWTYPE, PWUSRN, PWDEVN, PWTSTP, PWRPORT, PWRLOC, PWLLOC, PWONAM,
- PWOTYP
- FROM QTEMP/QASYPWJ5 T01
- ****************** End of data ************************************************
-
|
|