IBM SC34-5764-01 Manual de usuario Pagina 334

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 481
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 333
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 = 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' /* 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
Vista de pagina 333
1 2 ... 329 330 331 332 333 334 335 336 337 338 339 ... 480 481

Comentarios a estos manuales

Sin comentarios