midrange.com code scratchpad |
Name:
php scrip from rpg using UNIXCMDLIB
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
02/12/2016 04:56:26 pm
|
IP:
Logged
|
|
Description:
in reply to :
http://archive.midrange.com/rpg400-l/201602/msg00065.html
|
Code:
- <?php
- if ($_GET) {
- $argument1 = $_GET['argument1'];
- $argument2 = $_GET['argument2'];
- } else {
- $argument1 = $argv[1];
- $argument2 = $argv[2];
- }
-
- echo "$argument1\n";
- echo "$argument2\n";
- ?>
- ===========================
-
- *************** Beginning of data ****************************
- FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')
- F PLIST(UNIXPARM) USROPN
- FQSYSPRT O F 132 PRINTER
-
- D cmd s 5000a
- D php_cli s 99A
- D php_script s 99a
- D parm1 s 10a
- D parm2 s 10a
- D b s 1A inz(' ')
-
- D record ds 1000
- D outrec ds 132
-
- C *entry PLIST
- C PARM parm1
- C PARM parm2
- C UNIXPARM PLIST
- C PARM CMD
- /free
- php_cli = '/usr/local/zendsvr6/bin/php-cli';
- php_script = '/home/bdietz/php-test.php';
- cmd = %trim(php_cli) + b+ %trim(php_script) + b + parm1 + b + parm2;
- open UNIX;
-
- read UNIX record;
- dow not %eof(UNIX);
- outrec = record;
- write QSYSPRT outrec;
- read UNIX record;
- enddo;
-
- close UNIX;
- *inlr = *on;
- /end-free
-
-
|
|
|