This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
dcl-proc print; | |
//-------------------------------------------- | |
// usage: | |
// ... | |
// print('Message'); | |
// ... | |
// /COPY PRINT | |
//-------------------------------------------- | |
dcl-pi *N; | |
pMsg VarChar(5000) Const; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//--------------------------------------------------------- | |
// 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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
dcl-proc joblog; | |
//-------------------------------------------- | |
// usage: | |
// ... | |
// joblog('message for the joblog'); | |
// ... | |
// /COPY JOBLOG; | |
//-------------------------------------------- | |
dcl-pi *N; | |
pMsg VarChar(250) Value; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/******************************************************************************/ | |
/* */ | |
/* 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) + |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
**free | |
//************************************************************** | |
// Control options | |
//************************************************************** | |
ctl-opt dftactgrp(*no) actgrp(*new); | |
exec sql set option closqlcsr = *endmod; | |
exec sql set option commit = *none; | |
exec sql whenever not found continue; | |
exec sql whenever sqlwarning continue; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
create or replace function slice | |
( | |
input_string clob(1048576), | |
output_size int | |
) | |
returns table ( | |
ordinal_position bigint, | |
element clob(1048576) | |
) |