IBM SC34-5764-01 - page 339

(SUBSTR(DATE_SAVE,7,2)+FIRST_WEEKDAY_SAVE);
ATTR_STRING = 'ATTRIB(' CUR_DAY_FIELD 'RED )' ;
END;
END; /* select */
'PANEL RECEIVE CALENDAR'
END; /* do forever loop */
ERROR:
SAY 'RETURN CODE ' RC
SAY 'REA CODE ' PAN.REA
SAY 'LOC CODE ' PAN.LOC
EXIT;
EXIT_ROUTINE:
'PANEL END';
SENDE;
EXIT;
each definition needs to be in a separate RFS file.
******************************************************
Panel Facility
Chapter 24. REXX/CICS Panel Facility 317