1 03/31/83  print_cobol_error_
 2 
 3 
 4 Entry points in print_cobol_error_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: print_cobol_error_:  02/08/83  print_cobol_error_
 9 
10 
11 Function: allows the COBOL programmer to display the cause and
12 location of a runtime error.  It is meaningful only when called from
13 within a USE procedure in the DECLARATIVE section of a COBOL program.
14 The error information displayed pertains to the error causing the
15 current execution of the USE procedure.  This is identical to the
16 messages that would have been printed on the terminal before aborting
17 the program (i.e., signalling the "error" condition) had no USE
18 procedure been provided.
19 
20 The print_cobol_error_ entry point displays the error information
21 through the user_output I/O switch.
22 
23 
24 Syntax:
25 call "print_cobol_error_".
26 
27 
28 :Entry:  switch:  02/08/83 print_cobol_error_$switch
29 
30 
31 Function:  This entry point outputs the error information to a
32 specified I/O switch.
33 
34 
35 Syntax:
36 01 switch-name pic x(32).
37 call "print_cobol_error_$switch" using switch-name.
38 
39 
40 Arguments:
41 switch-name
42    is the name of an I/O switch that is open for output.  (Input) This
43    includes user_output and error_output, as well as the I/O switch
44    associated with any open external COBOL file, i.e., the
45    internal-file-name as specified in the SELECT clause of the
46    ENVIRONMENT DIVISION.