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

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