Simpler Navigation coming for Servers and Operating Systems
Coming soon: a much simpler Servers and Operating Systems section of the Community. We will combine many of the older boards, and you won't have to click through so many levels to get at the information you need. If you are looking for an older board and do not find it, check the consolidated boards, as the posts are still there.
HP e3000
cancel
Showing results for 
Search instead for 
Did you mean: 

Intrinseco IODONTWAIT

Benito Apodaca
Occasional Contributor

Intrinseco IODONTWAIT

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.
1 REPLY
Stan Sieler
Respected Contributor

Re: Intrinseco IODONTWAIT

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