Re: call qp2shell in PASE parm failure

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

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')