Start any PC program from a Green Screen by Booth Martin

This code should start any PC program from a Green Screen: 
 
     *  The name of the image viewer program that will read the data queue  
     D PCProg       C                   'C:\WDT400\test\IMAGE.EXE'        
      *  The parm for the PC program:
     D qNameO      S             256  Varying
_________________________________________________________________     
       * Start the PC Program:                                
     C                   Eval      Tmpxx= 'STRPCO PCTA(*NO)'    
     C                   Call (E)  'QCMDEXC'                    
     C                   Parm                    Tmpxx         1024 
     C                   Parm      1024          parm15          15 5 
     C                   Eval      Tmpxx= 'STRPCCMD   PCCMD(''' 
     C                             + %Trim(PCProg) + ' '     
     C                             + %Trim(qNameO)              
     C                             + ''')  PAUSE(*NO)'          
     C                   Call (E)  'QCMDEXC'                    
     C                   Parm                    Tmpxx          
     C                   Parm      1024          parm15         
 
(I hope this comes through readable)
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth at MartinVT.com

[report a broken link by clicking here]