CBLDCPRF('PRFGETN ') - Report the sequential number for an acquired performance verification trace

OpenTP1 Version 7 Programming Reference COBOL Language

CBLDCPRF('PRFGETN ') - Report the sequential number for an acquired performance verification trace

Format

PROCEDURE DIVISION specification

CALL 'CBLDCPRF' USING unique-name-1 unique-name-2

DATA DIVISION specification

01 unique-name-1.
   02 data-name-A  PIC X(8) VALUE 'PRFGETN '.
   02 data-name-B  PIC X(5).
   02 FILLER      PIC X(3).
   02 data-name-Z  PIC S9(9) COMP VALUE ZERO.
 
01 unique-name-2   PIC 9(4) COMP.

Description

CBLDCPRF('PRFGETN ') reports the acquired sequential trace number within the process of the latest performance verification trace (prf trace) acquired before the program was called. It reports this information to the CBLDCPRF('PRFGETN ') call source.

If no performance verification trace has been acquired in the process that called CBLDCPRF('PRFGETN '), the acquired sequential trace number within the process is 0.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'PRFGETN [Figure] ' for the request code indicating report the sequential number for an acquired performance verification trace.

data-name-Z

Specify 0.

Data areas to which values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

unique-name-2

The sequential number for an acquired performance verification trace is returned.

Status codes

Status code	Explanation
00000	Normal termination.
04601	The value specified for the data name is invalid. This status code includes cases in which the request code (data-name-A) is invalid.