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:
  1. --  category:  IT Audits
  2. --  description:  DSPOBJAUT
  3. --
  4. -- Search for ROB and replace appropriately.
  5.  
  6. CL:  CRTLIB SY20170925 TEXT('Audit 2017-09-25');
  7. set current schema = 'SY20170925';
  8. CL:  CHGCURLIB SY20170925;
  9. CL:  MD '/home/ROB/SY20170925';
  10. CL:  CD '/home/ROB/SY20170925';
  11.  
  12. CL: DSPUSRPRF USRPRF(*ALL) TYPE(*BASIC)                      
  13.                  OUTPUT(*OUTFILE) OUTFILE(DSPUSRPRF);
  14. CL:  CPYTOIMPF FROMFILE(DSPUSRPRF)  
  15.           TOSTMF(DSPUSRPRF.csv)
  16.           MBROPT(*REPLACE)     
  17.           STMFCCSID(*PCASCII)  
  18.           RCDDLM(*CRLF)        
  19.           ADDCOLNAM(*SYS);
  20.  
  21. -- Use tools to convert spool file into pdf file
  22. CL:  OVRPRTF FILE(QSYSPRT)
  23.         TOSTMF('WRKSYSVAL.pdf')
  24.         DEVTYPE(*AFPDS)
  25.         WSCST(*PDF)
  26.         OVRSCOPE(*JOB);
  27. CL:  WRKSYSVAL OUTPUT(*PRINT);
  28. CL:  DLTOVR QSYSPRT LVL(*JOB);
  29.  
  30. -- Use tools to convert spool file into pdf file
  31. CL:  ENDJOB JOB(ROB/QPRTJOB) OPTION(*IMMED) SPLFILE(*YES);
  32. CL:  ANZDFTPWD ACTION(*NONE);
  33. CL:  CPYSPLF FILE(QPSECPWD)         
  34.         TOFILE(*TOSTMF)
  35.         JOB(ROB/QPRTJOB)
  36.         SPLNBR(*LAST)          
  37.         TOSTMF('ANZDFTPWD.pdf')
  38.         WSCST(*PDF);
  39.  
  40.  
  41. -- Get list of objects users are authorized to:
  42. -- https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/IBM%20i%20Technology%20Updates/page/QSYS2.OBJECT_PRIVILEGES%20View
  43. create table objectlist as (
  44. select *
  45. from QSYS2.OBJECT_PRIVILEGES
  46. where system_object_schema in('ERPLXF', 'ERPLXUSRF')
  47. ) with data;
  48. CL:  CPYTOIMPF FROMFILE(OBJECTLIST)  
  49.           TOSTMF(OBJECTLIST.csv)
  50.           MBROPT(*REPLACE)     
  51.           STMFCCSID(*PCASCII)  
  52.           RCDDLM(*CRLF)        
  53.           ADDCOLNAM(*SYS);
  54.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css