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:
  1. <?php                                
  2. if ($_GET) {                         
  3.     $argument1 = $_GET['argument1']; 
  4.     $argument2 = $_GET['argument2']; 
  5. } else {                             
  6.     $argument1 = $argv[1];           
  7.     $argument2 = $argv[2];           
  8. }                                    
  9.                                      
  10. echo "$argument1\n";                 
  11. echo "$argument2\n";                 
  12. ?>
  13. ===========================
  14.  
  15. *************** Beginning of data ****************************
  16. FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')      
  17. F                                     PLIST(UNIXPARM) USROPN  
  18. FQSYSPRT   O    F  132        PRINTER                         
  19.                                                               
  20. D cmd             s           5000a                           
  21. D php_cli         s             99A                           
  22. D php_script      s             99a                           
  23. D parm1           s             10a                           
  24. D parm2           s             10a                           
  25. D b               s              1A   inz(' ')                
  26.                                                               
  27. D record          ds          1000                            
  28. D outrec          ds           132                            
  29.                                                               
  30. C     *entry        PLIST                                     
  31. C                   PARM                    parm1             
  32. C                   PARM                    parm2             
  33. C     UNIXPARM      PLIST                                     
  34. C                   PARM                    CMD               
  35.  /free                                                                   
  36.      php_cli = '/usr/local/zendsvr6/bin/php-cli';                        
  37.      php_script = '/home/bdietz/php-test.php';                           
  38.      cmd = %trim(php_cli) + b+ %trim(php_script) + b + parm1 + b + parm2;
  39.      open UNIX;                                                          
  40.                                                                          
  41.      read UNIX record;                                                   
  42.      dow not %eof(UNIX);                                                 
  43.         outrec = record;                                                 
  44.         write QSYSPRT outrec;                                            
  45.         read UNIX record;                                                
  46.      enddo;                                                              
  47.                                                                          
  48.      close UNIX;                                                         
  49.      *inlr = *on;                                                        
  50.  /end-free                                                               
  51.  
  52.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css