RE: Batch Submissions from RPGIV

On 16 Nov 1999, at 11:04, Jon.Paris@halinfo.it wrote:
> >> Here is a method to execute any system command using the C function
> >> 'system' instead of QCMDEXC.

>      H DftActGrp(*No) BndDir('QC2LE')
> 
>      D OK              C                   0
> 
>      D ErrorCode       S              7A   Import('_EXCP_MSGID')
> 
>      D SystemCmd       Pr            10I 0 ExtProc('system')
>      D   CmdString                     *   Value Options(*String)
> 
>      C                   If        SystemCmd('cpyf fred joe') <> OK C 
>         ErrorCode     Dsply C                   EndIf
> 
>      C                   Eval      *InLR = *On
This is a great way to execute a command.  Does anybody have an example of 
sending the ErrorCode to the wrkstn instead of using the DSPLY?  I'm 
running a program with this concept in it from the command line.  The 
DSPLY sends the ErrorCode to the joblog and disapears off the screen 
before the user has a chance to see it because LR is turned on.  I'd like to 
send the error message to bottom line of the work station so the user can 
read it.  I sure would appreciate an example.

TIA,

Gary Kuznitz
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---