Table of Contents
Advertisement
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
- Quick Links:
- What Is Rexx
Hide quick links:
Advertisement
Table of Contents
