IBM SC34-5764-01 - Manual (Page 311)

Exit rc
end
/*---------------------------------------*/
/* Display the members of the department */
/*---------------------------------------*/
Say 'Here are the members of Department' dept
Do n = 1 to lastname.0
Say lastname.n phoneno.n
End
Exit
DB2 Interface
Chapter 22. REXX/CICS DB2 Interface 289