Common ZTDPTBD

Library Member Format: MODIFY
Source

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;