On 21 Mar 2006 17:46:17 -0800, in bit.listserv.ibm-main [EMAIL PROTECTED] (Edward E. Jaffe) wrote:
>Tom Savor wrote: >> Ed wrote: >> >>> Tom Savor wrote: >>> >>>> Thanks to some enlightenment from Mr Rutledge, all my Assembler programs >>>> run AMODE(31), RMODE(ANY). >>>> 1). GETMAIN storage location as ANY. >>>> 2). Copy DCB to GETMAINed area >>>> 3). Open file as example: OPEN (FILE,(INPUT)),MODE=31 >>>> 4). Get File as example: GET FILE,AREA >>>> 5). Close file as example: CLOSE (FILE),MODE=31 >>>> >>>> >>> #1 above GETMAIN location should be "BELOW" or "24" -- not "31" or "ANY". >>> >> >> Sorry Ed, but the GETMAIN location is set to ANY. >> If the DSORG is PO, then I use BELOW for READ and WRITE processing of PDS. >> But for normal QSAM processing and my example, program is set to ANY. >> > >Then I must be confused about what it is you're doing with this GETMAIN. >DCBs must (MUST!) be below 16MB in all cases because, among other >things, the pointer to the DCB from the DEB is only three bytes long! >LOC=ANY implies 31-bit storage (though it *could* actually be satisfied >from 24-bit storage if 31-bit storage is exhausted -- very unlikely). We >_are_ talking about the *first* (or only) LOC= subparameter, right? The >second subparameter controls only the location of the real storage when >the page is fixed. Why the unprintable hasn't IBM extended the ACB to handle at least QSAM (and parenthetically allowed concatenation of ESDS and QSAM data sets)? To have to go through the aggravation of getting 24 bit storage in 2006 is one minor symptom for the mainframe not have good long term prospects. > >Naturally, the above has nothing whatsoever to do with the location of >your program. Your program can reside anywhere. > >-- >Edward E Jaffe >Phoenix Software International, Inc >5200 W Century Blvd, Suite 800 >Los Angeles, CA 90045 >310-338-0400 x318 >[EMAIL PROTECTED] >http://www.phoenixsoftware.com/ > >---------------------------------------------------------------------- >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
