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