Intrinseco IODONTWAIT

[Benito Apodaca]

MPE/iX Mit 5.5 C.55.00
SNA SERVER ACCESS HP30255 A.53.00
SNA LINK/XL HP30291 B.00.10
SNA NRJE/XL HP30292 A.80.03
*SNA IMF/XL HP30293 B.09.01
LU 6.2 API/XL HP30294 B.00.50
*RJE/XL HP30295 A.00.55
SNA X.25 LINK/XL HP30298 A.00.10
C?mo es posible poner el valor correcto a un programa, para que el intrinseco IODONTWAIT sea tomado en cuenta, el requerimiento es que el OPEN3270 tiene que estar en modo NO-WAIT, para lograr esto es pasarle a la variable FLAGS en el bit 15 el numero 1 y los demas deben quedar en cero.

[Stan Sieler]

My Espanol is not very good...but...

According to CSEQ, the "flags" bit 15
should be set to 1 for NOWAIT I/O.
Bit 15 is the least-significant bit, so
if all other bits are off, the value you
want to pass is simply: 1

Procedure open3270 (
devicenum : var int16 ; {R26, align 16}
snalnkinfo : anyvar record ; {R25, @32 -> 524280}
flags : var int16 ; {R24, align 16}
terminalid : var int16 ; {R23, align 16}
devtype : var int16 ; {SP-$0034, align 16}
ffindex : var int16 ; {SP-$0038, align 16}
screensize : var int16 ; {SP-$003c, align 16}
timeout : anyvar record ; {SP-$0040, @32 -> 524280}
result : var int16 ) {SP-$0044, align 16}
{devicenum: -1 for an LU.T1 printer, }
{ -2 for a terminal, or -3 for an LU.T3 printer }
{snalnkinfo: is snanode#security classname. }
{flags bits: }
{ 15: Input/Output (I/O) 0=standard, 1=NOWAIT }
{ 14: Transparency: 0=non, 1=transparent }
{ 13: Internal tracing: 0=off, 1=on }
{ 12: LU.T1/LU.T3 support for IBM 3287 printer }
{ emulation; 0=either, 1=both }
{ 11: UNBIND option; 0=disabled, 1=enabled }
{ 10: DBCS option; 0= d isabled, }
{ 1 = Double Byte Character Set enabled. }
{ 0..9: reserved bits }
uncheckable_anyvar