qpgmr-de

/******************************************************************************/
/*                                                                            */
/* Command: CCEVENTF - EVFEVENT-File für RDi erzeugen                         */
/*                                                                            */
/******************************************************************************/
             CMD        PROMPT('EVFEVENT-File für RDi erzeugen') +
                        ALLOW(*ALL) MODE(*ALL)

             PARM       KWD(ACTION) TYPE(*NAME) RSTD(*YES) DFT(*ALL) +
                        SPCVAL((*ALL) (*OPEN) (*WRITE) (*CLOSE)) MAX(1) +

qpgmr-de

conky.config = {
    use_xft = true,
    xftalpha = 0.1,

    font = 'Sans:size=8',

    own_window = true,
    own_window_type = 'normal',
    own_window_transparent = true,
    own_window_hints = 'undecorated,below,sticky,skip_taskbar,skip_pager',

qpgmr-de

       //---------------------------------------------------------
       // 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

       dcl-proc joblog;
         //--------------------------------------------
         // usage:
         // ...
         // joblog('message for the joblog');
         // ...
         // /COPY JOBLOG;
         //--------------------------------------------
         dcl-pi *N;
           pMsg  VarChar(250) Value;

qpgmr-de

       dcl-proc  print;
         //--------------------------------------------
         // usage:
         // ...
         // print('Message');
         // ...
         // /COPY PRINT
         //--------------------------------------------
         dcl-pi *N;
           pMsg VarChar(5000) Const;