Example 2, Example 3 – IBM SC34-5764-01 User Manual
Page 333
Example 2
.DEFINE
>
prot
green
.DEFINE <
unprot underline white
.DEFINE
+
var service.
.DEFINE % skip turq
.PANEL
service
> Panel service
&disp_date
&companyname
% &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.
|+
#|
|+
#++-------------------------------------------+++
Panel Facility
Chapter 24. REXX/CICS Panel Facility
311