RE: [open-cobol-list] minor pointer problem

[William M. Klein]

Just FYI,

>From (IBM Enterprise COBOL):
  http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR20/6.2.10


"Data items defined with USAGE POINTER are converted to an external decimal
number that has an implicit PICTURE clause of PIC 9(10)."

But from the ISO 2002 Standard (Page 435), SR(1)

"Identifier-1 shall not reference a data item of class object or class
pointer."

  ***

I haven't checked out Micro Focus, but my guess is that it works like the
IBM mainframe compiler. 


> -----Original Message-----
> From: address@hidden 
> [mailto:address@hidden On 
> Behalf Of David Korn
> Sent: Friday, July 23, 2004 2:33 PM
> To: address@hidden
> Cc: address@hidden
> Subject: [open-cobol-list] minor pointer problem
> 
> 
> The following program gets an exception.  Shouldn't it output 0?
> 
> ================cut here===================
>        IDENTIFICATION DIVISION.
>        PROGRAM-ID. PROG29.
>        DATA DIVISION.
>        WORKING-STORAGE SECTION.
>        LINKAGE SECTION.
>        01  LK-NAME-PTR                POINTER.
>        PROCEDURE DIVISION.
>            DISPLAY 'LK-NAME-PTR=' LK-NAME-PTR
>            GOBACK.
> ================cut here===================
> 
> David Korn
> address@hidden
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by BEA Weblogic Workshop
> FREE Java Enterprise J2EE developer tools!
> Get your free copy of BEA WebLogic Workshop 8.1 today.
> http://ads.osdn.com/?ad_id=4721&alloc_id=10040&op=click
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list
>