Re: Can you tell if you are running 5250 from a CL program?

First a disclaimer -- I have not used (and cannot test) with ASNA Wings but
the following code should tell you if there is, or is not, a 5250 device
associated with the job. Note that my major concern is that a virtual 5250
device will be considered a 5250 device (which it is, even though you may be
thinking in terms of physical 5250 devices). In a virtual world it can be
really, really difficult to distinguish between the physical and the "make
believe"...

Pgm
Dcl Var(&RcvVar) Type(*Char) Len(8)
Dcl Var(&LenRcvVar) Type(*Int) Value(8)
Dcl Var(&QUSEC) Type(*Char) Len(16)
Dcl Var(&QUSBPrv) Type(*Int) Stg(*Defined) +
DefVar(&QUSEC)
Dcl Var(&QUSBAvl) Type(*Int) Stg(*Defined) +
DefVar(&QUSEC 5)
Dcl Var(&QUSEI) Type(*Char) Stg(*Defined) +
Len(7) DefVar(&QUSEC 9)

ChgVar Var(&QUSBPrv) Value(16)
CallPrc Prc('QsnQry5250') Parm( +
(&RcvVar) (&LenRcvVar) (&QUSEC))

If Cond(&QUSBAvl > 0) Then( +
SndMsg Msg('This is not a 5250 session') +
ToUsr(*SysOpr))

EndPgm

Bruce Vining

On Fri, Sep 16, 2011 at 6:45 AM, Tom Deskevich <
thomas.l.deskevich@xxxxxxxxxxxxx> wrote:

I do not have control over the OA hander.

It appears there is no easy way to do this from the posts and research
done.


Tom Deskevich



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.