|
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 |
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
**********************************************
[Prev in Thread] | Current Thread | [Next in Thread] |