IDMS does not require DATA(24), although for years they shipped required link time modules as AMODE 24 RMODE 24 and you had to override the linkage editor. We got around it my "fixing" the module inhouse. I think the name is IDMSCANC. They may also have some old subroutine that is AMODE 24 which will generally force every thing below the line.
Isn't there a AMP parm to put the VSAM buffers above the line? also Harold ----- Original Message ----- From: "Farley, Peter x23353" <[EMAIL PROTECTED]> Newsgroups: bit.listserv.ibm-main To: <IBM-MAIN@BAMA.UA.EDU> Sent: Wednesday, November 09, 2005 2:13 PM Subject: Re: COBOL Program exhausting below the line storage With such a current compiler release, just recompiling with the COBOL option DATA(31) should put your working storage above the line. Unless your IDMS requires DATA(24), in which case you have no choice but to reduce the number of buffers assigned to each QSAM file (remember, system default is 5 buffers if you don't specify the BUFNO parameter in your JCL). Or, if some of your QSAM files have large BLKSIZE and others are small, reduce the largest ones first (consider using BUFNO=2 or 3). If they are all large (e.g., half-track blocksize 27998 or close to it), reduce all of them to a comfortable number of buffers. Reducing buffer count *may* affect performance, or not, depending on DASD caching, etc. HTH Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 09, 2005 1:35 PM To: IBM-MAIN@BAMA.UA.EDU Subject: COBOL Program exhausting below the line storage Compiler: PP 5655-G53 IBM Enterprise COBOL for z/OS and OS/390 3.2.0 We have a LARGE COBOL application program that is exhausting below the line storage and abending. There are 16 QSAM files and an IDMS Database. Sub Pool 0 (File Buffers 1.5meg) and Sub Pool 2 (Working Storage 2meg) are using about 3.5meg total Are there any easy tricks to make the entire program run above the line? Or will we simply have to reduce file buffer sizes (Blocking Factor) and reduce Working Storage array sizes? _ This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html