midrange.com code scratchpad |
Name:
IT Audit
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
09/25/2017 04:46:43 pm
|
IP:
Logged
|
|
Description:
Generate data as required by audit.
Some options may require recent PTF's, such as qsys2.object_privileges
|
Code:
- -- category: IT Audits
- -- description: DSPOBJAUT
- --
- -- Search for ROB and replace appropriately.
-
- CL: CRTLIB SY20170925 TEXT('Audit 2017-09-25');
- set current schema = 'SY20170925';
- CL: CHGCURLIB SY20170925;
- CL: MD '/home/ROB/SY20170925';
- CL: CD '/home/ROB/SY20170925';
-
- CL: DSPUSRPRF USRPRF(*ALL) TYPE(*BASIC)
- OUTPUT(*OUTFILE) OUTFILE(DSPUSRPRF);
- CL: CPYTOIMPF FROMFILE(DSPUSRPRF)
- TOSTMF(DSPUSRPRF.csv)
- MBROPT(*REPLACE)
- STMFCCSID(*PCASCII)
- RCDDLM(*CRLF)
- ADDCOLNAM(*SYS);
-
- -- Use tools to convert spool file into pdf file
- CL: OVRPRTF FILE(QSYSPRT)
- TOSTMF('WRKSYSVAL.pdf')
- DEVTYPE(*AFPDS)
- WSCST(*PDF)
- OVRSCOPE(*JOB);
- CL: WRKSYSVAL OUTPUT(*PRINT);
- CL: DLTOVR QSYSPRT LVL(*JOB);
-
- -- Use tools to convert spool file into pdf file
- CL: ENDJOB JOB(ROB/QPRTJOB) OPTION(*IMMED) SPLFILE(*YES);
- CL: ANZDFTPWD ACTION(*NONE);
- CL: CPYSPLF FILE(QPSECPWD)
- TOFILE(*TOSTMF)
- JOB(ROB/QPRTJOB)
- SPLNBR(*LAST)
- TOSTMF('ANZDFTPWD.pdf')
- WSCST(*PDF);
-
-
- -- Get list of objects users are authorized to:
- -- https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/IBM%20i%20Technology%20Updates/page/QSYS2.OBJECT_PRIVILEGES%20View
- create table objectlist as (
- select *
- from QSYS2.OBJECT_PRIVILEGES
- where system_object_schema in('ERPLXF', 'ERPLXUSRF')
- ) with data;
- CL: CPYTOIMPF FROMFILE(OBJECTLIST)
- TOSTMF(OBJECTLIST.csv)
- MBROPT(*REPLACE)
- STMFCCSID(*PCASCII)
- RCDDLM(*CRLF)
- ADDCOLNAM(*SYS);
-
|
|
|