TAL Programmer's Guide

Modular Programming Example
Sample Programs
A–16 096254 Tandem Computers Incorporated
Example A-6c. D-Series Input File Module (Page 3 of 3)
?SECTION read_in
INT PROC read_in (rec:rec_len);
STRING .EXT rec;
INT rec_len;
BEGIN
INT error;
CALL READX (in_file, rec, rec_len);
IF < THEN
BEGIN
error := FILE_GETINFO_ (in_file);
CALL msg (msg_read, error);
CALL PROCESS_STOP_ (!phandle!,
!specifier!,
!options!,
3 !Completion code ABEND!,
!...!);
END
ELSE
IF > THEN RETURN 1
ELSE
RETURN 0;
?SECTION in_close
PROC in_close;
BEGIN
CALL FILE_CLOSE_ (in_file);
END;
?SECTION end_of_code_sections
?NOMAP