Sure! One more thing - the LE stack must say BELOW for the parameter list [pointed by R1] to be accessible by the AMODE24 routine
E.g. STACK(131072,131072,BELOW,KEEP,524288,131072) On Thu, 14 Jul 2011 11:28:07 -0400, Barkow, Eileen <[email protected]> wrote: >Maybe ALL31(OFF) would be the simplest thing to use - >Although the programmers may not be looking for the simplest solution. > >Thanks for this info Victor > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of >Victor Gil >Sent: Thursday, July 14, 2011 11:18 AM >To: [email protected] >Subject: Re: running Assembler I/O macro code as AMODE 31, RMODE ANY > >Just wanted to add a bit to Peter's advice - > >The LE option ALL31(OFF) instructs [or at least used to] LE to perform AMODE >switching on every dynamic call, AND also to allocate the COBOL EXTERNAL data >in storage BELOW the line. > >So, if you define something like this > >001100 01 BELOW EXTERNAL. >001200 05 AMODE24-PARM-1 PIC X(08). >001200 05 AMODE24-PARM-2 PIC X(44). > ... > >the called AMODE24 program should have no problems accessing these PARMs. > >HTH, >-Victor- > >---------------------------------------------------------------------- >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 ---------------------------------------------------------------------- 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
