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(*));