TAL Programmer's Guide

Modular Programming Example
Sample Programs
A–18 096254 Tandem Computers Incorporated
Example A-6d. D-Series Output File Module (Page 2 of 3)
IF status = 0 !FEOK! THEN
BEGIN
status := FILE_OPEN_ (out_file_name:out_file_name_len,
out_file);
IF out_file = -1 !unable to open file! THEN
BEGIN
CALL msg (msg_out_open, status);
CALL PROCESS_STOP_ (!phandle!,
!specifier!,
!options!,
3 !Completion code ABEND!,
!...!);
END;
END !Of THEN clause
ELSE
BEGIN
CALL msg (msg_out_name, 0);
CALL PROCESS_STOP_ (!phandle!,
!specifier!,
!options!,
3 !Completion code ABEND!,
!...!);
END; !Of ELSE clause
END;
?SECTION write_out
PROC write_out (rec:rec_len);
STRING .EXT rec;
INT rec_len;
BEGIN
INT error;
CALL WRITEX (out_file, rec, rec_len);
IF < THEN
BEGIN
error := FILE_GETINFO_ (out_file);
CALL msg (msg_write, error);
CALL PROCESS_STOP_ (!phandle!,
!specifier!,
!options!,
3 !Completion code ABEND!,
!...!);
END;
END; !Of WRITE_OUT