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 = 124 THEN /* warning and no input received */


Reference Reference

Feedback


Timestamp icon Last updated: Tuesday, 7 January 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic/com.ibm.cics.rexx.doc//dfhrx/dfhrx000357.html