RE: [open-cobol-list] RE: COBOL Pgms

[William M. Klein]

As I indicated in a previous note, I don't know exactly what SHOULD happen
when you have something like

Call "whatever" using "alphanumeric-literal" ws-item.

I *think* the literal should be passed BY CONTENT (implicitly) - but then
should that be "transitive" to the 2nd argument or not?  If you coded

  Call "whatever" using BY CONTENT "alphanumeric literal" ws-item

Then WS-ITEM would ALSO be passed by content.  If the literal were a numeric
literal, should it be passed by CONTENT or by VALUE?

The 2002 ISO Standard *does* allow for passing of literals but ONLY when a
program-prototype is used (which tells you what type of BY to use).

PERSONALLY, I would suggest that passing any literal - not BY CONTENT or BY
VALUE - should be disallowed (until/unless call prototypes are added).

AGAIN, this has nothing to do with maintaining of addressability across
CALLs. 

-----Original Message-----
From: address@hidden
[mailto:address@hidden On Behalf Of Robert
Sherry
Sent: Friday, November 18, 2005 1:49 PM
To: address@hidden
Cc: address@hidden
Subject: [open-cobol-list] RE: COBOL Pgms

William,

    You are right and I need to apologize for saying that the program
compiled on the IBM Mainframe. I am not an MVS person, but I have an
associate is. I asked him to compile and run the program for me which he
did. When he did this, the program did not compile. Hence he added an item
in working storage so that it would compile. I just found this out. However,
the original program does compile with the Open Source COBOL Compiler.

Bob Sherry

-----Original Message-----
From: William M. Klein [mailto:address@hidden
Sent: Friday, November 18, 2005 3:17 PM
To: 'Robert Sherry'
Cc: address@hidden
Subject: RE: COBOL Pgms

The attached program was NOT identical to what was originally posted.  It
passes a Working-Storage item as the first argument *not* an alphanumeric
literal.  This makes MUCH more sense to me.

Again, this has NOTHING to do with retaining addressability to linkage
section items between CALLs - but does mean that program with

  CALL "whatever" Using "alphanumeric literal"

Are NOT valid for IBM compilers (at least not as shown by this program).

Thanks for running the test. 

________________________________

From: Robert Sherry [mailto:address@hidden
Sent: Friday, November 18, 2005 7:50 AM
To: address@hidden
Cc: address@hidden
Subject: FW: COBOL Pgms



William,

 

      Here is the information you requested.

 

Bob Sherry





-------------------------------------------------------
This SF.Net email is sponsored by the JBoss Inc.  Get Certified Today
Register for a JBoss Training Course.  Free Certification Exam
for All Training Attendees Through End of 2005. For more info visit:
http://ads.osdn.com/?ad_id=7628&alloc_id=16845&op=click
_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list