Re: How to get job type (Batch / Interactive)

[Jonathan Mason <jonathan.mason@xxxxxxxxxxxxxxxx>]

Jeff

If you don't want to go to the trouble of creating a simple 
sub-procedure to return the values you want or having a CLLE module 
bound to the program then you have a couple of choices:

1) If your workstation names follow any sort of convention, e.g. 
QPADEVxxxx, then you could simply pull the job name from the PSDS and 
check it.  It's not pretty, but may be sufficient for your needs.

2) Place a call to the QUSRJOBI system API.  This can take minimal 
coding if all you want is the one piece of information as the sample 
program shows.  You can cut this down further if you need to:

    D oRcvVar         s             85a   
Inz(*Blanks)                     
    D iRcvVarLen      s             10i 0 
Inz(%Len(oRcvVar))               
    D iFormat         s              8a   
Inz('JOBI0100')                  
    D iQualJob        s             26a   
Inz('*')                         
    D iIntJobID       s             16a   
Inz(*Blanks)                     
                                                                            

    D RtvJobInf       pr                  
ExtPgm('QUSRJOBI')               
    D oRcvVar                       
85a                                    
    D iRcvVarLen                    10i 0 
Const                            
    D iFormat                        8a   
Const                            
    D iQualJob                      26a   
Const                            
    D iIntJobID                     16a   
Const                            
                                                                            

    D JobType         s              
1a                                    
                                                                            

    C                   CallP(e)  RtvJobInf(oRcvVar : iRcvVarLen : 
iFormat :
    C                               iQualJob : 
iIntJobID)                  
                                                                            

    C                   If        Not 
%Error                               
    C                   If        Not %Error                       
    C                   Eval      JobType = %Subst(oRcvVar : 61 : 1)
    C     JobType       Dsply                                      
    C                   EndIf                                      
                                                                   
    C                   Eval      *InLR = *On                      

All the best

Jonathan


rob@xxxxxxxxx wrote:
> Do you consider this simple or complex?
> H DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR(MYBINDDIR)
> D/COPY QPROTOSRC,RTVJOBTYPE
>  /free
>   JobType=rtvjobtype();
> ...
>
> The other developers don't need to know the underlying information anymore 
> than they need to know the underlying information on any other RPG op 
> code.
>
> If you're looking for a field in the PSDS you're SOL.
>
> Rob Berendt
>