Fred, Do you happened to have an example of the Assembler Code? I want to build something similar , with the Assembler being a message table...
Regards, Scott On Saturday, December 12, 2015, Fred van der Windt < [email protected]> wrote: > 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! >
