Example 2; Example 3 - IBM SC34-5764-01 Manual

Example 2

.DEFINE > prot green
.DEFINE < unprot underline white
.DEFINE + var service.
.DEFINE % skip turq
.PANEL service
> Panel service
% &salutation
% Tab the cursor to the type of service wanted and press the ENTER key.
<+> Itemized tax preparation
<+> Non-itemized tax preparation
<+> Query return status
<+> Show calendar
<+> Exit

Example 3

.DEFINE # protect bright
.DEFINE + protect
A panel to display a static message without erasing previous panel.
Notice the position of the escape sequence in lines 1 and 6.
See manual for an explanation about escape sequences.
.PANEL msgbox1
#++-------------------------------------------+++
#|
#| We are sorry but the service you have
#| chosen is not available at this time.
#| Press ENTER to continue.
#|
#++-------------------------------------------+++
&disp_date &companyname
|+
|+
|+
|+
|+
Panel Facility
Chapter 24. REXX/CICS Panel Facility
311