From: Bill Klein on
I don't have current access to an IBM Enterprise COBOL compiler (either V3.x
or V4.x). If someone who has could try to compile the program in this ntoe
with FLAG(I,I) and FLAGSTD(H) turned on, I would be interested in what FIPS
messages you get. I have NOT compiled it with any compiler yet, so there
may be simply (typo) type errors in it, either tell me what they are or send
it back to me to correct.

My guess is that the last two MOVE statments will be flagged and probably
get the same message. If they do not, could you please (off list) send me
the compiler lisging. If they do, then just email me or post the message
that you get.

I don't need this program run (and don't really care what the results ae),
bu if you want to run it, it should execute.

If anyone wants to try this with some other compiler with "Standard
conformaqnce flagging" turned on, I might be interested in that too. (You
will probably need to commentout the initial "CBL" card).

Thanks in advance.

Downloadable verion is at:
http://home.comcast.net/~wmklein/IBM/TestInd.CBL

* * * * * * * * * * * * * * * * * *

CBL Flagstd(H) Flag(I,I)

Identification Division.

Program-Id. TestInd..

Data Division.

Working-Storage Section.

01 aTable.

05 TheOccurs occurs 30 indexed anInd.

10 anElem pic x(10).

01 Table1.

05 Occurs1 occurs 30.

10 Elem1 pic x(10).

01 Table2.

05 Occurs2 occurs 60.

10 Elem2 pic x(05).

01 Table3.

05 Occurs3 occurs 20 indexed aInd.

10 Elem3 pic x(15).

01 Recv Pic X(20).

01 Num Pic 9.

Procedure Division.

Mainline.

Move All "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

to aTable Table1 Table2 Stable3

Compute Num = Function Integer (Funtion Current-Date (6:1))

set anInd to Num

Move AnElem (anInd) to Recv

Display Recv

Move Elem1 (anInd) to Recv

Display Recv

Move Elem2 (anInd) to Recv.

Display Recv

Move Elem3 (anInd) to Recv

Display Recv

Stop Run.

..


From: Anonymous on
In article <SUP_n.575383$vr1.32401(a)en-nntp-07.dc1.easynews.com>,
Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>I don't have current access to an IBM Enterprise COBOL compiler (either V3.x
>or V4.x). If someone who has could try to compile the program in this ntoe
>with FLAG(I,I) and FLAGSTD(H) turned on, I would be interested in what FIPS
>messages you get.

Well... how about this'un, for starters:

000022 002300 Move All "abcdefghijklmnopqrstuvwxyzABCDE (etc)

==000022==> IGYPS0009-E "MOVE" should not begin in area "A".

Kind of hard to go on from there... but what's Life without Struggle?

Changing that line to fit in between Ye Olde Marginse yielded:

000002 000300 Program-Id. TestInd..

==000002==> IGYDS0001-W A blank was missing before character "." (etc)

==000002==> IGYDS1089-S ". " was invalid.

.... and changing the double-period/full stop in *that* line yielded:

000024 002400 to aTable Table1 Table2 Stable3

==000024==> IGYPS2121-S "STABLE3" was not defined as a data-name.

.... and that which I was told thrice is true.

DD

From: Bill Klein on
As I say, I don't have a compiler available at the moment. Sorry about the
"typo" compiler errors. I think (hope) I have fixed them atll in the
(updated) version at:
http://home.comcast.net/~wmklein/IBM/TestInd.CBL

Let me know if there are still some that I need to fix.

<docdwarf(a)panix.com> wrote in message news:i1hm47$mlr$1(a)reader1.panix.com...
> In article <SUP_n.575383$vr1.32401(a)en-nntp-07.dc1.easynews.com>,
> Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>>I don't have current access to an IBM Enterprise COBOL compiler (either
>>V3.x
>>or V4.x). If someone who has could try to compile the program in this
>>ntoe
>>with FLAG(I,I) and FLAGSTD(H) turned on, I would be interested in what
>>FIPS
>>messages you get.
>
> Well... how about this'un, for starters:
>
> 000022 002300 Move All "abcdefghijklmnopqrstuvwxyzABCDE (etc)
>
> ==000022==> IGYPS0009-E "MOVE" should not begin in area "A".
>
> Kind of hard to go on from there... but what's Life without Struggle?
>
> Changing that line to fit in between Ye Olde Marginse yielded:
>
> 000002 000300 Program-Id. TestInd..
>
> ==000002==> IGYDS0001-W A blank was missing before character "." (etc)
>
> ==000002==> IGYDS1089-S ". " was invalid.
>
> ... and changing the double-period/full stop in *that* line yielded:
>
> 000024 002400 to aTable Table1 Table2 Stable3
>
> ==000024==> IGYPS2121-S "STABLE3" was not defined as a data-name.
>
> ... and that which I was told thrice is true.
>
> DD
>


From: Anonymous on
In article <e6__n.647735$Hq1.36925(a)en-nntp-04.dc1.easynews.com>,
Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>As I say, I don't have a compiler available at the moment. Sorry about the
>"typo" compiler errors. I think (hope) I have fixed them atll in the
>(updated) version at:
> http://home.comcast.net/~wmklein/IBM/TestInd.CBL
>
>Let me know if there are still some that I need to fix.

