ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Section for use
All
Syntax
PROCESS_PROC ProcedureName
Description
This instruction calls the procedure whose name ProcedureName is specified after the instruction.
The procedure must have been defined in the model; see the BEGIN_PROCEDURE and END_PROCEDURE instructions above.
Important note: For the users who generate RPG: use of the *PSSR reserved word is allowed (PROCESS_PROC *PSSR).
This is a routine for working with program errors detected at execution; see the corresponding IBM manuals for more details on the use of the *PSSR subprogram.
Example
CHAIN ITEM
IF ITEM EXISTS
TABLE_VALUE = TAX_CODE
PROCESS_PROC CPRICE
ELSE
TABLE_VALUE = '000'
PROCESS_PROC CPRICE
END
PROCESS_PROC ENDPGM
*
BEGIN_PROCEDURE CPRICE
TABLE_KEY = 'TAX'
CHAIN TABLE_FILE
TOTAL_PRICE = ( ITEM_PRICE * QTY - DISCOUNT ) * TAX_RATE
TOTAL_AMOUNT = TOTAL_AMOUNT + TOTAL_PRICE
END_PROCEDURE
*
BEGIN_PROCEDURE ENDPGM
CHAIN STATISTIC
TOTAL = TOTAL_AMOUNT
UPDATE STATISTIC
END_PROCEDURE
See also the list of 4GL instructions by topic