IBM SC34-5764-01 Example 4, Example 5, Example of a REXX Panel Program

Example 4
.DEFINE ) protect bright
.DEFINE + drop
.DEFINE & var msg.
A panel to display output dynamic messages.
.PANEL msgbox2
)+-------------------------------------------+#
)| |#
)| & |#
)| & |#
)| |#
)+-------------------------------------------+#
Example 5
.DEFINE > skip blue
.DEFINE < skip green right
.DEFINE % var center_days.
.DEFINE + var right_days.
.DEFINE # VAR left_days.
.DEFINE @ var pf3 pf7 pf8
.PANEL calendar
> Panel calendar &disp_date &companyname
> &disp_left_mon &disp_center_mon &disp_right_mon
>su mo tu we th fr sa su mo tu we th fr sa su mo tu we th fr sa
<# <# <# <# <# <# <# > <% <% <% <% <% <% <% > <+ <+ <+ <+ <+ <+ <+ >
<# <# <# <# <# <# <# > <% <% <% <% <% <% <% > <+ <+ <+ <+ <+ <+ <+ >
<# <# <# <# <# <# <# > <% <% <% <% <% <% <% > <+ <+ <+ <+ <+ <+ <+ >
<# <# <# <# <# <# <# > <% <% <% <% <% <% <% > <+ <+ <+ <+ <+ <+ <+ >
<# <# <# <# <# <# <# > <% <% <% <% <% <% <% > <+ <+ <+ <+ <+ <+ <+ >
<# <# > <% <% > <+ <+ >
>@ = Leave Calendar >@ = Backup a month >@ = Go forward a month
IF RC=4 & PAN.REA = 124THEN /* warning and no input received */
Example of a REXX Panel Program
/* data base */
ACCOUNT.1234561 = '1231 John W. Smith Mr.'
ACCOUNT.1234562 = '1232 Jane M. Brown Miss'
ACCOUNT.1234563 = '1233 Mary R. Scott Mrs.'
MESSAGE = '' /* no output message yet */
COMPANYNAME = 'ACME On-Line Tax Services'
CURS_NAME = 'ACCOUNT_NUM' /* put cursor on LNAME field */
ATTR_STRING = '' /* no dynamic attributes on first send */
PATH_NAME = 'FILE(POOL1:\USERS\BLAKELY)'
CLR_INP_FIELDS = 'CLR'
Panel Facility
312 CICS TS for VSE/ESA: REXX Guide