The following SQL-invoked procedure, GET_PROC_AREA, writes any supplied message in a global area. The contents of the global area are shown when no input is supplied. The procedure definition is given next:
CREATE PROCEDURE DEFJE01.GET_PROC_AREA
( IN_AREA CHARACTER (25),
GLOBAL_AREA CHARACTER (25)
)
EXTERNAL NAME GETPAREA
PROTOCOL ADS
SYSTEM MODE
LOCAL WORK AREA 0
GLOBAL WORK AREA 25 KEY GGLA
;
|
Copyright © 2014 CA.
All rights reserved.
|
|