X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-157
Examples of Commands and Responses
! Handle the possible errors for the INFO LINE
! command and exit this procedure
RETURN;
END;
! get the value of the extensible structured token
! zx25^map^info^line
sserror := SSGET(buffer, zx25^map^info^line^resp,
tkn^value, 1);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
! save some of the information
@info^line^value := @tkn^value;
net^id := info^line^value.znetid;
calling^address := info^line^value.zcalling^addr;
char^set := info^line^value.zchar^set;
frame^mode := info^line^value.zframe^mode;
syncs := info^line^value.zsyncs;
threshold := info^line^value.zthres;
END; ! of info^line
! ***************************************************************
! * main program *
! ***************************************************************
PROC m MAIN;
BEGIN
INT error, ! error upon opening SCP
obj^name[0:8]; ! the object name
! Set up the X25AM subsystem ID
zx25^val^ssid ':=' [zspi^val^tandem,
zspi^ssn^zx25,
zx25^val^version];
! Dispose of the startup message
CALL INITIALIZER;
! Open SCP
error := open^scp;