HP NonStop Pathway/iTS Programming Manual page 642

Management Programming Examples
Example 13-2. Obtaining PROG Information (page 2 of 3)
STRUCT .SEL^PROG(ZPWY^DDL^SEL^PROG^DEF);
STRUCT .DEF^PROG(ZPWY^DDL^DEF^PROG^DEF);
STRING .S^TERM^BUF := @TERM^BUF '<<' 1,
.S^SEL^PROG := @SEL^PROG '<<' 1,
.S^SYS^NAME := @SYS^NAME '<<' 1,
.END^OF^TEXT;
?NOLIST
?SOURCE $SYSTEM.SYSTEM.EXTDECS0(OPEN,READUPDATE,REPLY,DEBUG,STOP,
?
?
?
?LIST
?PAGE
?SOURCE ASCICONV
?PAGE
PROC DISPL^ERROR(ERR^NUM);
INT ERR^NUM;
BEGIN
S^TERM^BUF ':=' ["ERROR FROM PATHWAY: "] -> @END^OF^TEXT;
@END^OF^TEXT := @END^OF^TEXT '+'
TEXT^LEN := @END^OF^TEXT '-' @S^TERM^BUF;
CALL WRITE(TERM,TERM^BUF,TEXT^LEN);
IF <> THEN CALL DEBUG;
END;
?PAGE
PROC DISPL^DATA;
BEGIN
S^TERM^BUF ':=' ["OWNER: "] -> @END^OF^TEXT;
CALL GETSYSTEMNAME(DEF^PROG.ZOWNER.ZSYSTEMNUMBER,SYS^NAME);
END^OF^TEXT ':=' S^SYS^NAME FOR 8 & "." -> @END^OF^TEXT;
@END^OF^TEXT := @END^OF^TEXT '+'
END^OF^TEXT ':=' [","] -> @END^OF^TEXT;
@END^OF^TEXT := @END^OF^TEXT '+'
TEXT^LEN := @END^OF^TEXT '-' @S^TERM^BUF;
CALL WRITE(TERM,TERM^BUF,TEXT^LEN);
IF <> THEN CALL DEBUG;
S^TERM^BUF ':=' ["TCP: "] -> @END^OF^TEXT;
END^OF^TEXT ':=' DEF^PROG.ZTCP.Z^B[0] FOR $LEN(DEF^PROG.ZTCP)
TEXT^LEN := @END^OF^TEXT '-' @S^TERM^BUF;
CALL WRITE(TERM,TERM^BUF,TEXT^LEN);
IF <> THEN CALL DEBUG;
END;
?PAGE
PROC DSMA^MAIN MAIN;
BEGIN
INT VAL^BUFLEN;
CALL MYTERM(TERM^NAME);
CALL OPEN(TERM^NAME,TERM);
CALL INITIALIZER;
NonStop Pathway/iTS Management Programming Manual—426749-002
SSGETTKN,SSINIT,SSNULL,SSPUT,SSGET,
GETSYSTEMNAME,WRITE,WRITEREAD,DELAY,
FILEINFO,MYTERM,SSPUTTKN,INITIALIZER)
ASCII(ERR^NUM,0,END^OF^TEXT);
ASCII(DEF^PROG.ZOWNER.ZGROUPNUMBER,0,END^OF^TEXT);
ASCII(DEF^PROG.ZOWNER.ZUSERNUMBER,0,END^OF^TEXT);
! PROG SELECTOR TOKEN
! PWY PROGRAM PARAMS
-> @END^OF^TEXT;
13 -16
Obtaining PROG Information