gnucobol-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [open-cobol-list] open-cobol-list Digest, Vol 67, Issue 6


From: James Lemmon
Subject: Re: [open-cobol-list] open-cobol-list Digest, Vol 67, Issue 6
Date: Fri, 26 Apr 2013 10:32:00 +0200

A group level 'NAME-STORE' if it is 01 may only contain levels from 02 up to 50.

Levels 66 77 88 are used for special purposes.  
What is the actual code that you have?


On Tue, Apr 23, 2013 at 3:49 PM, <address@hidden> wrote:
Send open-cobol-list mailing list submissions to
        address@hidden

To subscribe or unsubscribe via the World Wide Web, visit
        https://lists.sourceforge.net/lists/listinfo/open-cobol-list
or, via email, send a message with subject or body 'help' to
        address@hidden

You can reach the person managing the list at
        address@hidden

When replying, please edit your Subject line so it is more specific
than "Re: Contents of open-cobol-list digest..."


Today's Topics:

   1. Re: pic field for level 88. (Kevin Monceaux)
   2. Re: pic field for level 88. (vbcoen)
   3. Re: pic field for level 88. (Michael Anderson)
   4. Re: OpenCOBOL with ncursesw and UTF-8 (Was: Strange Terminal
      output) (Paride Desimone)
   5. Re: pic field for level 88. (john Culleton)
   6. Compiler error. (john Culleton)


----------------------------------------------------------------------

Message: 1
Date: Mon, 22 Apr 2013 15:11:24 -0500
From: Kevin Monceaux <address@hidden>
Subject: Re: [open-cobol-list] pic field for level 88.
To: OpenCOBOL Mailing List <address@hidden>
Message-ID: <address@hidden>
Content-Type: text/plain; charset=us-ascii

John,

On Mon, Apr 22, 2013 at 02:59:01PM -0400, john Culleton wrote:

> On a level 88 I would like both Y and y to be valid entries. How
> exactly would I configure it?
> I tried 88  FOO PIC 'Y", "y".
> but that didn't work.

There shouldn't be a PIC on a level 88 condition name.  The PIC should be on
the data item the level 88 condition name is under.  Page 6-5 of the
OpenCOBOL Programmer's Manual shows this example, which has some level 88
condition names with multiple values:

    05   SHIRT-SIZE                  PIC 99V9.
         88 LILLIPUTIAN              VALUE 0 THRU 12.5
         88 XS                       VALUE 13 THRU 13.5.
         88 S                        VALUE 14, 14.5.
         88 M                        VALUE 15, 15.5.
         88 L                        VALUE 16, 16.5.
         88 XL                       VALUE 17, 17.5.
         88 XXL                      VALUE 18, 18.5.
         88 HUMUNGOUS                VALUE 19 THRU 99.9.



--

Kevin
http://www.RawFedDogs.net
http://Lassie.RawFedDogs.net
http://www.WacoAgilityGroup.org
Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.



------------------------------

Message: 2
Date: Mon, 22 Apr 2013 21:54:43 +0100
From: vbcoen <address@hidden>
Subject: Re: [open-cobol-list] pic field for level 88.
To: <address@hidden>
Message-ID: <address@hidden>
Content-Type: text/plain; charset="us-ascii"

Hi;
On Monday 22 Apr 2013 14:59:01 john Culleton wrote:

> On a level 88 I would like both Y and y to be valid entries. How
> exactly would I configure it?
> I tried 88  FOO PIC 'Y", "y".
> but that didn't work.

Try:
   88 valid-sets-1 values "Y"  "y".

as against of after accept changing case to upper before testing !!

Vince

-------------- next part --------------
An HTML attachment was scrubbed...

------------------------------

Message: 3
Date: Mon, 22 Apr 2013 16:40:29 -0500
From: Michael Anderson <address@hidden>
Subject: Re: [open-cobol-list] pic field for level 88.
To: address@hidden
Message-ID: <address@hidden>
Content-Type: text/plain; charset="iso-8859-1"

May also work as
     88 valid-value VALUES ARE "Y", "y".

On 04/22/2013 03:54 PM, vbcoen wrote:
>
> Hi;
>
> On Monday 22 Apr 2013 14:59:01 john Culleton wrote:
>
> > On a level 88 I would like both Y and y to be valid entries. How
>
> > exactly would I configure it?
>
> > I tried 88 FOO PIC 'Y", "y".
>
> > but that didn't work.
>
> Try:
>
> 88 valid-sets-1 values "Y" "y".
>
> as against of after accept changing case to upper before testing !!
>
> Vince
>
>
>
> ------------------------------------------------------------------------------
> Precog is a next-generation analytics platform capable of advanced
> analytics on semi-structured data. The platform includes APIs for building
> apps and a phenomenal toolset for data science. Developers can use
> our toolset for easy data analysis & visualization. Get a free account!
> http://www2.precog.com/precogplatform/slashdotnewsletter
>
>
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list

