Never mind, just noticed that that point had already been made. Sent from my iPhone
> On May 20, 2017, at 12:54 PM, Charles Mills <[email protected]> wrote: > > Is my understanding correct? > > - the call from COBOL to assembler is dynamic; that is, the assembler > programs are separately linkedited AMODE/RMODE 24. > - the assembler programs contain hard-coded DCB, OPEN, GET/PUT, etc. > > If so, yes, if you call from COBOL to assembler the I/O should all work. > > If you pass parms from COBOL to assembler you are going to have a problem in > that the data may be above the bar, and the assembler program has no way of > addressing it. Ditto for any save area, for that matter. You need to code and > link the assembler programs RMODE 24/AMODE 31. > > An alternative approach is to make the assembler code all 31-bit but do a > GETMAIN for 24-bit storage and copy the DCB into that storage and OPEN it > there. A little more to it than that; follow up if interested in this > approach. Has the advantage of facilitating reentrance. > > Charles > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of scott Ford > Sent: Saturday, May 20, 2017 11:25 AM > To: [email protected] > Subject: Cobol-calling-Asembler and 24bit mode > > ALL: > > I have a STC in Cobol running with these compile options: > > CBL NOC(E),FLAG(W),DATA(31),NODYN,RES,RENT,MAP,SSR > CBL NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST > > we link as : > > MODE AMODE(31),RMODE(ANY) > > So my question is we call assembler programs using I/O to QSAM with > ADMODE(24) and RMODE(24), is my assumption correct that the I/O and buffers > of the called assembler routine will be below the 16m line ? If so is there a > way , I know you can re-alloc the DCB buffers above the line but part of the > DCB definitions must be below the line. > > I have a copy of the Share presentation on Trimodal Programming by the great > John Ehrman. I could a routine or process like he shows. My issue is the > amount of data...300000 x 80bytes ... > > All comments are helpful and appreciated. > > Regards, > > *IDMWORKS* > > Scott Ford > > z/OS Dev. > > > > > “By elevating a friend or Collegue you elevate yourself, by demeaning a > friend or collegue you demean yourself” > > > > www.idmworks.com > > [email protected] > > Blog: www.idmworks.com/blog > > > > > > > *The information contained in this email message and any attachment may be > privileged, confidential, proprietary or otherwise protected from disclosure. > If the reader of this message is not the intended recipient, you are hereby > notified that any dissemination, distribution, copying or use of this message > and any attachment is strictly prohibited. If you have received this message > in error, please notify us immediately by replying to the message and > permanently delete it from your computer and destroy any printout thereof.* > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
