Re: calling a program from ws or web

Here is what i use :
NB TESTB2B is a profile i use to simulate a web work and debug easly my pgm.

 *
D ApiError        ds
D   Bytesavail                  10u 0 inz(%size(ApiError))
D   Bytesused                   10u 0
D   ExcptId                      7
D   ExcptId2                     1
D   ExcptDta                   256
 *
 * DS système
............................................................................
.....
D                SDS
D  SysPgm                 1     10
Programme
D  SysJob               244    253
Travail
D  SysUsr               254    263
Utilisateur
D  SysJnum              264    269
N° job
D  SysSts           *STATUS
Etat


P àRtvJobSts      B                   Export
D                 PI             1a
d  QualJobin                    26    Value Options(*nopass)
 *
d JobInfo         ds                  Static
d  BytesRet                     10u 0
d  BytesAva                     10u 0
d  JobNam                       10
d  JobUsr                       10
d  JobNum                        6
d  JobInter                     16
d  JobSts                       10
d  JobTyp                        1
d  JobStyp                       1
d  JobResered                    2
d  JobPty                       10u 0
d  JobTsli                      10u 0
d  JobDftW                      10u 0
d  JobPurge                     10
 *
d InfoLen         s             10u 0 inz(%size(ApiError))
d QualJob         s             26
d SavQualJob      s             26
d IntJob          s             16
 *
c                   If        %parms<1
c                   Eval      QualJob = SysJob + SysUsr + SysJNum
c                   Else
c                   Eval      QualJob = qualJobIn
c                   Endif
 *
c                   Eval      InfoLen = %size(JobInfo)
c                   If        SavqualJob <> QualJob
c                   Call(e)   'QUSRJOBI'
c                   Parm                    JobInfo
c                   Parm                    Infolen
c                   Parm      'JOBI0100'    ApiFmt            8
c                   Parm                    QualJob
c                   Parm                    IntJob
c                   Parm                    ApiError
c                   Eval       SavQualJob = QualJob
c                   Endif
 *
c                   If        SysUsr = 'TESTB2B'
c                   Return    'W'
c                   Else
c                   If        JobTyp = 'B' and JobStyp = ' '
c                   Return    JobTyp
c                   Endif
c                   If        JobTyp = 'B' and JobStyp = 'D'
c                   Return    'W'
c                   Endif
c                   Return    JobTyp
c                   Endif
P                 E


----- Original Message ----- 
From: "Jim Horn" <jimh@xxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, December 19, 2006 4:08 PM
Subject: calling a program from ws or web

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

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.