On Mon, 26 Jun 2023 13:56:33 -0400, Mike Shaw wrote: >Lionel has a REXX exec handy for every purpose... ;-) > Subject to permission to copy, distribute, and credit.
>On Mon, Jun 26, 2023, 1:30 PM Lionel B. Dyck wrote: > >> You can run this exec to see what the limit is, assuming you don't have >> access to parmlib: >> It's bizarre that installations which deny access to PARMLIB would allow access to system memory. RFE for "MAXGENS=SYSLIMIT"? But suppose the OP needs more than that? >> /* ---------- rexx ------------- * >> * Get the current MAXGENS_LIMIT * >> * ----------------------------- */ >> NUMERIC DIGITS 10 >> CVT = C2D(Storage(10,4)) >> CVTDFA = C2D(Storage(D2X(CVT + 1216),4)) /* cvt + 4c0 */ >> DFAMGEN = C2D(Storage(D2X(cvtdfa + 76),4)) /* dfa + 4c */ >> say dfamgen -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
