IBM SC34-5764-01 - Manual (Page 336)

END; /* select */
END; /* do forever */
EXIT
IF SYMBOL('ACCOUNT.ACC_NUM') == 'VAR' THEN
RETURN(1)
ELSE
RETURN(0);
NON_ITEMIZE_ROUTINE:
QUERY_RET_ROUTINE:
'PANEL SEND MSGBOX1 POS(7 10) NOERASE' PATH_NAME
IF RC > 4 THEN
SIGNAL ERROR;
'PANEL RECEIVE MSGBOX1'
IF RC > 4 THEN
SIGNAL ERROR;
RETURN;
COMPANYNAME = 'ACME On-Line Tax Service';
PATH_NAME
= 'FILE(POOL1:\USERS\BLAKELY\)'
DISP_DATE = DATE('U');
/* calling date function in on statement ensures consistent date */
/* data save has format of YYYYMMDDNNNNNN
*/
DATE_SAVE = DATE('S') || DATE('B');
NUM_OF_DAYS.1 = 31;
NUM_OF_DAYS.3 = 31;
NUM_OF_DAYS.4 = 30;
NUM_OF_DAYS.5 = 31;
NUM_OF_DAYS.6 = 30;
NUM_OF_DAYS.7 = 31;
NUM_OF_DAYS.8 = 31;
NUM_OF_DAYS.9 = 30;
NUM_OF_DAYS.10 = 31;
NUM_OF_DAYS.11 = 30;
NUM_OF_DAYS.12 = 31;
MONTH_NAME.1 = 'January';
MONTH_NAME.2 = 'February';
MONTH_NAME.3 = 'March';
MONTH_NAME.4 = 'April';
MONTH_NAME.5 = 'May';
MONTH_NAME.6 = 'June';
MONTH_NAME.7 = 'July';
MONTH_NAME.8 = 'August';
MONTH_NAME.9 = 'September';
MONTH_NAME.10 = 'October';
MONTH_NAME.11 = 'November';
MONTH_NAME.12 = 'December';
TOT_DAYS = SUBSTR(DATE_SAVE,9,6)-SUBSTR(DATE_SAVE,7,2) +1;
/* save current year and month to highlight today date on display */
CUR_YEAR = SUBSTR(DATE_SAVE,1,4);
/* get month part of date. adding 0 strips the leading zero */
CUR_MONTH = SUBSTR(DATE_SAVE,5,2) +0;
YEAR = CUR_YEAR;/* these variables will change with whats displayed */
MONTH = CUR_MONTH;
IF YEAR // 400 &lnot;= 0 & YEAR // 4 = 0 THEN /* leap year? */
Panel Facility
314 CICS TS for VSE/ESA: REXX Guide