TACL Reference Manual

Built-In Functions and Variables
HP NonStop TACL Reference Manual—429513-018
9-379
#SSGETV Built-In Function
UINT z^version;
END;
END;
?SECTION nexttoken_return STRUCT
BEGIN
STRUCT tkn ; LIKE zspi^ddl^tokencode;
STRUCT ssid; LIKE decompose_ssid;
END;
?SECTION nextcode_return STRUCT
BEGIN
STRUCT tkn ; LIKE zspi^ddl^tokencode;
INT contiguous_occurrences;
STRUCT ssid; LIKE decompose_ssid;
END;
2. This routine uses these STRUCT declarations to compare two subsystem IDs
returned by #SSGETV with ZSPI^TKN^NEXTCODE or ZSPI^TKN^NEXTTOKEN,
ignoring the version field:
?SECTION same_ssid ROUTINE == <ssid1> <ssid2>
== Returns TRUE if two SSIDs are the same except for
== the version field
#FRAME
#PUSH sstext
#DEF ss1 STRUCT LIKE decompose_ssid;
#DEF ss2 STRUCT LIKE decompose_ssid;
#IF{SINK} [#ARGUMENT/VALUE sstext/ SUBSYSTEM]
#SET ss1 [sstext]
#IF{SINK} [#ARGUMENT/VALUE sstext/ SUBSYSTEM]
#SET ss2 [sstext]
#RESULT [#COMPUTE [#COMPAREV ss1:z^ssid:z^owner(0:7)
ss2:z^ssid:z^owner(0:7)]
AND [#COMPAREV ss1:z^ssid:z^number
ss2:z^ssid:z^number] ]
#UNFRAME
{same_ssid}