Re: Are there compiler options to move Working Storage in Cobol above the line?
Gil, You are correct. I think AMODE(31), RMODE(24) and DATA(31), provided "RENT" is turned on. Otherwise, without RENT, then working storage would be loaded with the program, thus RMODE. Jerry -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Friday, January 25, 2019 3:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? On Fri, 25 Jan 2019 19:47:23 +, Edgington, Jerry wrote: > >For Cobol, the DATA parm determines where the work storage is loaded. >DATA(31) means it will attempt to loaded above the line. However, the program >must also be at least RMODE(31) or ANY. And if during the compile, there is >any modules still in 24 mode, then the entire module will be 24 mode. > >Everything in the loam module must be 31, along with the DATA(31) to be in 31 >mode. > Why the need for RMODE(31)? I'd expect AMODE(31) to suffice with RMODE(24). -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
On Fri, 25 Jan 2019 19:47:23 +, Edgington, Jerry wrote: > >For Cobol, the DATA parm determines where the work storage is loaded. >DATA(31) means it will attempt to loaded above the line. However, the program >must also be at least RMODE(31) or ANY. And if during the compile, there is >any modules still in 24 mode, then the entire module will be 24 mode. > >Everything in the loam module must be 31, along with the DATA(31) to be in 31 >mode. > Why the need for RMODE(31)? I'd expect AMODE(31) to suffice with RMODE(24). -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
Lizette, For Cobol, the DATA parm determines where the work storage is loaded. DATA(31) means it will attempt to loaded above the line. However, the program must also be at least RMODE(31) or ANY. And if during the compile, there is any modules still in 24 mode, then the entire module will be 24 mode. Everything in the load module must be 31, along with the DATA(31) to be in 31 mode. Jerry -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Friday, January 25, 2019 2:42 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? So everything looked fine, RENT, DATA(31), ALL31(off), RMODE(ANY) But after doing an AMBLIST on the application load module, there was one module in 24bit mode - everything else was 31. So as I understand it, if there is one 24bit module, then the entire process will run below the line including the working storage. Learned something new. Thank you every one Lizette > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Alan Young > Sent: Friday, January 25, 2019 1:00 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in > Cobol above the line? > > Also ask them to look at the file buffers. > > > If VSAM files are used, AMP='RMODE31=ALL' on each DD will move control > blocks and buffers above the line. > > > Check to see that files are not excessively buffered or if the > specified buffers can be reduced a bit to free storage. > > > On sequential DDs with low EXCP activity, try reducing buffers on > those with something lower than the system default like BUFNO=1, 2 or 3. > > > Alan > > > > From: "Savor, Thomas (Alpharetta)" > Sent: Thursday, January 24, 2019 20:25 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in > Cobol above the line? > > DATA(31) - allocates working storage above-the-line > DATA(24) - allocates working storage below-the-line > > ALL31 being OFF - is probably what is needed in a mixed environment. > ALL31 being ON - would say that you have no below-the-line programs > for COBOL to deal with. > > > Thanks, > > Tom Savor > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Lizette Koehler > Sent: Thursday, January 24, 2019 9:42 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in > Cobol above the line? > > So when I look at the compiler options, they have DATA(31) > > ALL31 in LE is OFF > > Only things I can think of for now. > > Lizette > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
So everything looked fine, RENT, DATA(31), ALL31(off), RMODE(ANY) But after doing an AMBLIST on the application load module, there was one module in 24bit mode - everything else was 31. So as I understand it, if there is one 24bit module, then the entire process will run below the line including the working storage. Learned something new. Thank you every one Lizette > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Alan Young > Sent: Friday, January 25, 2019 1:00 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in Cobol > above the line? > > Also ask them to look at the file buffers. > > > If VSAM files are used, AMP='RMODE31=ALL' on each DD will move control blocks > and buffers above the line. > > > Check to see that files are not excessively buffered or if the specified > buffers can be reduced a bit to free storage. > > > On sequential DDs with low EXCP activity, try reducing buffers on those with > something lower than the system default like BUFNO=1, 2 or 3. > > > Alan > > > > From: "Savor, Thomas (Alpharetta)" > Sent: Thursday, January 24, 2019 20:25 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in Cobol > above the line? > > DATA(31) - allocates working storage above-the-line > DATA(24) - allocates working storage below-the-line > > ALL31 being OFF - is probably what is needed in a mixed environment. > ALL31 being ON - would say that you have no below-the-line programs for COBOL > to deal with. > > > Thanks, > > Tom Savor > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Lizette Koehler > Sent: Thursday, January 24, 2019 9:42 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in Cobol > above the line? > > So when I look at the compiler options, they have DATA(31) > > ALL31 in LE is OFF > > Only things I can think of for now. > > Lizette > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
Also ask them to look at the file buffers. If VSAM files are used, AMP='RMODE31=ALL' on each DD will move control blocks and buffers above the line. Check to see that files are not excessively buffered or if the specified buffers can be reduced a bit to free storage. On sequential DDs with low EXCP activity, try reducing buffers on those with something lower than the system default like BUFNO=1, 2 or 3. Alan From: "Savor, Thomas (Alpharetta)" Sent: Thursday, January 24, 2019 20:25 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? DATA(31) - allocates working storage above-the-line DATA(24) - allocates working storage below-the-line ALL31 being OFF - is probably what is needed in a mixed environment. ALL31 being ON - would say that you have no below-the-line programs for COBOL to deal with. Thanks, Tom Savor -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, January 24, 2019 9:42 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? So when I look at the compiler options, they have DATA(31) ALL31 in LE is OFF Only things I can think of for now. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
On Thu, 24 Jan 2019 19:41:43 -0700, Lizette Koehler wrote: >So when I look at the compiler options, they have DATA(31) > >ALL31 in LE is OFF > >Only things I can think of for now. > >Lizette The DATA option only applies if RENT is also specified. The COBOL RMODE option can also affect where a COBOL program is loaded. If RMODE is set to AUTO and RENT is specified, then RMODE is ANY, (DATA option would also be in effect). If RMODE is set to AUTO and NORENT is specified, then RMODE is set to 24. RMODE can also be explicitly set to ANY or 24. And of course, if other programs are included at Link Edit/Bind time that are set to RMODE 24, then the resulting Load Module would be RMODE 24 regardless of the COBOL RMODE setting. -- Dale R. Smith -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
DATA(31) - allocates working storage above-the-line DATA(24) - allocates working storage below-the-line ALL31 being OFF - is probably what is needed in a mixed environment. ALL31 being ON - would say that you have no below-the-line programs for COBOL to deal with. Thanks, Tom Savor -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, January 24, 2019 9:42 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? So when I look at the compiler options, they have DATA(31) ALL31 in LE is OFF Only things I can think of for now. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
So when I look at the compiler options, they have DATA(31) ALL31 in LE is OFF Only things I can think of for now. Lizette > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Steve Thompson > Sent: Thursday, January 24, 2019 7:10 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Are there compiler options to move Working Storage in Cobol > above the line? > > DATA(24) may be their problem. But, you can’t change it if csects are > statically linked that are RMODE 24. > > I’m fixing some issues like this now for ENT COBOL 4.2 where I work. The > routines are ALC. > > Sent from my iPhone — small keyboarf, fat fungrs, stupd spell manglr. Expct > mistaks > > > > On Jan 24, 2019, at 8:06 PM, Lizette Koehler > wrote: > > > > A friend of mine is having a bit of problem with a Cobol program. WS > > is about 7M in size below the line. This creates the perfect > > environment for S878-10 abends. > > > > Is there a compiler option that would move WS above the line? Or is > > there a different solution. If there is an option, what level of > > Cobol did it show up in? > > > > > > No, I do not know what they are doing. But I am told they cannot > > change the code. > > > > Thanks > > > > > > > > Lizette Koehler > > statistics: A precise and logical method for stating a half-truth > > inaccurately > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
DATA(24) may be their problem. But, you can’t change it if csects are statically linked that are RMODE 24. I’m fixing some issues like this now for ENT COBOL 4.2 where I work. The routines are ALC. Sent from my iPhone — small keyboarf, fat fungrs, stupd spell manglr. Expct mistaks > On Jan 24, 2019, at 8:06 PM, Lizette Koehler wrote: > > A friend of mine is having a bit of problem with a Cobol program. WS is about > 7M in size below the line. This creates the perfect environment for S878-10 > abends. > > Is there a compiler option that would move WS above the line? Or is there a > different solution. If there is an option, what level of Cobol did it show up > in? > > > No, I do not know what they are doing. But I am told they cannot change the > code. > > Thanks > > > > Lizette Koehler > statistics: A precise and logical method for stating a half-truth inaccurately > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
Use DATA(31) Thanks, Tom Savor -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Doug Sent: Thursday, January 24, 2019 8:32 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Are there compiler options to move Working Storage in Cobol above the line? What version of COBOL? . On Jan 24, 2019, at 20:06, Lizette Koehler wrote: A friend of mine is having a bit of problem with a Cobol program. WS is about 7M in size below the line. This creates the perfect environment for S878-10 abends. Is there a compiler option that would move WS above the line? Or is there a different solution. If there is an option, what level of Cobol did it show up in? No, I do not know what they are doing. But I am told they cannot change the code. Thanks Lizette Koehler statistics: A precise and logical method for stating a half-truth inaccurately -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Are there compiler options to move Working Storage in Cobol above the line?
What version of COBOL? . On Jan 24, 2019, at 20:06, Lizette Koehler wrote: A friend of mine is having a bit of problem with a Cobol program. WS is about 7M in size below the line. This creates the perfect environment for S878-10 abends. Is there a compiler option that would move WS above the line? Or is there a different solution. If there is an option, what level of Cobol did it show up in? No, I do not know what they are doing. But I am told they cannot change the code. Thanks Lizette Koehler statistics: A precise and logical method for stating a half-truth inaccurately -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
