TS/MP Management Programming Manual (G06.24+, H06.03+)

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-38
Obtaining Subsystem Information
Example 15-4. ASCICONV Source File
INT PROC ASCII (V,RJUST,STG);
INT V; ! INT VALUE TO CONVERT
INT RJUST; ! RIGHT-JUSTIFY FLAG
STRING .STG; ! TARGET STRING
BEGIN
STRING .B[0:5] := [5*[" "],"0"];
INT N;
INT SGN := 0;
INT K := 5;
IF V < 0 THEN
BEGIN
SGN := 1;
V := -V;
END;
WHILE V DO
BEGIN
B[K] := $UDBL(V) '\' 10 + "0";
V := V/10;
K := K-1;
END;
IF SGN THEN
BEGIN
B[K] := "-";
K := K-1;
END;
IF NOT ( N := 5-K ) THEN
N := 1;
IF RJUST THEN
STG[N-1] '=:' B[5] FOR N
ELSE
STG ':=' B[6-N] FOR N;
RETURN N;
END;