RE: calling a program from ws or web

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