You don't really need any code in the loadmodule at all, it only needs to
contain the table (preceded a header that contains things like the table
length, row length or whatever you need. Than you can do:
WORKING-STORAGE SECTION.
01 FNC-PTR FUNCTION-POINTER.
01 PTR REDEFINES FNC-PTR POINTER.
LINKAGE SECTION.
01 TBL.
03 TBL-HDR.
:
03 TBL-DAT.
:
PROCEDURE DIVISION.
SET FNC-PTR TO ENTRY 'tablename'
SET ADDRESS OF TBL TO PTR
You can also use the SET TO ENTRY statement to dynamically load a table that is
in a separate load module.
Fred!
