pTAL Reference Manual (H06.03+)

LITERALs and DEFINEs
HP pTAL Reference Manual—523746-005
6-9
Passing Actual Parameters to DEFINEs
Example 6-13. Checking a Condition Code
INT error;
INT file;
INT .buffer[0:50];
INT count_written;
INT i;
DEFINE emit (filenum, text, bytes, count, err) =
BEGIN
CALL WRITE (filenum, text, bytes, count);
IF < THEN
BEGIN
CALL FILEINFO (filenum, err);
! Process errors if any
END;
END #;
! Lots of code
IF i = 1 THEN
emit (file, buffer, 80, count_written, error);