All righty... the first compile gave another bunch o' stuff but I think
you said you were interested in FIPS errors, of which there was one:

28.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase

Is this sufficient meat or shall I get back to things like

000023 002400 Compute Num = Function Integer

==000023==> IGYPS2288-E Too many arguments were specified for function "INTEGER"

000024 002500 (Funtion Current-Date (6:1))

==000024==> IGYPS2121-S "FUNTION" was not defined as a data-name.

==000024==> IGYPS2121-S "CURRENT-DATE" was not defined as a data-name.

==000024==> IGYPS2070-E Expected a right parenthesis, but found ":"

.... et and cetera?

>
><docdwarf(a)panix.com> wrote in message news:i1hm47$mlr$1(a)reader1.panix.com...
>> In article <SUP_n.575383$vr1.32401(a)en-nntp-07.dc1.easynews.com>,
>> Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>>>I don't have current access to an IBM Enterprise COBOL compiler (either
>>>V3.x
>>>or V4.x). If someone who has could try to compile the program in this
>>>ntoe
>>>with FLAG(I,I) and FLAGSTD(H) turned on, I would be interested in what
>>>FIPS
>>>messages you get.
>>
>> Well... how about this'un, for starters:
>>
>> 000022 002300 Move All "abcdefghijklmnopqrstuvwxyzABCDE (etc)
>>
>> ==000022==> IGYPS0009-E "MOVE" should not begin in area "A".
>>
>> Kind of hard to go on from there... but what's Life without Struggle?
>>
>> Changing that line to fit in between Ye Olde Marginse yielded:
>>
>> 000002 000300 Program-Id. TestInd..
>>
>> ==000002==> IGYDS0001-W A blank was missing before character "." (etc)
>>
>> ==000002==> IGYDS1089-S ". " was invalid.
>>
>> ... and changing the double-period/full stop in *that* line yielded:
>>
>> 000024 002400 to aTable Table1 Table2 Stable3
>>
>> ==000024==> IGYPS2121-S "STABLE3" was not defined as a data-name.
>>
>> ... and that which I was told thrice is true.
>>
>> DD
>>
>
>


From: Bill Klein on
Which statements got the "IGYPS8233" message? The last 3 MOVE statements?

I will update the source code, but if you want to try for a clean (cleaner?)
compile, fix the spelling of "function" from "funtion" before CURRENT-DATE.
That seems to be what those other messages are about.

<docdwarf(a)panix.com> wrote in message news:i1hsq5$so4$1(a)reader1.panix.com...
> In article <e6__n.647735$Hq1.36925(a)en-nntp-04.dc1.easynews.com>,
> Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>>As I say, I don't have a compiler available at the moment. Sorry about the
>>"typo" compiler errors. I think (hope) I have fixed them atll in the
>>(updated) version at:
>> http://home.comcast.net/~wmklein/IBM/TestInd.CBL
>>
>>Let me know if there are still some that I need to fix.
>
> All righty... the first compile gave another bunch o' stuff but I think
> you said you were interested in FIPS errors, of which there was one:
>
> 28.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase
>
> Is this sufficient meat or shall I get back to things like
>
> 000023 002400 Compute Num = Function Integer
>
> ==000023==> IGYPS2288-E Too many arguments were specified for function
> "INTEGER"
>
> 000024 002500 (Funtion Current-Date (6:1))
>
> ==000024==> IGYPS2121-S "FUNTION" was not defined as a data-name.
>
> ==000024==> IGYPS2121-S "CURRENT-DATE" was not defined as a data-name.
>
> ==000024==> IGYPS2070-E Expected a right parenthesis, but found ":"
>
> ... et and cetera?
>
>>
>><docdwarf(a)panix.com> wrote in message
>>news:i1hm47$mlr$1(a)reader1.panix.com...
>>> In article <SUP_n.575383$vr1.32401(a)en-nntp-07.dc1.easynews.com>,
>>> Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote:
>>>>I don't have current access to an IBM Enterprise COBOL compiler (either
>>>>V3.x
>>>>or V4.x). If someone who has could try to compile the program in this
>>>>ntoe
>>>>with FLAG(I,I) and FLAGSTD(H) turned on, I would be interested in what
>>>>FIPS
>>>>messages you get.
>>>
>>> Well... how about this'un, for starters:
>>>
>>> 000022 002300 Move All "abcdefghijklmnopqrstuvwxyzABCDE (etc)
>>>
>>> ==000022==> IGYPS0009-E "MOVE" should not begin in area "A".
>>>
>>> Kind of hard to go on from there... but what's Life without Struggle?
>>>
>>> Changing that line to fit in between Ye Olde Marginse yielded:
>>>
>>> 000002 000300 Program-Id. TestInd..
>>>
>>> ==000002==> IGYDS0001-W A blank was missing before character "." (etc)
>>>
>>> ==000002==> IGYDS1089-S ". " was invalid.
>>>
>>> ... and changing the double-period/full stop in *that* line yielded:
>>>
>>> 000024 002400 to aTable Table1 Table2 Stable3
>>>
>>> ==000024==> IGYPS2121-S "STABLE3" was not defined as a data-name.
>>>
>>> ... and that which I was told thrice is true.
>>>
>>> DD
>>>
>>
>>
>
>