TCP/IP TELNET Management Programming Manual

Telnet Subsystem DDL
53474 Tandem Computers Incorporated B–5
02 zwrite-read-req TYPE zspi-ddl-int2.
02 zctl-req TYPE zspi-ddl-int2.
02 zsetmode-req TYPE zspi-ddl-int2.
02 zcancel-req TYPE zspi-ddl-int2.
02 zcurr-time TYPE zspi-ddl-timestamp.
02 zreset-time TYPE zspi-ddl-timestamp.
END.
*---------------------------------------------------------------*
* All opens listed below by process name. *
* zprocname is a null terminated string. *
* zcpu says which cpu the process is working in. *
* zpin is the process id in the CPU. *
*---------------------------------------------------------------*
?SECTION zTNT-ddl-opens-telnet
?TALBOUND 0
DEF zTNT-ddl-opens-telnet.
02 zbkup-cpu TYPE zspi-ddl-int.
02 zbkup-pin TYPE zspi-ddl-int.
02 zbkup-fnum TYPE zspi-ddl-int.
02 zprim-cpu TYPE zspi-ddl-int.
02 zprim-pin TYPE zspi-ddl-int.
02 zprim-fnum TYPE zspi-ddl-int.
02 zprocname TYPE zspi-ddl-char24.
END.
?SECTION zTNT-ddl-msg-buffer
DEF zTNT-ddl-msg-buffer.
02 z-msgcode TYPE zspi-ddl-int.
02 z-buflen TYPE zspi-ddl-uint.
02 z-occurs TYPE zspi-ddl-uint.
02 z-filler TYPE zspi-ddl-byte
OCCURS 0 to
zcom-val-buflen
TIMES DEPENDING ON
z-occurs.
END.
?SETSECTION CONSTANTS
CONSTANT zTNT-val-version VALUE version "c11".
CONSTANT zTNT-val-max-buflen VALUE zcom-val-maxbuflen.
CONSTANT zTNT-val-buflen VALUE zcom-val-buflen.
CONSTANT zTNT-err-attr-out-of-range VALUE 1.
CONSTANT zTNT-err-no-stop-obj-actv VALUE 2.
CONSTANT zTNT-evt-no-mem VALUE 1.
CONSTANT zTNT-evt-telnet-read-err VALUE 2.
CONSTANT zTNT-evt-telnet-write-err VALUE 3.
CONSTANT zTNT-evt-telnet-awaitio-err VALUE 4.
CONSTANT zTNT-evt-sumstate-change VALUE 5.
CONSTANT zTNT-evt-intl VALUE 6.
*---------------------------------------------------------------*
* TELNET event management: *
* These are the basic events generated by the TELNET server*
* process. *
* It basically changed most of the printf's to events. *
*---------------------------------------------------------------*