On Sun, 27 Dec 2009 10:01:32 -0500, Charles Mills wrote:
>
>- Yes, I'm clear on the difference between the restrictions imposed by PARM=
>(one parm, 100 chars), TSO (a tendency to convert to U/C, and yes, I agree
>with gil, over-compensating by converting to l/c when ASIS is specified is
>just brain dead), ISPF (a tendency to convert to u/c), and C argv (only one
>parm, possibly parsed into words).
>
Notwithstanding that TFM clearly describes "converting to l/c when
ASIS is specified", and Sam's insistence that this is done neither
by LE nor by CRTL, I can uncover no example where TSO CALL does
this, using ASMA90 as a test program. I'm not much motivated to
experiment by writing a C program? Has any other reader seen this
happen? Is another option needed, to suppress that conversion?
Blessedly, JCL is so antiquated that it makes no effort to implement
case-insensitivity. With luck, it may never happen, not in the brain
dead style of Binder.
>- Thank you especially for the suggestion of the __R1 macro. That seems to
>do the job. It may have to go in the main program -- I had problems with
>putting it in a downstream function, but I moved it to main() and did not
>fully pursue getting it to work outside of main. Its companion __osplist or
>whatever it was called looked promising also ...
>
I got curious:
u...@3mvs:141$ grep __.*plist /usr/include/stdlib.h /dev/null
/usr/include/stdlib.h: #ifndef __sysplist
/usr/include/stdlib.h: #define __sysplist_i 12
/usr/include/stdlib.h: #define __sysplist ( (void * const *) \
/usr/include/stdlib.h: *((void ** const)
(*(__gtab(__sysplist_i))) ) )
/usr/include/stdlib.h: #define __R1 ((void *) *((void **)
(*(__gtab(__sysplist_i)))))
/usr/include/stdlib.h: #define __osplist ( (void **) __R1)
/usr/include/stdlib.h: #endif /* __sysplist */
u...@mvs:138$ grep _Gtab `find /usr/include -print -name IBM -prune`
/usr/include/stdlib.h: #define __gtab(x) _Gtab(x)
/usr/include/stdlib.h: #pragma linkage(_Gtab, builtin)
/usr/include/stdlib.h: void **_Gtab(int);
So __osplist is merely a cast of __R1.
-- gil
----------------------------------------------------------------------
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
