Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-16
Obtaining PROG Information
STRUCT .SEL^PROG(ZPWY^DDL^SEL^PROG^DEF); ! PROG SELECTOR TOKEN
STRUCT .DEF^PROG(ZPWY^DDL^DEF^PROG^DEF); ! PWY PROGRAM PARAMS
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,
? SSGETTKN,SSINIT,SSNULL,SSPUT,SSGET,
? GETSYSTEMNAME,WRITE,WRITEREAD,DELAY,
? FILEINFO,MYTERM,SSPUTTKN,INITIALIZER)
?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 '+'
ASCII(ERR^NUM,0,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 '+'
ASCII(DEF^PROG.ZOWNER.ZGROUPNUMBER,0,END^OF^TEXT);
END^OF^TEXT ':=' [","] -> @END^OF^TEXT;
@END^OF^TEXT := @END^OF^TEXT '+'
ASCII(DEF^PROG.ZOWNER.ZUSERNUMBER,0,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)
-> @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 DSMA^MAIN MAIN;
BEGIN
INT VAL^BUFLEN;
CALL MYTERM(TERM^NAME);
CALL OPEN(TERM^NAME,TERM);
CALL INITIALIZER;
Example 13-2. Obtaining PROG Information (page 2 of 3)