Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
123 changes: 76 additions & 47 deletions SRCBLDC.CLP
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
PGM
PGM PARM(&DEBUG)

DCL VAR(&DESTFILE) TYPE(*CHAR) LEN(10) +
VALUE(SOURCE)
Expand All @@ -7,11 +7,25 @@
DCL VAR(&TGTRLS) TYPE(*CHAR) LEN(10) +
VALUE(*CURRENT)
DCL VAR(&VERSION) TYPE(*CHAR) LEN(30) +
VALUE(V1.0.43)
VALUE(V1.0.44)
DCL VAR(&QSHPYTHON) TYPE(*CHAR) LEN(255)
DCL VAR(&CMD) TYPE(*CHAR) LEN(512)
DCL VAR(&LEN) TYPE(*DEC) LEN(15 5)

/* Optional debugging information - 1.0.44 */
DCL VAR(&DEBUG) TYPE(*DEC) LEN(15 5)
DCL VAR(&DEBUGCL) TYPE(*CHAR) LEN(11) VALUE(*NOLSTDBG)
DCL VAR(&DEBUGCLLE) TYPE(*CHAR) LEN(7) VALUE(*STMT)
DCL VAR(&DEBUGRPG) TYPE(*CHAR) LEN(7) VALUE(*STMT)
DCL VAR(&DEBUGMOD) TYPE(*CHAR) LEN(7) VALUE(*SOURCE)

IF COND(&DEBUG *EQ 1) THEN(DO)
CHGVAR VAR(&DEBUGCL) VALUE(*LSTDBG)
CHGVAR VAR(&DEBUGCLLE) VALUE(*ALL)
CHGVAR VAR(&DEBUGRPG) VALUE(*ALL)
CHGVAR VAR(&DEBUGMOD) VALUE(*ALL)
ENDDO

/** Add libraries to library list */
ADDLIBLE LIB(&DESTLIB)
MONMSG MSGID(CPF0000)
Expand All @@ -32,7 +46,7 @@

CRTCLPGM PGM(&DESTLIB/QSHPATHC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS)
TGTRLS(&TGTRLS) OPTION(&DEBUGCL)

CRTCMD CMD(&DESTLIB/QSHEXEC) PGM(&DESTLIB/QSHEXECC) +
SRCFILE(&DESTLIB/&DESTFILE) PRDLIB(&DESTLIB) +
Expand All @@ -41,23 +55,25 @@

CRTCLPGM PGM(&DESTLIB/QSHEXECC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS)
TGTRLS(&TGTRLS) OPTION(&DEBUGCL)

CRTBNDRPG PGM(&DESTLIB/QSHSTDOUTR) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS)
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHLOGSCAN) +
PGM(&DESTLIB/QSHLOGSCAC) +
SRCFILE(&DESTLIB/&DESTFILE) PRDLIB(&DESTLIB)

CRTCLPGM PGM(&DESTLIB/QSHLOGSCAC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS)
TGTRLS(&TGTRLS) OPTION(&DEBUGCL)

CRTBNDRPG PGM(&DESTLIB/QSHLOGSCAR) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS)
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHBASH) PGM(&DESTLIB/QSHBASHC) +
SRCFILE(&DESTLIB/&DESTFILE) +
Expand All @@ -67,7 +83,7 @@

CRTCLPGM PGM(&DESTLIB/QSHBASHC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.3 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.3 */

/* 1.05 - ADD IFS CHECK AND QSHPYRUN */
CRTCMD CMD(&DESTLIB/QSHIFSCHK) +
Expand All @@ -77,12 +93,13 @@
CRTCLPGM PGM(&DESTLIB/QSHIFSCHKC) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHIFSCHKC) REPLACE(*NO) +
TGTRLS(&TGTRLS)
TGTRLS(&TGTRLS) OPTION(&DEBUGCL)

CRTBNDRPG PGM(&DESTLIB/QSHIFSCHKR) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHIFSCHKR) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS)
REPLACE(*NO) TGTRLS(&TGTRLS) +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHPYRUN) +
PGM(&DESTLIB/QSHPYRUNC) +
Expand All @@ -91,7 +108,7 @@

