Re: [open-cobol-list] PIC not allowed

[Bill Klein]

What does COMP-1 mean to your compiler?  As others have pointed out, in OC (and IBM and MF and Fujitsu - I think) it is a "short floating point".  From your PICTURE clause, I would guess that RM treats it as something else.  Tell us what it means there and we (probably) can tell you how to get what you want.

 

On the other hand, I can't think of a USAGE (other than DISPLAY) for a numeric item what would redefine a PIC 999 as 3 alphanumeric characters.

---

From: Haroldo Stenger [mailto:address@hidden
Sent: Wednesday, July 29, 2009 2:36 AM
To: address@hidden
Subject: [open-cobol-list] PIC not allowed

hi !

I've just discovered open cobol , and I'm amazed. Big THANK YOU to you.

I think I'll ask a lot of questions, trying to get my old RM COBOL 85 system fully compiled by Open cobol.

The first of which is : Even if the code below compiles fine in RM COBOL 85 , it gets me a syntax error , even if I put -std=cobol85 in the cobc command line:

       01 CAF-NUMERO PIC 999 COMP-1.
       01 CAF-ALFANUM-1 REDEFINES CAF-NUMERO.
           05 CAF-ALFANUM-2 PIC X.
           05 CAF-ALFANUM PIC X.

The idea there is to split a number.

Is there a way that I can make the code compile ?

best regards ,

haroldo