12 Execute REXX Program - ironstream_for_servicenow_discovery_1 - 7.5

The REXX program that follows is saved as "TEST" in a SYSEXEC DD library:

/* REXX program to accept two whole numbers and return */

/* two lines of output: the numbers and their sum. */

parse upper arg parm1 parm2 .

if DATATYPE(parm1,'W') \= 1 | DATATYPE(parm2,'W') \= 1 then 

do

n = 'Inputs must be whole numbers'

return n

exit

end

linefeed = X2C('0A')

n = 'Input numbers:' parm1 parm2 linefeed 'sum is:' parm1 +

parm2

return n

exit

Run the program with the parameters "111" and "222" with a maximum output of 6000 bytes. Note that the X2C('0A') function inserts a line break into the output:

ev390hostcmd 46 12\|TEST\|111 222\|maxsize=6000.s390.mysite.com