Peter: The reason I asked was that we have been running this STC for a long time in Cobol with AMODE(31), RMODE(ANY) and it was performing calls to Assembler modules, these modules are AMODE(24),RMODE(24) and were performing I/O to QSAM files apparently with no issues. But in all our cases nothing is passed. A file is built and the Assembler sub-program returns back to the caller. We read the file , etc. In our case we built socket messages ..
Part of the reason for my question is that if i wanted to run the Assembler programs as AMODE(31), RMODE(31) i know i can re-locate the DCBS above the line. I have several examples. But isnt still some of the DCB control blocks below the line ? If not can you be so kind as to explain the difference... Thank You Scott On Thu, Dec 22, 2016 at 8:39 AM, Peter Relson <[email protected]> wrote: > <snip> > I think i am right in saying that RMODE(ANY) sees the program with > RMODE(24) and > its ok to execute and the I/O buffers are they 24bit or 31.... > </snip> > > It seems unlikely that the calling program pays any attention to the RMODE > of anything that it calls. > > It is up to the caller to meet the requirements of the callee. If the > callee is AMODE 24, then it would be expected that any data passed from > the caller to the callee be below 16M. That includes save area and > parameter list. > > Does COBOL actually have any support for AMODE-switching calls? > > If this was assembler, and you were an AMODE 31 program and you LINKed to > some other program via LINKX, you would need to know the AMODE of that > program in order to accommodate its needs. This is a reason that LINKing > to an AMODE 64 program is not accepted unless you have told LINKX > AMODE64OK=YES which to some extent is intended to let you acknowledge that > you have provided a 144-byte save area (or whatever the potentially AMODE > 64 routine might need in order to save registers). > > Peter Relson > z/OS Core Technology Design > > > ---------------------------------------------------------------------- > 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
