OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

CBLDCRPC('GETSVPRI') - Reference the schedule priority of a service request

Format

PROCEDURE DIVISION specification

CALL  'CBLDCRPC'  USING  unique-name-1

DATA DIVISION specification

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

Description

CBLDCRPC('GETSVPRI') references that schedule priority of a service request which was set by CBLDCRPC('SETSVPRI'). The value obtained by CBLDCRPC('GETSVPRI') remains unchanged until the UAP calls CBLDCRPC('SETSVPRI') again.

CBLDCRPC('GETSVPRI') returns the default value (4) to data-name-C in the following cases:

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'GETSVPRI' for the request code indicating that the schedule priority of the service request be referenced.

Data areas whose values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

data-name-C

The schedule priority is returned in a range from 1 to 8.

Status codes

Status code Explanation
00000 Normal termination.
00301 The value specified for the data-name is invalid.
This error also occurs if the request code (data-name-A) is invalid.
Other than the above An unprecedented error (e.g., program damage) occurred.