Rexx Programming Examples

Rexx Beep function

rexx

/* Main program */ 
BEEP(1000,200)

Rexx Address

rexx

/* Main program */ 
say ADDRESS()

Rexx arg(index) subroutine

rexx

/* Main program */ 
call add 1,2 
exit 
add: 
PARSE ARG a,b 

say arg(1) 
c = a + b 
say c

Rexx Argument subroutine

rexx

/* Main program */ 
call add 1,2 
exit 
add: 
PARSE ARG a,b 

say arg() 
c = a + b 
say c

Rexx Subroutine Working with arguments

rexx

/* Main program */ 
call add 1,2 
exit 
add: 
PARSE ARG a,b 
c = a + b 
say c

Rexx Defining Subroutine

rexx

/* Main program */ 
call add 
exit 
add: 
a = 5 
b = 10 
c = a + b 
say c

Rexx Recursive Function

rexx

/* Main program */ 
do n = 1 to 5 
say 'The factorial of' n 'is:' factorial( n ) 
end 
return  

/* Function to get factorial */ 
factorial : procedure 
n = arg(1) 
if n = 1 then 
return 1 
return n * factorial( n - 1 )

Rexx arg(index)

rexx

/* Main program */ 
say add(5,6) 
exit 
add: 
PARSE ARG a,b 

say arg(1) 
return a + b

Rexx Working with Arguments

rexx

/* Main program */ 
say add(5,6) 
exit 
add: 
PARSE ARG a,b 

say arg() 
return a + b

Rexx Defining a Function

rexx

/* Main program */ 
say add(5,6) 
exit 
add: 
PARSE ARG a,b 
return a + b

Previous 1 ... 3 4 5 6 7 8 9 ... 11 Next

Follow

Newsletter