On Wed, 16 Aug 2023 13:44:34 +0000, Seymour J Metz wrote:
>What the called program can do depends on the caller. The PARM might be in R/O
>storage.
>
Irrelevant pedantry. I hope that my explicit qualification, "as an Assembler
program might"
precludes cases in which the PARM is in R/O storage, not addressable, etc.
>The Initiator does not pass a 64-bit PARM.
>
That's a horrible misdesign. It introduces a persistent incompatibility
between CALL/LINK/ATTACH and EXEC PGM=.
Regardless of the difficulty of sussing the AMODE of the PGM, the
initiator should have done so. Second choice would be to add an
option to EXEC indicating the AMODE of the PGM.
________________________________________
From: Paul Gilmartin
Sent: Wednesday, August 16, 2023 9:18 AM
PARM is uniformly passed to a program by reference:
R1 -> x'80000000' + -> halfword length || parameter string
If a COBOL program is called by a program other than Initiator, can
it modify that parameter string as an Assembler program might to
return a value to the caller?
(If a program is marked AMODE 64, does Initiator pass a 64-bit PLIST?)
--
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
