Re: calling a program from ws or web

[Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>]

You can also use the RTVJOBA TYPE(&JOBTYPE) in a CL program.  &JOBTYPE 
is a 1-character variable that returns '0' if the job is a batch job 
(which all of your CGI jobs will be) or a '1' if it's an interactive job.

Holden Tommy wrote:
> Here's a snippet of code for the QUSRJOBI api:
>
> Procedure call & data retrieval:
>   RtvJobInfo(OutputData     
>             :DataLength     
>             :'JOBI0700'     
>             :QualJob        
>             :InternalJob    
>             :ErrorCode_);   
> JOBI0700=%Subst(OutputData:1:%Len(JOBI0700));
>
> Prototype:
> DRtvJobInfo       PR                  ExtPgm('QUSRJOBI')        
> D  OutputData                32767a                             
> D  DataLength                   10i 0                           
> D  RtvFormat                     8a   Const                     
> D  QualJob                      26a   Const                     
> D  InternalJobID                16a   Const                     
> D  ErrorCode_                32767a   Options(*Varsize) Varying 
>
> JOBI0700 data structure:
> D JobI0700        DS                  Qualified   
> d BytesReturned                 10i 0             
> d BytesAvailable                10i 0             
> d JobName                       10a               
> d JobUser                       10a               
> D JobNumber                      6a               
> D JobInternalID                 16a               
> D JobStatus                     10a               
> D JobType                        1a               
> D JobSubtype                     1a   
> D Reserved                       2a   
> D LibsInSYSLIBL                 10i 0 
> D NumberOfProductLibs...              
> D                               10i 0 
> D CurrentLibExist...                         
> D                               10i 0        
> D NumberOfLibsInUSRLIBL...                   
> D                               10i 0        
> D SYSLIBL                       11a   Dim(16)
> D PRODLIBL                      11a   Dim(16)   
> D CURLIB                        11a             
> D USRLIBL                       11a   Dim(275)   
>
> The job type (batch or interactive will be in JOBI0700.JobType and the
> job name will be in JOBI0700.JobName
>
> If you are using virtual unnamed devices for 5250 you can check
> %SUBST(JOBI0700.JobName:1:6) = 'QPADEV' to determine if the call is from
> a 5250 interactive session.
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> M.Effenberg@xxxxxxxxxxxx
> Sent: Tuesday, December 19, 2006 9:33 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: calling a program from ws or web
>
> Hi Jim,
> you should take a look at the QUSRJOBI API in the IBM docs at 
> http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/qu
> srjobi.htm
>
> This API provides you the information, if the job is interactive or in 
> batch.
>
> But don't ask for an example, I never used it :)
>
> - Martin
>
> -------------
> I'm trying to have 1 program to respond to requests from a ws session or
> from the web.  How can you tell which way the program was called (ws 
> session
> or web) so you can respond appropriately?
>
> Thanks
>
> Jim Horn