Charles, Thank you ..I am looking at the pdf you sent ...excellent ...
On Sat, May 20, 2017 at 3: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 > -- *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
