Oce PRISMAproduction - Os;390 (Mvs); Irxfloc

Maintenance
U20944-J-Z247-6-7600
OS/390 (MVS)
IRXFLOC
This modules defines the external functions that are called by the central REXX ROUTER
program, which is defined as a local function package. The supplied IRXFLOC is the
standard REXX module with the required external functions for ROUTER.
IRXFLOC CSECT ,
IRXFLOC AMODE 31
IRXFLOC RMODE ANY
TITLE 'IRXFLOC - REXX LOCAL FUNCTION PACKAGE DIRECTORY '
DC CL8'IRXFPACK' /* INITIALIZE THE ID FIELD */
DC FL4'24' /* LENGTH OF HEADER */
DC FL4'7' /* NUMBER OF FUNCTIONS IN PACK. */
DC FL4'0' /* RESERVED FIELD */
DC FL4'32' /* LENGTH OF EACH FUNC. ENTRY */
*
DC CL8'PPRL01' /* PP/ROUTER LI INTERFACE ROUT. */
DC V(PPRL01) /* LOAD ADDRESS OF FUNCTION */
DC FL4'0' /* RESERVED */
DC CL8'PPRL01' /* INITIALIZE THE ID FIELD */
DC CL8' ' /* RESERVED */
*
DC CL8'PPRPDSB' /* PP/ROUTER LI INTERFACE ROUT. */
DC V(PPRPDSB) /* LOAD ADDRESS OF FUNCTION */
DC FL4'0' /* RESERVED */
DC CL8'PPRPDSB' /* INITIALIZE THE ID FIELD */
DC CL8' ' /* RESERVED */