CBL_CREATE_CORE

This routine is supported in native COBOL only. Enables a COBOL program to invoke a core dump on demand (that is, without encountering a run-time error).

Syntax:

call "CBL_CREATE_CORE" using by value     flags
                             by value     core-param
                             by reference filename
                             returning    status-code

Parameters:

	Using call prototype (see Key)	Picture
`flags`	cblt-x4-comp5.	pic x(4) comp-5.
`core-param`	cblt-x4-comp5.	pic x(4) comp-5.
`filename`		pic x(`n`).
`status-code`	See Library Routines - Key

On Entry:

flags

Must be set to zero, which indicates that a core file will be produced.

core-param

Sets the process ID for which to create a core file. A value of zero creates a core file from the current process. If you specify a value other than zero, that running process must be owned by the same user as owns the calling process.

filename

This is a null-terminated string representing the name of the core file.

You can specify the following strings within the filename, which will be substituted when the core file is created.

%%: Single %
%d: The date when the core dump was produced, in the format yyyymmdd
%f: The basename of the program for which the core dump was produced
%p: The process ID of the program for which the core dump was produced
%t: The time when the core dump was produced, in the format hhmmss

If a filename is not supplied (that is, this parameter is set to a NULL pointer), then the core_filename tunable value is used for the name of the file. If that tunable is not set either, the filename defaults to a platform default of cblcore.

On Exit:

status-code

status-code	Meaning
0	Success
1	Bad command line
2	Invalid process ID
3	Need to enable full core support
4	Not supported on this platform
5	Cannot execute OS core dump command
6	Cannot create core file
7	Invalid core file produced

Examples:

The following example will create a core file for the current process. The file will be called "myDump":

01 flags pic x(4) comp-5 value 0. 
01 process pic x(4) comp-5 value 0. 
01 filename pic x(7) value "myDump" & x"00". 
call "CBL_CREATE_CORE" using by value flags 
                             by value process    
                             by reference filename.

This example will create a core file for COBOL application running in a separate process, though started by the same user, with process id 18655, called "myDump.18655":

01 flags pic x(4) comp-5 value 0. 
01 process pic x(4) comp-5 value 18655. 
01 filename pic x(100) value "myDump.%p" & x"00".
call "CBL_CREATE_CORE" using by value flags 
                             by value process 
                             by reference filename.