Elardus, Man , very funny joke my friend. Bernd I think so of the older ways work very well and always have. I think new ideas are great , but no substitute for critical thinking and experience. I am self-taught in C , so I am learning as I go along. I want to work on my Linux system eventually. Love Linux, much like VM, that I spent a lot of time on.
Regards, Scott On Friday, March 20, 2015, Bernd Oppolzer <[email protected]> wrote: > In our old insurance math system, based on ASSEMBLER, we had lots of > read only tables, which were implemented as load modules like this. The > modules > that used this modules, LOADed them and looked up the information in the > modules > based on the address in register 0 returned by LOAD. > > When implementing the new math system in C, we took a slightly modified > approch: > the table modules now had large static const array with init values, and > they contained > a small function, which did a binary search on this tables, so the > function delivered the > needed values based on keys passed as parameters. The modules now are > "normal" > C functions. But from a functional point of view, it is almost the same. > > In a sense, the old approach was smarter, because the binary search had to > be coded > only once ... with the new approach, every table module contains the > binary search logic ... > but that does no great harm, because the table modules are generated, and > the code > is not very large. > > Kind regards > > Bernd > > > > Am 20.03.2015 um 13:16 schrieb Scott Ford: > >> Elardus, >> >> Ty my friend, I worked in manufacturing for awhile we had an external >> table >> like this we loaded into CICS. Those were the days of macro CICS. >> >> Thanks my friend. >> >> Regards, >> >> Scott >> >> On Friday, March 20, 2015, Elardus Engelbrecht < >> [email protected]> wrote: >> >> Elardus Engelbrecht wrote: >>> >>> I have the same thing which Charles Mills kindly described. Load a mod >>>> >>> with data and play with it. >>> >>> In my case, I inherited an ancient IEFUJI exit. That thing loads a >>>> module >>>> >>> residing in a linklist library which contains only a list of approved >>> accounting codes allowed to be used. >>> >>> As promised here is it (As you can see it was ancient stuff... ;-D ): >>> >>> This load a mod and use R4 as a base to loop the table. >>> >>> A00UJI EQU * >>> LOAD EP=SSPACTCD >>> LR R4,R0 SAVE EP ADDR >>> A00LOOP EQU * >>> CLC 0(5,R4),PROJECT IS THERE A MATCH ? >>> BE A00SPEC YES >>> CLC 0(5,R4),=C'FFFFF' END OF TABLE >>> BE A00INV2 NO >>> LA R4,8(,R4) SCAN THROUGH TABLE >>> B A00LOOP NEXT ENTRY >>> .... >>> A00INV2 EQU * >>> WTO 'IEFUJI04 NOT REGISTERED CONTACT SYSTEMS' >>> ... >>> BAL R10,A00DELEP >>> LA R15,4 4 CANCEL JOB PROCESSING >>> B A00EXIT >>> A00SPEC EQU * >>> BAL R10,A00DELEP 0 >>> LA R15,0 CONTINIUE >>> B A00EXIT >>> A00DELEP EQU * >>> DELETE EP=SSPACTCD >>> BR R10 >>> ... >>> PROJECT DS CL5 >>> >>> Table linked in Linklib as RENT. >>> >>> SSPACTCD CSECT >>> DS 0F >>> DC CL8'ABCDE' >>> ... >>> DC CL8'FFFFF' END >>> END >>> >>> Groete / Greetings >>> Elardus Engelbrecht >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to [email protected] <javascript:;> with the message: >>> INFO IBM-MAIN >>> >>> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> >> > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
