Re: [open-cobol-list] Non-Standard Level numbers

[Sergey Kashyrin]

Bill,

> Have you tried to compile this on an IBM mainframe?

Yes. It works on both mainframe and as400, i.e. the LENGTH OF D is correct and 
there are no errors.


----- Original Message ----- 
From: "Bill Klein" <address@hidden>
To: "'Sergey Kashyrin'" <address@hidden>; <address@hidden>
Sent: Thursday, January 19, 2006 12:20 AM
Subject: RE: [open-cobol-list] Non-Standard Level numbers


> Have you tried to compile this on an IBM mainframe?  It would not surprise
> me if: 
>
> 01 A.
>     05 B.
>          10 C PIC X.
>    04 D.
>          05 E PIC X.
>
> actually receives a compiler error on an IBM mainframe, as it would (maybe)
> treat "D" as a group item at the 05-level with no subordinate elementary
> items below it, before the next 05-level.
>
> I have NOT tried this, but I think this might cause an error on the
> mainframe.
>
> > -----Original Message-----
> > From: Sergey Kashyrin [mailto:address@hidden 
> > Sent: Wednesday, January 18, 2006 6:44 PM
> > To: Bill Klein; address@hidden
> > Subject: Re: [open-cobol-list] Non-Standard Level numbers
> >
> > Bill,
> >
> > Thanks for the reference. Unfortunately I don't feel that it 
> > is correct explanation of the reality.
> > I've implemented that in a little bit different way in OC but 
> > I think it's valid.
> > I'm inserting a fake FILLER instead of pushing the level for 
> > a variable.
> > i.e.
> > 01 A.
> >     05 B.
> >          10 C PIC X.
> >    04 D.
> >          05 E PIC X.
> >
> > will be converted to
> > 01 A.
> >    04 FILLER.
> >     05 B.
> >          10 C PIC X.
> >    04 D.
> >          05 E PIC X.
> >
> > IBM explanation is that D will go to the same level as B. But 
> > they've left out of discussion what will happen to E in this case.
> >
> > Regards,
> > Sergey
> >
> > ----- Original Message ----- 
> > From: "Bill Klein" <address@hidden>
> > To: <address@hidden>
> > Sent: Wednesday, January 18, 2006 7:24 PM
> > Subject: [open-cobol-list] Non-Standard Level numbers
> >
> >
> > > For documentation on how IBM handles "non-Standard" level 
> > numbers, see:
> > > 
> > > 
> > http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy
> > 3lr30/5.1.6.2
> > > 
> > > 
> > > and look at the section beginning,
> > > 
> > > "You can also define groups with subordinate items that 
> > have different
> > > level-numbers for the same level in the hierarchy."
> > > 
> > > 
> > > 
> > > 
> > > -------------------------------------------------------
> > > This SF.net email is sponsored by: Splunk Inc. Do you grep 
> > through log files
> > > for problems?  Stop!  Download the new AJAX search engine that makes
> > > searching your log files as easy as surfing the  web.  
> > DOWNLOAD SPLUNK!
> > > 
> > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&;
> > dat=121642
> > > _______________________________________________
> > > open-cobol-list mailing list
> > > address@hidden
> > > https://lists.sourceforge.net/lists/listinfo/open-cobol-list