Common ZTDPFIL

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ztdpfil +++|*NOSEQ
00002  M00S00002.ztdpfil +++|*WIDTH 95
00003  M00S00003.ztdpfil +++|
00004  M00S00004.ztdpfil +++|*CALLC ZTDTFIL
00005  M00S00005.ztdpfil +++|
00006  M00S00006.ztdpfil +++|{ ZTDPFIL  TDU file handler procedures }
00007  M00S00007.ztdpfil +++|
00008  M00S00008.ztdpfil +++|  PROCEDURE [XREF] open_file (file_id: file_selector;
00009  M00S00009.ztdpfil +++|        input_output: input_output_selector;
00010  M00S00010.ztdpfil +++|        code_set: code_set_selector);
00011  M00S00011.ztdpfil +++|
00012  M00S00012.ztdpfil +++|  PROCEDURE [XREF] close_file (file_id: file_selector);
00013  M00S00013.ztdpfil +++|
00014  M00S00014.ztdpfil +++|  PROCEDURE [XREF] get_file (file_id: file_selector;
00015  M00S00015.ztdpfil +++|        VAR text: STRING(*);
00016  M00S00016.ztdpfil +++|        VAR text_len: INTEGER;
00017  M00S00017.ztdpfil +++|        VAR eof_flag: BOOLEAN);
00018  M00S00018.ztdpfil +++|
00019  M00S00019.ztdpfil +++|  PROCEDURE [XREF] put_file (file_id: file_selector;
00020  M00S00020.ztdpfil +++|        text: STRING(*));