CRTCLPGM PGM(&DESTLIB/QSHPYRUNC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.5 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.5 */

CRTCMD CMD(&DESTLIB/QSHPHPRUN) +
PGM(&DESTLIB/QSHPHPRUNC) +
Expand All @@ -100,7 +117,7 @@

CRTCLPGM PGM(&DESTLIB/QSHPHPRUNC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.24 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.24 */

CRTCMD CMD(&DESTLIB/QSHQRYAID) +
PGM(&DESTLIB/QSHQRYAIDC) +
Expand All @@ -109,7 +126,7 @@

CRTCLPGM PGM(&DESTLIB/QSHQRYAIDC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.36 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.36 */

CRTCMD CMD(&DESTLIB/QSHQRYTMP) +
PGM(&DESTLIB/QSHQRYTMPC) +
Expand All @@ -118,12 +135,13 @@

CRTCLPGM PGM(&DESTLIB/QSHQRYTMPC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.8 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.8 */

CRTBNDRPG PGM(&DESTLIB/QSHQRYTMPR) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHQRYTMPR) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHSETPROF) +
PGM(&DESTLIB/QSHSETPROC) +
Expand All @@ -132,15 +150,15 @@

CRTCLPGM PGM(&DESTLIB/QSHSETPROC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.11 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.11 */

CRTCMD CMD(&DESTLIB/QSHCURL) PGM(&DESTLIB/QSHCURLC) +
SRCFILE(&DESTLIB/&DESTFILE) +
PRDLIB(&DESTLIB) /* V1.0.12 */

CRTCLPGM PGM(&DESTLIB/QSHCURLC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.12 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.12 */

CRTCMD CMD(&DESTLIB/QSHPORTCHK) +
PGM(&DESTLIB/QSHPORTCHC) +
Expand All @@ -149,7 +167,7 @@

CRTCLPGM PGM(&DESTLIB/QSHPORTCHC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.13 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.13 */

/* QSHQRYTMP SQL('SELECT JOB_NAME FROM + */
/* QSYS2.NETSTAT_JOB_INFO') + */
Expand All @@ -169,7 +187,7 @@

CRTCLPGM PGM(&DESTLIB/QSHPORTENC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.14 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.14 */

CRTCMD CMD(&DESTLIB/QSHEXECSRC) +
PGM(&DESTLIB/QSHEXECSCC) +
Expand All @@ -178,15 +196,15 @@

CRTCLPGM PGM(&DESTLIB/QSHEXECSCC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.18 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.18 */

CRTCMD CMD(&DESTLIB/DB2UTIL) PGM(&DESTLIB/DB2UTILC) +
SRCFILE(&DESTLIB/&DESTFILE) +
PRDLIB(&DESTLIB) /* 1.0.23 */

CRTCLPGM PGM(&DESTLIB/DB2UTILC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.23 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.23 */

CRTCMD CMD(&DESTLIB/QSHGETPARM) +
PGM(&DESTLIB/QSHGETPARR) +
Expand All @@ -197,7 +215,8 @@
CRTBNDRPG PGM(&DESTLIB/QSHGETPARR) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHGETPARR) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.25 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.25 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHGETPR2) +
PGM(&DESTLIB/QSHGETPR2C) +
Expand All @@ -208,7 +227,7 @@
CRTBNDCL PGM(&DESTLIB/QSHGETPR2C) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*YES) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.37 */
TGTRLS(&TGTRLS) DBGVIEW(&DEBUGCLLE) /* 1.0.37 */

CRTCMD CMD(&DESTLIB/QSHPYCALL) +
PGM(&DESTLIB/QSHPYCALLC) +
Expand All @@ -218,11 +237,11 @@

CRTCLPGM PGM(&DESTLIB/QSHPYCALLC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.25 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.25 */

CRTCLPGM PGM(&DESTLIB/QSHPYCALLT) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.25 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.25 */

CRTCMD CMD(&DESTLIB/QSHCALL) PGM(&DESTLIB/QSHCALLC) +
SRCFILE(&DESTLIB/&DESTFILE) ALLOW(*IPGM +
Expand All @@ -231,11 +250,11 @@

CRTCLPGM PGM(&DESTLIB/QSHCALLC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.25 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.25 */

CRTCLPGM PGM(&DESTLIB/QSHCALLT) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.25 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.25 */

CRTCMD CMD(&DESTLIB/QSHCPYSRC) +
PGM(&DESTLIB/QSHCPYSRCC) +
Expand All @@ -245,7 +264,7 @@

CRTCLPGM PGM(&DESTLIB/QSHCPYSRCC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.26 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.26 */

CRTCMD CMD(&DESTLIB/QSHBASHSRC) +
PGM(&DESTLIB/QSHBASHSCC) +
Expand All @@ -254,11 +273,11 @@

CRTCLPGM PGM(&DESTLIB/QSHBASHSCC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.27 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.27 */

CRTRPGMOD MODULE(&DESTLIB/QSHONISRV) +
SRCFILE(&DESTLIB/&DESTFILE) +
DBGVIEW(*SOURCE) /* 1.0.28 */
DBGVIEW(&DEBUGMOD) /* 1.0.28 */

CRTSRVPGM SRVPGM(&DESTLIB/QSHONISRV) +
MODULE(&DESTLIB/QSHONISRV) +
Expand All @@ -277,17 +296,20 @@
CRTBNDRPG PGM(&DESTLIB/QSHONIPR01) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHONIPR01) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.28 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.28 */ +
DBGVIEW(&DEBUGRPG)

CRTBNDRPG PGM(&DESTLIB/QSHONIPR02) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHONIPR02) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.28 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.28 */ +
DBGVIEW(&DEBUGRPG)

CRTBNDRPG PGM(&DESTLIB/QSHONIPR03) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHONIPR03) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.29 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.29 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHIFSSIZ) +
PGM(&DESTLIB/QSHIFSSIZC) +
Expand All @@ -298,7 +320,7 @@
CRTBNDCL PGM(&DESTLIB/QSHIFSSIZC) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*YES) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.30 */
TGTRLS(&TGTRLS) DBGVIEW(&DEBUGCLLE) /* 1.0.30 */

CRTCMD CMD(&DESTLIB/QSHSAVLIB) +
PGM(&DESTLIB/QSHSAVLIBC) +
Expand All @@ -307,7 +329,7 @@

CRTCLPGM PGM(&DESTLIB/QSHSAVLIBC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.32 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.32 */

CRTCMD CMD(&DESTLIB/QSHSAVIFS) +
PGM(&DESTLIB/QSHSAVIFSC) +
Expand All @@ -316,7 +338,7 @@

CRTCLPGM PGM(&DESTLIB/QSHSAVIFSC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.32 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.32 */

CRTCMD CMD(&DESTLIB/QSHQRYSRC) +
PGM(&DESTLIB/QSHQRYSRCC) +
Expand All @@ -325,60 +347,67 @@

CRTCLPGM PGM(&DESTLIB/QSHQRYSRCC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.32 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.32 */

CRTBNDRPG PGM(&DESTLIB/QSHQRYSRCR) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHQRYSRCR) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.32 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.32 */ +
DBGVIEW(&DEBUGRPG)

CRTBNDRPG PGM(&DESTLIB/QSHQRYSR2R) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHQRYSR2R) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */ +
DBGVIEW(&DEBUGRPG)

CRTBNDRPG PGM(&DESTLIB/QSHQRYSR3R) +
SRCFILE(&DESTLIB/&DESTFILE) +
SRCMBR(QSHQRYSR3R) DFTACTGRP(*NO) +
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.42 */
REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.42 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/QSHIFSSCAN) +
PGM(&DESTLIB/QSHIFSSCAC) +
SRCFILE(&DESTLIB/&DESTFILE) PRDLIB(&DESTLIB) /* V1.0.35 */

CRTCLPGM PGM(&DESTLIB/QSHIFSSCAC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* V1.0.35 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* V1.0.35 */

CRTBNDRPG PGM(&DESTLIB/QSHIFSSCAR) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* V1.0.35 */
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* V1.0.35 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/RUNSQLPRM) PGM(&DESTLIB/RUNSQLPRMC) +
SRCFILE(&DESTLIB/&DESTFILE) PRDLIB(&DESTLIB) /* 1.0.36 */

CRTCLPGM PGM(&DESTLIB/RUNSQLPRMC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.36 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.36 */

CRTBNDRPG PGM(&DESTLIB/RUNSQLPRMR) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */ +
DBGVIEW(&DEBUGRPG)

CRTCMD CMD(&DESTLIB/RUNSQLSRC) PGM(&DESTLIB/RUNSQLSRCC) +
SRCFILE(&DESTLIB/&DESTFILE) PRDLIB(&DESTLIB) /* 1.0.36 */

CRTCLPGM PGM(&DESTLIB/RUNSQLSRCC) +
SRCFILE(&DESTLIB/&DESTFILE) REPLACE(*NO) +
TGTRLS(&TGTRLS) /* 1.0.36 */
TGTRLS(&TGTRLS) OPTION(&DEBUGCL) /* 1.0.36 */

CRTBNDRPG PGM(&DESTLIB/RUNSQLSRCR) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.36 */ +
DBGVIEW(&DEBUGRPG)

CRTBNDRPG PGM(&DESTLIB/RUNSQLSR3R) +
SRCFILE(&DESTLIB/&DESTFILE) +
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.42 */
DFTACTGRP(*NO) REPLACE(*NO) TGTRLS(&TGTRLS) /* 1.0.42 */ +
DBGVIEW(&DEBUGRPG)

/* Create message file for any custom CPF messages */
/* Initial use case is to log STDOUT msgs with own CPF ID */
Expand Down
Loading