HP NonStop Pathway/iTS

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-15
Obtaining PROG Information
Obtaining PROG Information
Example 13-2 contains an example management program that issues an INFO PROG
command. The example, which is written in the TAL programming language, performs
the following tasks:
1. Opens the PATHMON process
2. Initializes the SPI buffer, calls SSNULL, and places an extensible token in the
buffer
3. Determines the length of the message to be sent and sends the message
4. Corrects a change to the BUFLEN value
5. Extracts and checks the return code
Example 13-2. Obtaining PROG Information (page 1 of 3)
! XSPITALS SPI INTERFACE TO PATHWAY ($ZVPT)
! "INFO PROG <PROG-NAME>"
?PAGE
?NOMAP,NOLMAP
?INSPECT,SYMBOLS
?NOCODE
?NOLIST, SOURCE $SYSTEM.ZSPIDEF.ZSPITAL
?LIST
?NOLIST, SOURCE $SYSTEM.ZSPIDEF.ZPWYTAL(ZPWY^DDL^DEF^PROG,
? ZPWY^DDL^SEL^PROG,CONSTANTS,
? ZPWY^DDL^MSG^BUFFER)
?LIST
INT .PWY^NAME[0:11] := ["$ZVPT #ZSPI ",5*[" "]],
PWY,
.STARTUP^MSG[0:99],
.RCV^NAME[0:11] := ["$RECEIVE",8*[" "]],
RCV,
CT^RD,
SPI^ERR,
PWY^ERR,
TEXT^LEN,
.SYS^NAME[0:3],
FERR,
USED^LEN,
.TERM^NAME[0:11],
TERM,
.TERM^BUF[0:39];
! SPI BUFFER STRUCT
STRUCT .SPI^BUF(ZPWY^DDL^MSG^BUFFER^DEF);
! INITIALIZED MAP VARIABLES
INT .MAP^DEF^PROG[0 : ZPWY^MAP^DEF^PROG^WLN-1]
:= ZPWY^MAP^DEF^PROG;
INT .MAP^SEL^PROG[0 : ZPWY^MAP^SEL^PROG^WLN-1]
:= ZPWY^MAP^SEL^PROG;
STRUCT .ZPWY^SSID(ZPWY^VAL^SSID^DEF); ! SSID STRUCT