Common ZTDPFIL

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ztdpfil +++|*NOSEQ
00002  M01S00002.ztdpfil +++|*WIDTH 95
00003  M01S00003.ztdpfil +++|
00004  M01S00004.ztdpfil +++|*CALLC ZTDTFIL
00005  M01S00005.ztdpfil +++|
00006  M01S00006.ztdpfil +++|{ ZTDPFIL  TDU file handler procedures }
00007  M01S00007.ztdpfil +++|
00008  M01S00008.ztdpfil +++|  PROCEDURE [XREF] open_file (file_id: file_selector;
00009  M01S00009.ztdpfil +++|        input_output: input_output_selector;
00010  M01S00010.ztdpfil +++|        code_set: code_set_selector);
00011  M01S00011.ztdpfil +++|
00012  M01S00012.ztdpfil +++|  PROCEDURE [XREF] close_file (file_id: file_selector);
00013  M01S00013.ztdpfil +++|
00014  M01S00014.ztdpfil +++|  PROCEDURE [XREF] get_file (file_id: file_selector;
00015  M01S00015.ztdpfil +++|        VAR text: STRING(*);
00016  M01S00016.ztdpfil +++|        VAR text_len: INTEGER;
00017  M01S00017.ztdpfil +++|        VAR eof_flag: BOOLEAN);
00018  M01S00018.ztdpfil +++|
00019  M01S00019.ztdpfil +++|  PROCEDURE [XREF] put_file (file_id: file_selector;
00020  M01S00020.ztdpfil +++|        text: STRING(*));
00021  M01S00014.ztdpfil +++|ZTDPTBD

Line S254270 Modification History
`M01` (Yanked) (Added by)	`@024460`
`M02` (Yanked) (Added by)	`@058429`
`M03` (Yanked) (Added by)	`@058301`
`M04` (Yanked) (Updated by)	`@031613`
`M05` (Yanked) (Updated by)	`@020352`
`M06` (Yanked) (Added by)	`@020352`
`M07` (Yanked) (Updated by)	`@057244`

Seq #  *Modification Id* Act 
----------------------------+
00022  M07S254270.@057244 ---|6

Line S254206 Modification History
`M01` (Yanked) (Updated by)	`@065425`
`M02` (Yanked) (Added by)	`@057641`

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S254206.@057641 +++|6

Line S255358 Modification History
`M01` (Yanked) (Updated by)	`@057231`
`M02` (Yanked) (Added by)	`@024462`
`M03` (Yanked) (Added by)	`@024467`
`M04` (Yanked) (Added by)	`@058429`
`M05` (Yanked) (Added by)	`@024467`
`M06` (Yanked) (Added by)	`@058301`
`M07` (Yanked) (Updated by)	`@065411`
`M08` (Yanked) (Added by)	`@057708`
`M09` (Yanked) (Added by)	`@058365`
`M10` (Yanked) (Added by)	`@012163`
`M11` (Yanked) (Added by)	`@057981`
`M12` (Yanked) (Added by)	`@057469`
`M13` (Yanked) (Updated by)	`@052995`
`M14` (Yanked) (Updated by)	`@057230`
`M15` (Yanked) (Added by)	`@012163`
`M16` (Yanked) (Added by)	`@057981`
`M17` (Yanked) (Updated by)	`@061312`
`M18` (Yanked) (Updated by)	`@052605`
`M19` (Yanked) (Added by)	`@020376`
`M20` (Yanked) (Added by)	`@058429`
`M21` (Yanked) (Added by)	`@061439`

Seq #  *Modification Id* Act 
----------------------------+
00024  M21S255358.@061439 +++|9
00025  M01S00000.ztdpfil +++|
00026  M01S00010.ztdpfil +++|        VAR chars: ^STRING(*);
00027  M01S00011.ztdpfil +++|        VAR total_ordinals: INTEGER;
00028  M01S00012.ztdpfil +++|        VAR total_characters: INTEGER;
00029  M01S00013.ztdpfil +++|        VAR node_returned: BOOLEAN);
00030  M01S00014.ztdpfil +++|
00031  M01S00015.ztdpfil +++|  PROCEDURE [XREF] dump_input_node (
00032  M01S00016.ztdpfil +++|        output_procedure: ^PROCEDURE(in_nd: ^input_node));
00033  M01S00017.ztdpfil +++|
00034  M01S00018.ztdpfil +++|  PROCEDURE [XREF] reset_input_table (VAR character_count: INTEGER);
00035  M01S00019.ztdpfil +++|
00036  M01S00020.ztdpfil +++|  PROCEDURE [XREF] dump_reset_sequence(ordinal: ordinal_type;
00037  M01S00021.ztdpfil +++|        VAR length: INTEGER;
00038  M01S00022.ztdpfil +++|        VAR chars: ^STRING(*);
00039  M01S00023.ztdpfil +++|        VAR total_ordinals: INTEGER;
00040  M01S00024.ztdpfil +++|        VAR total_characters: INTEGER;
00041  M01S00025.ztdpfil +++|        VAR node_returned: BOOLEAN);
00042  M01S00026.ztdpfil +++|
00043  M01S00027.ztdpfil +++|  PROCEDURE [XREF] dump_key_name_node(ordinal: ordinal_type;
00044  M01S00028.ztdpfil +++|        VAR length: INTEGER;
00045  M01S00029.ztdpfil +++|        VAR chars: ^STRING(*);
00046  M01S00030.ztdpfil +++|        VAR total_ordinals: INTEGER;
00047  M01S00031.ztdpfil +++|        VAR total_characters: INTEGER;
00048  M01S00032.ztdpfil +++|        VAR node_returned: BOOLEAN);
00049  M01S00033.ztdpfil +++|
00050  M01S00034.ztdpfil +++|  PROCEDURE [XREF] dump_appstr_node (VAR name: STRING(*);
00051  M01S00035.ztdpfil +++|        VAR length: INTEGER;
00052  M01S00036.ztdpfil +++|        VAR chars: ^STRING(*);
00053  M01S00037.ztdpfil +++|        VAR total_sequences: INTEGER;
00054  M01S00038.ztdpfil +++|        VAR total_characters: INTEGER;
00055  M01S00039.ztdpfil +++|        VAR node_returned: BOOLEAN);
00056  M01S00040.ztdpfil +++|
00057  M01S00041.ztdpfil +++|  PROCEDURE [XREF] reset_appstr_table;