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

[Bruce Vining <bvining@xxxxxxxxxxxxxxx>]

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.