apmain.c revision 1.1.1.1.6.2 1 1.1.1.1.6.2 yamt /******************************************************************************
2 1.1.1.1.6.2 yamt *
3 1.1.1.1.6.2 yamt * Module Name: apmain - Main module for the acpidump utility
4 1.1.1.1.6.2 yamt *
5 1.1.1.1.6.2 yamt *****************************************************************************/
6 1.1.1.1.6.2 yamt
7 1.1.1.1.6.2 yamt /*
8 1.1.1.1.6.2 yamt * Copyright (C) 2000 - 2013, Intel Corp.
9 1.1.1.1.6.2 yamt * All rights reserved.
10 1.1.1.1.6.2 yamt *
11 1.1.1.1.6.2 yamt * Redistribution and use in source and binary forms, with or without
12 1.1.1.1.6.2 yamt * modification, are permitted provided that the following conditions
13 1.1.1.1.6.2 yamt * are met:
14 1.1.1.1.6.2 yamt * 1. Redistributions of source code must retain the above copyright
15 1.1.1.1.6.2 yamt * notice, this list of conditions, and the following disclaimer,
16 1.1.1.1.6.2 yamt * without modification.
17 1.1.1.1.6.2 yamt * 2. Redistributions in binary form must reproduce at minimum a disclaimer
18 1.1.1.1.6.2 yamt * substantially similar to the "NO WARRANTY" disclaimer below
19 1.1.1.1.6.2 yamt * ("Disclaimer") and any redistribution must be conditioned upon
20 1.1.1.1.6.2 yamt * including a substantially similar Disclaimer requirement for further
21 1.1.1.1.6.2 yamt * binary redistribution.
22 1.1.1.1.6.2 yamt * 3. Neither the names of the above-listed copyright holders nor the names
23 1.1.1.1.6.2 yamt * of any contributors may be used to endorse or promote products derived
24 1.1.1.1.6.2 yamt * from this software without specific prior written permission.
25 1.1.1.1.6.2 yamt *
26 1.1.1.1.6.2 yamt * Alternatively, this software may be distributed under the terms of the
27 1.1.1.1.6.2 yamt * GNU General Public License ("GPL") version 2 as published by the Free
28 1.1.1.1.6.2 yamt * Software Foundation.
29 1.1.1.1.6.2 yamt *
30 1.1.1.1.6.2 yamt * NO WARRANTY
31 1.1.1.1.6.2 yamt * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
32 1.1.1.1.6.2 yamt * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
33 1.1.1.1.6.2 yamt * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
34 1.1.1.1.6.2 yamt * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
35 1.1.1.1.6.2 yamt * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
36 1.1.1.1.6.2 yamt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
37 1.1.1.1.6.2 yamt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
38 1.1.1.1.6.2 yamt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
39 1.1.1.1.6.2 yamt * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
40 1.1.1.1.6.2 yamt * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
41 1.1.1.1.6.2 yamt * POSSIBILITY OF SUCH DAMAGES.
42 1.1.1.1.6.2 yamt */
43 1.1.1.1.6.2 yamt
44 1.1.1.1.6.2 yamt #define _DECLARE_GLOBALS
45 1.1.1.1.6.2 yamt #include "acpidump.h"
46 1.1.1.1.6.2 yamt #include "acapps.h"
47 1.1.1.1.6.2 yamt
48 1.1.1.1.6.2 yamt
49 1.1.1.1.6.2 yamt /*
50 1.1.1.1.6.2 yamt * acpidump - A portable utility for obtaining system ACPI tables and dumping
51 1.1.1.1.6.2 yamt * them in an ASCII hex format suitable for binary extraction via acpixtract.
52 1.1.1.1.6.2 yamt *
53 1.1.1.1.6.2 yamt * Obtaining the system ACPI tables is an OS-specific operation.
54 1.1.1.1.6.2 yamt *
55 1.1.1.1.6.2 yamt * This utility can be ported to any host operating system by providing a
56 1.1.1.1.6.2 yamt * module containing system-specific versions of these interfaces:
57 1.1.1.1.6.2 yamt *
58 1.1.1.1.6.2 yamt * AcpiOsGetTableByAddress
59 1.1.1.1.6.2 yamt * AcpiOsGetTableByIndex
60 1.1.1.1.6.2 yamt * AcpiOsGetTableByName
61 1.1.1.1.6.2 yamt *
62 1.1.1.1.6.2 yamt * See the ACPICA Reference Guide for the exact definitions of these
63 1.1.1.1.6.2 yamt * interfaces. Also, see these ACPICA source code modules for example
64 1.1.1.1.6.2 yamt * implementations:
65 1.1.1.1.6.2 yamt *
66 1.1.1.1.6.2 yamt * source/os_specific/service_layers/oswintbl.c
67 1.1.1.1.6.2 yamt * source/os_specific/service_layers/oslinuxtbl.c
68 1.1.1.1.6.2 yamt */
69 1.1.1.1.6.2 yamt
70 1.1.1.1.6.2 yamt
71 1.1.1.1.6.2 yamt /* Local prototypes */
72 1.1.1.1.6.2 yamt
73 1.1.1.1.6.2 yamt static void
74 1.1.1.1.6.2 yamt ApDisplayUsage (
75 1.1.1.1.6.2 yamt void);
76 1.1.1.1.6.2 yamt
77 1.1.1.1.6.2 yamt static int
78 1.1.1.1.6.2 yamt ApDoOptions (
79 1.1.1.1.6.2 yamt int argc,
80 1.1.1.1.6.2 yamt char **argv);
81 1.1.1.1.6.2 yamt
82 1.1.1.1.6.2 yamt static void
83 1.1.1.1.6.2 yamt ApInsertAction (
84 1.1.1.1.6.2 yamt char *Argument,
85 1.1.1.1.6.2 yamt UINT32 ToBeDone);
86 1.1.1.1.6.2 yamt
87 1.1.1.1.6.2 yamt
88 1.1.1.1.6.2 yamt /* Table for deferred actions from command line options */
89 1.1.1.1.6.2 yamt
90 1.1.1.1.6.2 yamt AP_DUMP_ACTION ActionTable [AP_MAX_ACTIONS];
91 1.1.1.1.6.2 yamt UINT32 CurrentAction = 0;
92 1.1.1.1.6.2 yamt
93 1.1.1.1.6.2 yamt
94 1.1.1.1.6.2 yamt #define AP_UTILITY_NAME "ACPI Binary Table Dump Utility"
95 1.1.1.1.6.2 yamt #define AP_SUPPORTED_OPTIONS "?a:bcf:hn:o:r:svz"
96 1.1.1.1.6.2 yamt
97 1.1.1.1.6.2 yamt
98 1.1.1.1.6.2 yamt /******************************************************************************
99 1.1.1.1.6.2 yamt *
100 1.1.1.1.6.2 yamt * FUNCTION: ApDisplayUsage
101 1.1.1.1.6.2 yamt *
102 1.1.1.1.6.2 yamt * DESCRIPTION: Usage message for the AcpiDump utility
103 1.1.1.1.6.2 yamt *
104 1.1.1.1.6.2 yamt ******************************************************************************/
105 1.1.1.1.6.2 yamt
106 1.1.1.1.6.2 yamt static void
107 1.1.1.1.6.2 yamt ApDisplayUsage (
108 1.1.1.1.6.2 yamt void)
109 1.1.1.1.6.2 yamt {
110 1.1.1.1.6.2 yamt
111 1.1.1.1.6.2 yamt ACPI_USAGE_HEADER ("acpidump [options]");
112 1.1.1.1.6.2 yamt
113 1.1.1.1.6.2 yamt ACPI_OPTION ("-b", "Dump tables to binary files");
114 1.1.1.1.6.2 yamt ACPI_OPTION ("-c", "Dump customized tables");
115 1.1.1.1.6.2 yamt ACPI_OPTION ("-h -?", "This help message");
116 1.1.1.1.6.2 yamt ACPI_OPTION ("-o <File>", "Redirect output to file");
117 1.1.1.1.6.2 yamt ACPI_OPTION ("-r <Address>", "Dump tables from specified RSDP");
118 1.1.1.1.6.2 yamt ACPI_OPTION ("-s", "Print table summaries only");
119 1.1.1.1.6.2 yamt ACPI_OPTION ("-v", "Display version information");
120 1.1.1.1.6.2 yamt ACPI_OPTION ("-z", "Verbose mode");
121 1.1.1.1.6.2 yamt
122 1.1.1.1.6.2 yamt printf ("\nTable Options:\n");
123 1.1.1.1.6.2 yamt
124 1.1.1.1.6.2 yamt ACPI_OPTION ("-a <Address>", "Get table via a physical address");
125 1.1.1.1.6.2 yamt ACPI_OPTION ("-f <BinaryFile>", "Get table via a binary file");
126 1.1.1.1.6.2 yamt ACPI_OPTION ("-n <Signature>", "Get table via a name/signature");
127 1.1.1.1.6.2 yamt
128 1.1.1.1.6.2 yamt printf (
129 1.1.1.1.6.2 yamt "\n"
130 1.1.1.1.6.2 yamt "Invocation without parameters dumps all available tables\n"
131 1.1.1.1.6.2 yamt "Multiple mixed instances of -a, -f, and -n are supported\n\n");
132 1.1.1.1.6.2 yamt }
133 1.1.1.1.6.2 yamt
134 1.1.1.1.6.2 yamt
135 1.1.1.1.6.2 yamt /******************************************************************************
136 1.1.1.1.6.2 yamt *
137 1.1.1.1.6.2 yamt * FUNCTION: ApInsertAction
138 1.1.1.1.6.2 yamt *
139 1.1.1.1.6.2 yamt * PARAMETERS: Argument - Pointer to the argument for this action
140 1.1.1.1.6.2 yamt * ToBeDone - What to do to process this action
141 1.1.1.1.6.2 yamt *
142 1.1.1.1.6.2 yamt * RETURN: None. Exits program if action table becomes full.
143 1.1.1.1.6.2 yamt *
144 1.1.1.1.6.2 yamt * DESCRIPTION: Add an action item to the action table
145 1.1.1.1.6.2 yamt *
146 1.1.1.1.6.2 yamt ******************************************************************************/
147 1.1.1.1.6.2 yamt
148 1.1.1.1.6.2 yamt static void
149 1.1.1.1.6.2 yamt ApInsertAction (
150 1.1.1.1.6.2 yamt char *Argument,
151 1.1.1.1.6.2 yamt UINT32 ToBeDone)
152 1.1.1.1.6.2 yamt {
153 1.1.1.1.6.2 yamt
154 1.1.1.1.6.2 yamt /* Insert action and check for table overflow */
155 1.1.1.1.6.2 yamt
156 1.1.1.1.6.2 yamt ActionTable [CurrentAction].Argument = Argument;
157 1.1.1.1.6.2 yamt ActionTable [CurrentAction].ToBeDone = ToBeDone;
158 1.1.1.1.6.2 yamt
159 1.1.1.1.6.2 yamt CurrentAction++;
160 1.1.1.1.6.2 yamt if (CurrentAction > AP_MAX_ACTIONS)
161 1.1.1.1.6.2 yamt {
162 1.1.1.1.6.2 yamt fprintf (stderr, "Too many table options (max %u)\n", AP_MAX_ACTIONS);
163 1.1.1.1.6.2 yamt exit (-1);
164 1.1.1.1.6.2 yamt }
165 1.1.1.1.6.2 yamt }
166 1.1.1.1.6.2 yamt
167 1.1.1.1.6.2 yamt
168 1.1.1.1.6.2 yamt /******************************************************************************
169 1.1.1.1.6.2 yamt *
170 1.1.1.1.6.2 yamt * FUNCTION: ApDoOptions
171 1.1.1.1.6.2 yamt *
172 1.1.1.1.6.2 yamt * PARAMETERS: argc/argv - Standard argc/argv
173 1.1.1.1.6.2 yamt *
174 1.1.1.1.6.2 yamt * RETURN: Status
175 1.1.1.1.6.2 yamt *
176 1.1.1.1.6.2 yamt * DESCRIPTION: Command line option processing. The main actions for getting
177 1.1.1.1.6.2 yamt * and dumping tables are deferred via the action table.
178 1.1.1.1.6.2 yamt *
179 1.1.1.1.6.2 yamt *****************************************************************************/
180 1.1.1.1.6.2 yamt
181 1.1.1.1.6.2 yamt static int
182 1.1.1.1.6.2 yamt ApDoOptions (
183 1.1.1.1.6.2 yamt int argc,
184 1.1.1.1.6.2 yamt char **argv)
185 1.1.1.1.6.2 yamt {
186 1.1.1.1.6.2 yamt int j;
187 1.1.1.1.6.2 yamt ACPI_STATUS Status;
188 1.1.1.1.6.2 yamt
189 1.1.1.1.6.2 yamt
190 1.1.1.1.6.2 yamt /* Command line options */
191 1.1.1.1.6.2 yamt
192 1.1.1.1.6.2 yamt while ((j = AcpiGetopt (argc, argv, AP_SUPPORTED_OPTIONS)) != EOF) switch (j)
193 1.1.1.1.6.2 yamt {
194 1.1.1.1.6.2 yamt /*
195 1.1.1.1.6.2 yamt * Global options
196 1.1.1.1.6.2 yamt */
197 1.1.1.1.6.2 yamt case 'b': /* Dump all input tables to binary files */
198 1.1.1.1.6.2 yamt
199 1.1.1.1.6.2 yamt Gbl_BinaryMode = TRUE;
200 1.1.1.1.6.2 yamt continue;
201 1.1.1.1.6.2 yamt
202 1.1.1.1.6.2 yamt case 'c': /* Dump customized tables */
203 1.1.1.1.6.2 yamt
204 1.1.1.1.6.2 yamt Gbl_DumpCustomizedTables = TRUE;
205 1.1.1.1.6.2 yamt continue;
206 1.1.1.1.6.2 yamt
207 1.1.1.1.6.2 yamt case 'h':
208 1.1.1.1.6.2 yamt case '?':
209 1.1.1.1.6.2 yamt
210 1.1.1.1.6.2 yamt ApDisplayUsage ();
211 1.1.1.1.6.2 yamt exit (0);
212 1.1.1.1.6.2 yamt
213 1.1.1.1.6.2 yamt case 'o': /* Redirect output to a single file */
214 1.1.1.1.6.2 yamt
215 1.1.1.1.6.2 yamt if (ApOpenOutputFile (AcpiGbl_Optarg))
216 1.1.1.1.6.2 yamt {
217 1.1.1.1.6.2 yamt exit (-1);
218 1.1.1.1.6.2 yamt }
219 1.1.1.1.6.2 yamt continue;
220 1.1.1.1.6.2 yamt
221 1.1.1.1.6.2 yamt case 'r': /* Dump tables from specified RSDP */
222 1.1.1.1.6.2 yamt
223 1.1.1.1.6.2 yamt Status = AcpiUtStrtoul64 (AcpiGbl_Optarg, 0, &Gbl_RsdpBase);
224 1.1.1.1.6.2 yamt if (ACPI_FAILURE (Status))
225 1.1.1.1.6.2 yamt {
226 1.1.1.1.6.2 yamt fprintf (stderr, "%s: Could not convert to a physical address\n",
227 1.1.1.1.6.2 yamt AcpiGbl_Optarg);
228 1.1.1.1.6.2 yamt exit (-1);
229 1.1.1.1.6.2 yamt }
230 1.1.1.1.6.2 yamt continue;
231 1.1.1.1.6.2 yamt
232 1.1.1.1.6.2 yamt case 's': /* Print table summaries only */
233 1.1.1.1.6.2 yamt
234 1.1.1.1.6.2 yamt Gbl_SummaryMode = TRUE;
235 1.1.1.1.6.2 yamt continue;
236 1.1.1.1.6.2 yamt
237 1.1.1.1.6.2 yamt case 'v': /* Revision/version */
238 1.1.1.1.6.2 yamt
239 1.1.1.1.6.2 yamt printf (ACPI_COMMON_SIGNON (AP_UTILITY_NAME));
240 1.1.1.1.6.2 yamt exit (0);
241 1.1.1.1.6.2 yamt
242 1.1.1.1.6.2 yamt case 'z': /* Verbose mode */
243 1.1.1.1.6.2 yamt
244 1.1.1.1.6.2 yamt Gbl_VerboseMode = TRUE;
245 1.1.1.1.6.2 yamt fprintf (stderr, ACPI_COMMON_SIGNON (AP_UTILITY_NAME));
246 1.1.1.1.6.2 yamt continue;
247 1.1.1.1.6.2 yamt
248 1.1.1.1.6.2 yamt /*
249 1.1.1.1.6.2 yamt * Table options
250 1.1.1.1.6.2 yamt */
251 1.1.1.1.6.2 yamt case 'a': /* Get table by physical address */
252 1.1.1.1.6.2 yamt
253 1.1.1.1.6.2 yamt ApInsertAction (AcpiGbl_Optarg, AP_DUMP_TABLE_BY_ADDRESS);
254 1.1.1.1.6.2 yamt break;
255 1.1.1.1.6.2 yamt
256 1.1.1.1.6.2 yamt case 'f': /* Get table from a file */
257 1.1.1.1.6.2 yamt
258 1.1.1.1.6.2 yamt ApInsertAction (AcpiGbl_Optarg, AP_DUMP_TABLE_BY_FILE);
259 1.1.1.1.6.2 yamt break;
260 1.1.1.1.6.2 yamt
261 1.1.1.1.6.2 yamt case 'n': /* Get table by input name (signature) */
262 1.1.1.1.6.2 yamt
263 1.1.1.1.6.2 yamt ApInsertAction (AcpiGbl_Optarg, AP_DUMP_TABLE_BY_NAME);
264 1.1.1.1.6.2 yamt break;
265 1.1.1.1.6.2 yamt
266 1.1.1.1.6.2 yamt default:
267 1.1.1.1.6.2 yamt
268 1.1.1.1.6.2 yamt ApDisplayUsage ();
269 1.1.1.1.6.2 yamt exit (-1);
270 1.1.1.1.6.2 yamt }
271 1.1.1.1.6.2 yamt
272 1.1.1.1.6.2 yamt /* If there are no actions, this means "get/dump all tables" */
273 1.1.1.1.6.2 yamt
274 1.1.1.1.6.2 yamt if (CurrentAction == 0)
275 1.1.1.1.6.2 yamt {
276 1.1.1.1.6.2 yamt ApInsertAction (NULL, AP_DUMP_ALL_TABLES);
277 1.1.1.1.6.2 yamt }
278 1.1.1.1.6.2 yamt
279 1.1.1.1.6.2 yamt return (0);
280 1.1.1.1.6.2 yamt }
281 1.1.1.1.6.2 yamt
282 1.1.1.1.6.2 yamt
283 1.1.1.1.6.2 yamt /******************************************************************************
284 1.1.1.1.6.2 yamt *
285 1.1.1.1.6.2 yamt * FUNCTION: main
286 1.1.1.1.6.2 yamt *
287 1.1.1.1.6.2 yamt * PARAMETERS: argc/argv - Standard argc/argv
288 1.1.1.1.6.2 yamt *
289 1.1.1.1.6.2 yamt * RETURN: Status
290 1.1.1.1.6.2 yamt *
291 1.1.1.1.6.2 yamt * DESCRIPTION: C main function for acpidump utility
292 1.1.1.1.6.2 yamt *
293 1.1.1.1.6.2 yamt ******************************************************************************/
294 1.1.1.1.6.2 yamt
295 1.1.1.1.6.2 yamt int ACPI_SYSTEM_XFACE
296 1.1.1.1.6.2 yamt main (
297 1.1.1.1.6.2 yamt int argc,
298 1.1.1.1.6.2 yamt char *argv[])
299 1.1.1.1.6.2 yamt {
300 1.1.1.1.6.2 yamt int Status = 0;
301 1.1.1.1.6.2 yamt AP_DUMP_ACTION *Action;
302 1.1.1.1.6.2 yamt UINT32 FileSize;
303 1.1.1.1.6.2 yamt UINT32 i;
304 1.1.1.1.6.2 yamt
305 1.1.1.1.6.2 yamt
306 1.1.1.1.6.2 yamt ACPI_DEBUG_INITIALIZE (); /* For debug version only */
307 1.1.1.1.6.2 yamt
308 1.1.1.1.6.2 yamt /* Process command line options */
309 1.1.1.1.6.2 yamt
310 1.1.1.1.6.2 yamt if (ApDoOptions (argc, argv))
311 1.1.1.1.6.2 yamt {
312 1.1.1.1.6.2 yamt return (-1);
313 1.1.1.1.6.2 yamt }
314 1.1.1.1.6.2 yamt
315 1.1.1.1.6.2 yamt /* Get/dump ACPI table(s) as requested */
316 1.1.1.1.6.2 yamt
317 1.1.1.1.6.2 yamt for (i = 0; i < CurrentAction; i++)
318 1.1.1.1.6.2 yamt {
319 1.1.1.1.6.2 yamt Action = &ActionTable[i];
320 1.1.1.1.6.2 yamt switch (Action->ToBeDone)
321 1.1.1.1.6.2 yamt {
322 1.1.1.1.6.2 yamt case AP_DUMP_ALL_TABLES:
323 1.1.1.1.6.2 yamt
324 1.1.1.1.6.2 yamt Status = ApDumpAllTables ();
325 1.1.1.1.6.2 yamt break;
326 1.1.1.1.6.2 yamt
327 1.1.1.1.6.2 yamt case AP_DUMP_TABLE_BY_ADDRESS:
328 1.1.1.1.6.2 yamt
329 1.1.1.1.6.2 yamt Status = ApDumpTableByAddress (Action->Argument);
330 1.1.1.1.6.2 yamt break;
331 1.1.1.1.6.2 yamt
332 1.1.1.1.6.2 yamt case AP_DUMP_TABLE_BY_NAME:
333 1.1.1.1.6.2 yamt
334 1.1.1.1.6.2 yamt Status = ApDumpTableByName (Action->Argument);
335 1.1.1.1.6.2 yamt break;
336 1.1.1.1.6.2 yamt
337 1.1.1.1.6.2 yamt case AP_DUMP_TABLE_BY_FILE:
338 1.1.1.1.6.2 yamt
339 1.1.1.1.6.2 yamt Status = ApDumpTableFromFile (Action->Argument);
340 1.1.1.1.6.2 yamt break;
341 1.1.1.1.6.2 yamt
342 1.1.1.1.6.2 yamt default:
343 1.1.1.1.6.2 yamt
344 1.1.1.1.6.2 yamt fprintf (stderr, "Internal error, invalid action: 0x%X\n",
345 1.1.1.1.6.2 yamt Action->ToBeDone);
346 1.1.1.1.6.2 yamt return (-1);
347 1.1.1.1.6.2 yamt }
348 1.1.1.1.6.2 yamt
349 1.1.1.1.6.2 yamt if (Status)
350 1.1.1.1.6.2 yamt {
351 1.1.1.1.6.2 yamt return (Status);
352 1.1.1.1.6.2 yamt }
353 1.1.1.1.6.2 yamt }
354 1.1.1.1.6.2 yamt
355 1.1.1.1.6.2 yamt if (Gbl_OutputFile)
356 1.1.1.1.6.2 yamt {
357 1.1.1.1.6.2 yamt if (Gbl_VerboseMode)
358 1.1.1.1.6.2 yamt {
359 1.1.1.1.6.2 yamt /* Summary for the output file */
360 1.1.1.1.6.2 yamt
361 1.1.1.1.6.2 yamt FileSize = ApGetFileSize (Gbl_OutputFile);
362 1.1.1.1.6.2 yamt fprintf (stderr, "Output file %s contains 0x%X (%u) bytes\n\n",
363 1.1.1.1.6.2 yamt Gbl_OutputFilename, FileSize, FileSize);
364 1.1.1.1.6.2 yamt }
365 1.1.1.1.6.2 yamt
366 1.1.1.1.6.2 yamt fclose (Gbl_OutputFile);
367 1.1.1.1.6.2 yamt }
368 1.1.1.1.6.2 yamt
369 1.1.1.1.6.2 yamt return (Status);
370 1.1.1.1.6.2 yamt }
371