IBM AS/400 manual Using a Program Error Subroutine, spec

Using a Program Error Subroutine

To handle a program error or exception you can write a program error (*PSSR). When a program error occurs:

1. The program status data structure is updated.

2. If

an indicatornot specifiedis

in

positions

73 and 74 for the operation

error

is

handled and

control

is

transferred

to

the *PSSR.

You

can

explicitly

transfer

control

to

a program error subroutine af

by

specifying

*PSSR

after the

keyword

INFSR

on

the

File

Description

tions.

You can code a *PSSR

for any (or all) procedures

in

the

module.

Each

local to

the

procedure

in

which

it

is coded.

To add

a

*PSSR

error

subroutine

to

your

program, you do the following

1. Optionally

identify

the

program

status

data

structure

(PSDS) by

spec

in

position

23

of

the

definition

specification.

2. Enter

a

BEGSR

operation

with

a

Factor

1 entry

of

*PSSR.

3.Identify a return point, if any, and code it on the ENDSR operat routine. For subprocedures, factor 2 must be blank. For a discussio valid entries for Factor 2, see “Specifying a Return Point in the E Operation” on page 237.

4.Code the rest of the program error subroutine. Any of the ILE R

operations	can be used in	the program	error		subroutine.	The ENDSR o
must be the last specification for the				program error subroutine.
Figure 112 on	page 233 shows	an example	of	a	program error	subroutine
main procedure.

232 ILE RPG for AS/400 Programmer's Guide