Re: [MI400] Virtual Terminal questions

[Gene_Gaunt@xxxxxxxxxxxxxxx]

Nicolas, this may help, if a job is a virtual display using Virtual
Terminal APIs, then the Retrieve Device Description QDCRDEVD API with
format DEVD0600 for the job's display name will return '2' in decimal
offset 830.  Here is some short REXX that I use:

"RTVJOBA JOB( &Dsp )"
Data = Copies( ' ', 2000 )
"CALL QDCRDEVD (&Data  X'000007D0'  DEVD0600  &Dsp  X'00000000')"
P = Substr( Data, 831, 1 )
Select
   When P = 0 Then Q = "(not pass-through)"
   When P = 1 Then Q = "(5250 emulation type display)"
   When P = 2 Then Q = "(virtual display using Virtual Terminal APIs)"
   When P = 3 Then Q = "(virtual display using TELNET)"
   When P = 4 Then Q = "(pass-through device)"
End
Say 'Device class . . . . . . . : ' Substr( Data, 165, 10 )
Say 'Device type  . . . . . . . : ' Substr( Data, 175, 10 )
Say 'Device model . . . . . . . : ' Substr( Data, 185, 10 )
Say 'IP address . . . . . . . . : ' Substr( Data, 878, 15 )
Say 'Pass-through indicator . . : ' P Q