Re: call qp2shell in PASE parm failure

Hi Jerry,

I wanted a shell script driver CL (EXESHLSCR) so I could simplify my
running of shell scripts. Parm one would be the shell script. I made
the var 12 *char to to exactly match the size of the incoming parm to
eliminate any trailing blanks issue.

You can pass a variable if you want, but it needs to be null-terminated. (i.e. it needs to end with x'00').

Something like this (this is off the top of my head, untested, but I believe it'll work)

PGM PARM(&SHLSCR)

DCL VAR(&SHLSCR) TYPE(*CHAR) LEN(32)
DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')
DCL VAR(&SHELL) TYPE(*CHAR) LEN(50)
DCL VAR(&CMD) TYPE(*CHAR) LEN(83)

CHGVAR VAR(&SHELL) VALUE('/qopensys/usr/bin/sh' *TCAT &NULL)
CHGVAR VAR(&CMD) VALUE(&SHLSCR *TCAT &NULL)

CALL QP2SHELL PARM(&SHELL '-c' &CMD)
ENDPGM


The preceding example uses the Bourne shell. You can replace the 'sh' (at the end of /qopensys/usr/bin/sh) with ksh for Korn shell, csh for c-shell, etc. Depending on which PASE shell you want to use... (I'm assuming the Bourne shell since your script name ends in '.sh')