Example 4; Example 5; Example Of A Rexx Panel Program - IBM SC34-5764-01 Manual

Panel Facility

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_left_mon
>su mo tu we th fr sa
<# <# <# <# <# <# <# >
<# <# <# <# <# <# <# >
<# <# <# <# <# <# <# >
<# <# <# <# <# <# <# >
<# <# <# <# <# <# <# >
<# <# >
>@ = Leave Calendar >@
IF RC=4 & PAN.REA = 124 THEN /* 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'
ATTR_STRING = '' /* no dynamic attributes on first send */
PATH_NAME = 'FILE(POOL1:\USERS\BLAKELY)'
CLR_INP_FIELDS = 'CLR'
312
CICS TS for VSE/ESA: REXX Guide
|#
|#
|#
|#
&disp_date
&disp_center_mon
su mo tu we th fr sa
<% <% <% <% <% <% <% >
<% <% <% <% <% <% <% >
<% <% <% <% <% <% <% >
<% <% <% <% <% <% <% >
<% <% <% <% <% <% <% >
<% <% >
= Backup a month
/* put cursor on LNAME field */
&companyname
&disp_right_mon
su mo tu we th fr sa
<+ <+ <+ <+ <+ <+ <+ >
<+ <+ <+ <+ <+ <+ <+ >
<+ <+ <+ <+ <+ <+ <+ >
<+ <+ <+ <+ <+ <+ <+ >
<+ <+ <+ <+ <+ <+ <+ >
<+ <+ >
>@ = Go forward a month