Skip to content

Instantly share code, notes, and snippets.

Avatar

Daniel Gross qpgmr-de

View GitHub Profile
@qpgmr-de
qpgmr-de / CTLOPT.RPGLE
Created May 6, 2020
My personal full-free ILE-RPG control options
View CTLOPT.RPGLE
//---------------------------------------------------------
// usage:
// /COPY CTLOPT
// ...
//---------------------------------------------------------
ctl-opt Copyright('(C)2020 Daniel Gross, daniel@qpgmr.de');
ctl-opt CCSID(*CHAR:*JOBRUN);
ctl-opt Option(*SRCSTMT:*SHOWCPY:*NODEBUGIO:*NOUNREF);
ctl-opt DatFmt(*ISO) TIMFMT(*ISO);
ctl-opt PgmInfo(*PCML:*MODULE);
@qpgmr-de
qpgmr-de / JOBLOG.RPGLE
Last active May 6, 2020
IBM i full-free ILE-RPG joblog procedure
View JOBLOG.RPGLE
dcl-proc joblog;
//--------------------------------------------
// usage:
// ...
// joblog('message for the joblog');
// ...
// /COPY JOBLOG;
//--------------------------------------------
dcl-pi *N;
pMsg VarChar(250) Value;
@qpgmr-de
qpgmr-de / PRINT.RPGLE
Last active May 6, 2020
IBM i full free ILE-RPG print procedure
View PRINT.RPGLE
dcl-proc print;
//--------------------------------------------
// usage:
// ...
// print('Message');
// ...
// /COPY PRINT
//--------------------------------------------
dcl-pi *N;
pMsg VarChar(5000) Const;