Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.ztdptbd +++|*NOSEQ
00002 M00S00002.ztdptbd +++|*WIDTH 95
00003 M00S00003.ztdptbd +++|
00004 M00S00004.ztdptbd +++|{ ZTDPTBD table-handler (tdutab) procedures for dumping data }
00005 M00S00005.ztdptbd +++|
00006 M00S00006.ztdptbd +++| PROCEDURE [XREF] dump_parameters (VAR parm_record: parameter_record);
00007 M00S00007.ztdptbd +++|
00008 M00S00008.ztdptbd +++| PROCEDURE [XREF] dump_output_node (ordinal: ordinal_type;
00009 M00S00009.ztdptbd +++| VAR length: INTEGER;
00010 M00S00010.ztdptbd +++| VAR chars: ^STRING(*);
00011 M00S00011.ztdptbd +++| VAR total_ordinals: INTEGER;
00012 M00S00012.ztdptbd +++| VAR total_characters: INTEGER;
00013 M00S00013.ztdptbd +++| VAR node_returned: BOOLEAN);
00014 M00S00014.ztdptbd +++|
00015 M00S00015.ztdptbd +++| PROCEDURE [XREF] dump_input_node (
00016 M00S00016.ztdptbd +++| output_procedure: ^PROCEDURE(in_nd: ^input_node));
00017 M00S00017.ztdptbd +++|
00018 M00S00018.ztdptbd +++| PROCEDURE [XREF] reset_input_table (VAR character_count: INTEGER);
00019 M00S00019.ztdptbd +++|
00020 M00S00020.ztdptbd +++| PROCEDURE [XREF] dump_reset_sequence(ordinal: ordinal_type;
00021 M00S00021.ztdptbd +++| VAR length: INTEGER;
00022 M00S00022.ztdptbd +++| VAR chars: ^STRING(*);
00023 M00S00023.ztdptbd +++| VAR total_ordinals: INTEGER;
00024 M00S00024.ztdptbd +++| VAR total_characters: INTEGER;
00025 M00S00025.ztdptbd +++| VAR node_returned: BOOLEAN);
00026 M00S00026.ztdptbd +++|
00027 M00S00027.ztdptbd +++| PROCEDURE [XREF] dump_key_name_node(ordinal: ordinal_type;
00028 M00S00028.ztdptbd +++| VAR length: INTEGER;
00029 M00S00029.ztdptbd +++| VAR chars: ^STRING(*);
00030 M00S00030.ztdptbd +++| VAR total_ordinals: INTEGER;
00031 M00S00031.ztdptbd +++| VAR total_characters: INTEGER;
00032 M00S00032.ztdptbd +++| VAR node_returned: BOOLEAN);
00033 M00S00033.ztdptbd +++|
00034 M00S00034.ztdptbd +++| PROCEDURE [XREF] dump_appstr_node (VAR name: STRING(*);
00035 M00S00035.ztdptbd +++| VAR length: INTEGER;
00036 M00S00036.ztdptbd +++| VAR chars: ^STRING(*);
00037 M00S00037.ztdptbd +++| VAR total_sequences: INTEGER;
00038 M00S00038.ztdptbd +++| VAR total_characters: INTEGER;
00039 M00S00039.ztdptbd +++| VAR node_returned: BOOLEAN);
00040 M00S00040.ztdptbd +++|
00041 M00S00041.ztdptbd +++| PROCEDURE [XREF] reset_appstr_table;