SBMJOB in free-format

[George221]

Would anybody have an example of sbmitting a job through QCMDEXC in free format? Dealing with the parm list and quote issue?
Thanks.

 

[Mercury2]

Paste here the related code.

 

[flapeyre]

Here is an RPG IV prototype for the QCMDEXC API:

      ** Prototype definition for QCMDEXC                         
     D Runcmd          PR                  EXTPGM('QCMDEXC')      
     D  Cmdstr                     3000A   CONST OPTIONS(*VARSIZE)
     D  Cmdlen                       15P 5 CONST                  
     D  Cmddbcs                       3A   CONST OPTIONS(*NOPASS)

You should define the command string as Varying, like this:

     D Command_String  S           3000A   Varying

To get around the quote issue, I define a quote as a named constant:

     D Quote           C                   ''''

In free format, you would do something like this:

       Command_String = 'SBMJOB CMD(CALL PGM(MYPGM) PARM(' + 
       Quote + parm1 + quote + '))';      
       Runcmd(Command_String : %LEN(%TRIMR (Command_String)));

Solum potestis prohibere ignes silvarum.

 

[George221]

Thank you very much. That helped.