SQLRPGLE ログイン履歴を調べる 
IBM0501R
H DFTACTGRP(*NO) ACTGRP(*CALLER) DATEDIT(*YMD/) DATFMT(*YMD/)
FQPRINT O F 132 PRINTER OFLIND(*INOF)
D IBM0501R PR
D parm1 10a
D IBM0501R PI
D parm1 10a
*
D PSDS SDS
D CPFMSG 7a OVERLAY(PSDS:40)
*
D QCMDEXC PR EXTPGM('QCMDEXC')
D cmdString 32702 options(*varsize)
D const
D cmdLen 15p 5 CONST
*
D cmd1 S 256a INZ(*blank)
D date1 S D
D wk01 S 12a
D wk02 S 75a
*
/free
// パラメータ加工
wk01 = '%' + parm1 + '%' ;
// １週間前の日付を取得
date1 = %date(*date) - %days(7) ;
// ログイン履歴を取得
cmd1 = 'DSPLOG PERIOD((*AVAIL ''' + %char(date1) + '''' +
')) OUTPUT(*PRINT) MSGID(CPF1124)' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
// スプールを保留
cmd1 = 'HLDSPLF FILE(QPDSPLOG) SPLNBR(*LAST) ' +
'JOBSYSNAME(*CURRENT) CRTDATE(*LAST) ' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
// テンポラリを作成
cmd1 = 'CRTPF FILE(QTEMP/TMP01) RCDLEN(134)' +
' IGCDTA(*YES) SIZE(*NOMAX)' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
// スプールをテンポラリにコピー
cmd1 = 'CPYSPLF FILE(QPDSPLOG) TOFILE(TMP01) SPLNBR(*LAST)' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
// スプールを削除
cmd1 = 'DLTSPLF FILE(QPDSPLOG) SPLNBR(*LAST) ' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
/end-free
C
C/EXEC SQL
C+ DECLARE tmpCur CURSOR FOR
C+ select SUBSTR(TMP01,24,75) FROM TMP01
C+ where SUBSTR(TMP01,24,1) <> ' '
C+ and TMP01 LIKE :WK01
C/END-EXEC
C/EXEC SQL
C+ OPEN tmpCur
C/END-EXEC
C/EXEC SQL
C+ WHENEVER NOT FOUND GOTO EOF
C/END-EXEC
C SETON OF
C DO *HIVAL
C/EXEC SQL
C+ FETCH tmpCur INTO :WK02
C/END-EXEC
C OF EXCEPT HDR
C EXCEPT DTL1
C OF SETOFF OF
C ENDDO
C EOF TAG
C/EXEC SQL
C+ close tmpCur
C/END-EXEC
C SETON OF
/free
// テンポラリを削除
cmd1 = 'DLTF FILE(QTEMP/TMP*)' ;
QCMDEXC(cmd1:%len(%trim(cmd1)));
*inLR = *on ;
return ;
/end-free
OQPRINT E HDR 4 6
O *DATE Y 12
O 60 'ログイン履歴調査リスト'
O 128 'PAGE.'
O PAGE 131
O E HDR 2
O 18 'ログイン履歴'
O E DTL1 1
O wk02 80
実行結果
スプール・ファイルの表示
ファイル . . . : QPRINT ページ／行 1/4
制御 . . . . . . 桁 1 - 127
検索 . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+..
2009/11/06 ログイン履歴調査リスト PAGE
ログイン履歴
PRIDSP1 PRIMULA 861823 09/11/02 01:23:45.123456
PRIDSP1 PRIMULA 861832 09/11/02 01:23:45.123456
PRIDSP1 QSECOFR 861941 09/11/02 01:23:45.123456
PRIDSP1 QSECOFR 865559 09/11/05 01:23:45.123456
PRIDSP1 QSECOFR 865664 09/11/05 01:23:45.123456
PRIDSP1 PRIMULA 865772 09/11/05 01:23:45.123456
PRIDSP1 PRIMULA 866786 09/11/06 01:23:45.123456
終り
F3= 終了 F12= 取消し F19= 左 F20= 右 F24= キーの続き
このページへのコメント
9hFynE <a href="http://crsujmxwwcjo.com/">crsujmxwwcjo</a>, [url=http://yiazimfvhddg.com/]yiazimfvhddg[/url], [link=http://fxiwigqrybzz.com/]fxiwigqrybzz[/link], http://oxmbzgyniwcp.com/