-------------- next part --------------
An HTML attachment was scrubbed...

------------------------------

Message: 4
Date: Mon, 22 Apr 2013 22:57:55 +0000
From: Paride Desimone <address@hidden>
Subject: Re: [open-cobol-list] OpenCOBOL with ncursesw and UTF-8 (Was:
        Strange Terminal output)
To: <address@hidden>
Message-ID: <address@hidden>
Content-Type: text/plain; charset=UTF-8; format=flowed

Il 17/04/2013 21:52 Kevin Monceaux ha scritto:

> The Linux distribution I currently have it installed on is Arch Linux.
> I
> also have it working on FreeBSD.  I'll attach the patch I used with
> Arch
> Linux in case it helps.  You should be able to build from source with
> the
> attached patch applied on other Linux distributions also.  I'll also
> attach
> a PKGBUILD you can use to build an Arch Linux package with the patch
> applied
> in case you want to use Arch Linux.
>

I have applied the patch and I create a package for Debian, but the
output is the same without patch.
I give up :-(
Thank you for your help.

Paride
--
http://keyserver.linux.it/pks/lookup?op=get&search=0xCC6CA35C690431D3

Chi e' pronto a rinunciare alle proprie liberta' fondamentali per
comprarsi briciole di temporanea sicurezza non merita ne' la liberta'
ne' la sicurezza.(Benjamin Franklin - dalla Risposta al Governatore,
Assemblea della Pennsylvania, 11 novembre 1755)



------------------------------

Message: 5
Date: Tue, 23 Apr 2013 09:10:30 -0400
From: john Culleton <address@hidden>
Subject: Re: [open-cobol-list] pic field for level 88.
To: address@hidden
Message-ID: <address@hidden>
Content-Type: text/plain; charset=US-ASCII

On Mon, 22 Apr 2013 16:40:29 -0500
Michael Anderson <address@hidden> wrote:

> May also work as
>      88 valid-value VALUES ARE "Y", "y".
>

The key change was VALUES ARE.
I didn't actually use a PIC word. That was just a senior moment
when I wrote my first post.

Thanks to all.

John Culleton
Wexford Press
Free list of books for self-publishers:
http://wexfordpress.net/shortlist.html
PDF e-book: "Create Book Covers with Scribus"
available at http://www.booklocker.com/books/4055.html



------------------------------

Message: 6
Date: Tue, 23 Apr 2013 09:50:39 -0400
From: john Culleton <address@hidden>
Subject: [open-cobol-list] Compiler error.
To: address@hidden
Message-ID: <address@hidden>
Content-Type: text/plain; charset=US-ASCII

And now another one. my program compiles until it encounters:

        MOVE SPACES TO NAME-STORE.
        ACCEPT NAME-STORE AT COL 15.
Then I get this error:

Unexpected tree tag 28
codegen.c:1295: Internal compiler error
Aborting compile of bib002.cbl at line 70

(line 69 is the last line in the incomplete program)

Either reference to NAME-STORE causes the error. If I comment out
both of them the compile error goes away.

NAME-STORE is defined as follows in context:
     77  BIBNAME PIC X(10) VALUE "BIB001.FIL".
     77  NAME-STORE PIC X(15).
     77  YEAR-STORE  PIC X(5).
    (etc.)

Similar references to YEAR-STORE etc. cause no problems. I grepped my
program for NAME-STORE and the above references plus reference in a
STRING statement are the only ones. Commenting out the STRING
statement has no effect.

NAME-STORE is of course not a reserved word.
--
John Culleton
Wexford Press
Free list of books for self-publishers:
http://wexfordpress.net/shortlist.html
PDF e-book: "Create Book Covers with Scribus"
available at http://www.booklocker.com/books/4055.html



------------------------------

------------------------------------------------------------------------------
Try New Relic Now & We'll Send You this Cool Shirt
New Relic is the only SaaS-based application performance monitoring service
that delivers powerful full stack analytics. Optimize and monitor your
browser, app, & servers with just a few lines of code. Try New Relic
and get this awesome Nerd Life shirt! http://p.sf.net/sfu/newrelic_d2d_apr

------------------------------

_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list


End of open-cobol-list Digest, Vol 67, Issue 6
**********************************************



--
James Lemmon
Cell +27825663095

reply via email to

[Prev in Thread] Current Thread [Next in Thread]