SeeView Manual

SeeView Statements and Script Symbols
HP NonStop SeeView Manual—526355-004
9-36
DISPLAY
This output is from the previous program after function keys F5-Init and F7-Add are
pressed:
?PROC accept (rows, cols)
{-----------------------}
{ Accept data from matrix and add all "cols" for each row.
{ Display result in the result column at the end of each row.
{------------------------------------------------------------}
PARM rows, cols;
VAR #s,sum,row;
DELETE data!; { clear out old data
ACCEPT INTO data FIELDPERLINE; { accept numbers from screen
FOR rows DO BEGIN { sum them up for each row
row := row+1;
sum := 0;
FOR cols DO BEGIN
POP #s FROM data;
IF #NUMERIC #s THEN sum := sum+#s;
END;
DISPLAY (sum) FIELD (row)*(cols+1)+cols VIDEO(R);
POP #s FROM data;
END;
?PROC copy
{---------}
{ This proc copies data in window to MyFile.
{------------------------------------------}
DELETE data!;
ACCEPT INTO data PROTECTED; { accept all fields from window
SAVE MyFile!, data; { MyFile contents are below.
?SECT main
{---------}
{ 0 1 2 3 4 5 6 = 21
{ 7 8 9 10 11 12 13 = 70
{ 14 15 16 17 18 19 20 = 119
{ 21 22 23 24 25 26 27 = 168
{ 28 29 30 31 32 33 34 = 217
{ 35 36 37 38 39 40 41 = 266
{ 42 43 44 45 46 47 48 = 315
{ 49 50 51 52 53 54 55 = 364
{-----------------------------------------}
CALL ShowMatrix( 8, 7 );