Re: Program call failure - /free with Program Interface

Hi All

Sorted it after reading a reply to a previous post of
mine on this site (I missed it first time around)

IT IS CASE SENSITIVE WHEN YOU PLACE THE NAME IN QUOTES

My Apologies

Iain


--- IAIN WILSON <wilson.forfar.1@xxxxxxxxxxxxxx>
wrote:

> Hi All, Hope someone can help me.
> I have just started using RPG /free and have the
> following small test setup to print an errorlog
> spoolfile. Any help offered is most gratefully
> received.
> 
> Thanks
> 
> Iain
> 
> A program (with include file) called ErrorLogs with
> an
> interface 
> defined in the include file 
> 
> 
> // The include file
> 
>
F****************************************************************
>                
> F*                                                  
>  
>          *                
> F* INCLUDE: AERRORPI                                
>  
>          *                
> F*                                                  
>  
>          *                
>
F****************************************************************
>                
> DErrorLogs        PR                 
> EXTPGM('ErrorLogs')                        
> DProcess                        75A                 
>  
>                           
> DErrorMsg                       75A                 
>  
>                           
> DErrorMsg2                      75A                 
>  
>                           
>  *                                                  
>  
>                           
> DErrorLogs        PI                                
>  
>                           
> DProcess                        75A                 
>  
>                           
> DErrorMsg                       75A                 
>  
>                           
> DErrorMsg2                      75A                 
>  
>                           
>  *                                        
> 
> // --------- THe program includes the above
> interface
> -------
> 
> 
> The program 
> 
> FErrorLog  O    E             PRINTER               
>  
>     
>  *                                                  
>  
>     
>  /Include QrpGleSrc,AERRORPI                        
>  
>     
>  *                                                  
>  
>     
> D  TDAT           S               D                 
>  
>     
> D  TDATE          S             10                  
>  
>     
> .............
> .............
> .............
> 
> 
>
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> 
> 
> The errorlogs program is called by the following
> program
> with the interface defined in the include file
> 
> 
>
F****************************************************************
>      
> F*                                                  
>  
>          *      
> F* Include: AERRORPR                                
>  
>          *      
> F* Include Routines For RPGILE Programs             
>  
>          *      
> F*                                                  
>  
>          *      
>
F****************************************************************
>      
> DErrorLogs        PR                 
> EXTPGM('ErrorLogs')              
> DProcess                        75A                 
>  
>                 
> DErrorMsg                       75A                 
>  
>                 
> DErrorMsg2                      75A                 
>  
>                 
> 
> 
> 
> // --------- THe program includes the above
> interface
> -------
> 
> 
>  *                                                  
>  
>                 
>  /Include QrpGleSrc,AERRORPR                        
>  
>                 
>  *                                                  
>  
>                 
> DParm1            S             75A                 
>  
>                 
> DParm2            S             75A                 
>  
>                 
> DParm3            S             75A                 
>  
>                 
>  *                                                  
>  
>                 
> 
>
*----------------------------------------------------------------
>     
>  *                                                  
>  
>                 
>  /free                                              
>  
>                 
>    Eval Parm1     = 'Error Line 1';                 
>  
>                 
>    Eval Parm2     = 'Error Line 2';                 
>  
>                 
>    Eval Parm3     = 'Error Line 3';                 
>  
>                 
>    CallP ErrorLogs (Parm1:Parm2:Parm3);             
>  
>                 
>  /end-free                                          
>  
>                 
>  *                                                  
>  
>                 
> C                   Seton                           
>  
>           LR    
> C                   Return                          
>  
>                 
> 
> 
>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> 
> The Errorlogs program call fails at the line 
> 
>    CallP ErrorLogs (Parm1:Parm2:Parm3);             
>  
>                 
> 
> with the error 
> 
>  Message ID . . . . . . :   RNQ0211       Severity .
> .
> . . . . . :   99        
> 
=== message truncated ===