Skip to content

Instantly share code, notes, and snippets.

@phpdave
Last active March 17, 2017 15:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save phpdave/530109954fb4851b6621d2c91fc93a67 to your computer and use it in GitHub Desktop.
Save phpdave/530109954fb4851b6621d2c91fc93a67 to your computer and use it in GitHub Desktop.
-- Get the libary list information
SELECT * FROM QSYS2.LIBRARY_LIST_INFO;
-- Get the jobd of the current user and the current user name
SELECT a.JOBD,CURRENT USER FROM QSYS2.USER_INFO a WHERE AUTHORIZATION_NAME = CURRENT USER;
-- Get Job log information
SELECT * FROM table(QSYS2.JOBLOG_INFO('*')) a;
-- Get Even more info from the Special Registers
SELECT CURRENT CLIENT_ACCTNG AS ACCOUNTINGSTRINGSPCREG,
CURRENT CLIENT_APPLNAME AS APPLICATIONNAMESPCREG,
CURRENT CLIENT_PROGRAMID AS CLIENTPROGRAMIDSPCREG,
CURRENT CLIENT_USERID AS CLIENTUSERIDSPCREG,
CURRENT CLIENT_WRKSTNNAME AS WORKSTATIONNAMESPCREG,
CURRENT_DATE AS CURRENTDATESPCREG,
CURRENT DEBUG MODE AS DEBUGMODESPCREG,
CURRENT DECFLOAT ROUNDING MODE AS DECROUNDINGMODESPCREG,
CURRENT DEGREE AS DEGREEOFIOOFSMPSPCREG,
CURRENT_PATH AS PATHFORUNQUALIFIEDNAMESSPCREG,
CURRENT_SCHEMA AS CURRENTSCHEMASPCREG,
CURRENT_SERVER AS CURRENTSERVERSPCREG,
CURRENT_TIME AS CURRENTTIMESPCREG,
CURRENT_TIMESTAMP AS CURRENTTIMESTAMPSPCREG,
CURRENT_TIMEZONE AS CURRENTTIMEZONESPCREG,
SESSION_USER AS SESSIONUSRSPCREG,
USER AS USERVALUESPCREG,
SYSTEM_USER AS SYSTEMUSERSPCREG
FROM SYSIBM.SYSDUMMY1;
--CL only available in 5250 or ACS
CHGSYSLIBL
CHGSYSVAL QSYSLIBL or QUSRLIBL
ADDLIBLE LIB(MYLIB) POSITION(*LAST)
RMVLIBLE
EDTLIBL
CHGCURLIB
CHGLIBL LIBL(MYLIB QGPL QTEMP)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment