On Mon, 22 Feb 2010 19:40:54 +0100, Jan Vanbrabant <vanbrabant...@gmail.com> wrote:
>***** CROSS-POSTED on TSO-REXX ***** > >Hi, > >I have a REXX program, calling an assembler pgm, via >Address LINKMVS "SBSY100" msg . > > >It executes fine ... a couple of times, >BUT after a while I get this abend: > >IEW4000I FETCH FOR MODULE DBINFPR FROM DDNAME STEPLIB FAILED BECAUSE >INSUFFICIENT STORAGE WAS AVAILABLE. >CSV031I LIBRARY ACCESS FAILED FOR MODULE DBINFPR , RETURN CODE 24, >REASON CODE 26080021, DDNAME STEPLIB >CSV028I ABEND106-0C JOBNAME=S783RPNG STEPNAME=G >$HASP375 S783RPNG ESTIMATED LINES EXCEEDED >IEA995I SYMPTOM DUMP OUTPUT 753 >SYSTEM COMPLETION CODE=106 REASON CODE=0000000C > TIME=19.22.34 SEQ=15296 CPU=0000 ASID=0045 > PSW AT TIME OF ERROR 070C1000 813C8F5E ILC 2 INTC 0D > NO ACTIVE MODULE FOUND > NAME=UNKNOWN > DATA AT PSW 013C8F58 - 8400181E 0A0D18FB 180C181D > AR/GR 0: 93B18D66/00001E00 1: 00000000/84106000 > 2: 00000000/26080021 3: 00000000/0000000C > 4: 00000000/00000014 5: 00000000/008FD6E8 > 6: 00000000/00892200 7: 00000000/0000000C > 8: 00000000/00892250 9: 00000000/013C9448 > A: 00000000/00000024 B: 00000000/00000014 > C: 00000000/00000000 D: 00000000/00892250 > E: 00000000/84106000 F: 00000000/0000000C > END OF SYMPTOM DUMP > > >It looks to me as if a new version gets loaded at each 'Address LINKMVS' . >How can I avoid this? >Is it possible one way or another to load that pgm just once under >REXX and then reuse each time that loaded copy? >Did't find anything under rexx to get at this?!? > >If not possible under rexx, should I look elsewhere? Any hint? > I believe that LINKMVS performs a LINK, which should load the module if necessary, and then delete it. Are you sure this isn't a problem in the module itself, where it allocates storage but then instead of cleaning up all the storage it allocates, it depends on task termination for the cleanup? With LINKMVS there's no subtask involved, and so no automatic cleanup. You could try ATTCHMVS instead. -- Walt Farrell ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
