*************** Beginning of data ********************************************
PGM PARM(&FILENAME)
/* VARS */
DCL VAR(&FILENAME) TYPE(*CHAR) LEN(80)
DCL VAR(&PHPCLIPATH) TYPE(*CHAR) LEN(128)
/* &NULL is longer than variables above to ensure it removes all spaces X'40'*/
DCL VAR(&NULL) TYPE(*CHAR) LEN(208) VALUE(X'00') /*TERMINATE VAR WITH NULL */
/* SET VARS */
/* DATA AREA USED FOR PHP-CLI PATH in case it changes*/
/* PHP-CLI = /usr/local/zendsvr/bin/php-cli*/
RTVDTAARA DTAARA(MYLIB/PHPCLIPATH) RTNVAR(&PHPCLIPATH)
CHGVAR VAR(&PHPCLIPATH) VALUE(&PHPCLIPATH *TCAT &NULL)
CHGVAR VAR(&FILENAME) VALUE(&FILENAME *TCAT &NULL)
/* RUN */
CALL QP2SHELL PARM(&PHPCLIPATH &FILENAME)
ENDPGM
****************** End of data ***********************************************