Test request (for Enter;prise COBOL)
in [Cobol]
|
Prev: Non-English compilers(was: RM COBOL with ISAM files
Next: Next Draft (FINAL CD) available of "next" COBOL revision
From: Anonymous on 13 Jul 2010 14:13 In article <Bc0%n.467592$Up1.103262(a)en-nntp-09.dc1.easynews.com>, Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote: >Which statements got the "IGYPS8233" message? The last 3 MOVE statements? Statements 28, 30 and 32 (which, for reasons of clarity, were called '28.13, 30.13, 32.13) and are, respectively: 000028 002900 Move Elem1 (anInd) to Recv 000030 003100 Move Elem2 (anInd) to Recv. 000032 003300 Move Elem3 (anInd) to Recv The message, in its entirety, reads: =>000028.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase for the table: nonconforming nonstandard, IBM extension to ANS/ISO 1985. >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. You have no idea, Mr Klein, how supremely motivated I am to fix up someone else's code that I've downloaded twice and compiled a half-dozen times in order to discover nuances of this sort of subtlety. DD [top posted, nothing new here] ><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 >>>> >>> >>> >> >> > >
From: Bill Klein on 13 Jul 2010 14:37 DD (and Charles who didn't post here), Thank you for running the test for me. I am sorry that my original source code had errors in it. I do hope to have a compiler available again in the near future to avoid making such requests (at least with compiler errors) in the future. <docdwarf(a)panix.com> wrote in message news:i1iabs$3is$1(a)reader1.panix.com... > In article <Bc0%n.467592$Up1.103262(a)en-nntp-09.dc1.easynews.com>, > Bill Klein <wmklein(a)noreply.ix.netcom.com> wrote: >>Which statements got the "IGYPS8233" message? The last 3 MOVE statements? > > Statements 28, 30 and 32 (which, for reasons of clarity, were called > '28.13, 30.13, 32.13) and are, respectively: > > 000028 002900 Move Elem1 (anInd) to Recv > > 000030 003100 Move Elem2 (anInd) to Recv. > > 000032 003300 Move Elem3 (anInd) to Recv > > The message, in its entirety, reads: > > =>000028.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase > for the table: nonconforming nonstandard, IBM extension to ANS/ISO 1985. > >>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. > > You have no idea, Mr Klein, how supremely motivated I am to fix up someone > else's code that I've downloaded twice and compiled a half-dozen times in > order to discover nuances of this sort of subtlety. > > DD > > [top posted, nothing new here] > >><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 >>>>> >>>> >>>> >>> >>> >> >> > >
From: Arnold Trembley on 14 Jul 2010 02:51 On 7/13/2010 1:37 PM, Bill Klein wrote: > DD (and Charles who didn't post here), > Thank you for running the test for me. I am sorry that my original > source code had errors in it. I do hope to have a compiler available again > in the near future to avoid making such requests (at least with compiler > errors) in the future. > > <docdwarf(a)panix.com> wrote in message news:i1iabs$3is$1(a)reader1.panix.com... >> In article<Bc0%n.467592$Up1.103262(a)en-nntp-09.dc1.easynews.com>, >> Bill Klein<wmklein(a)noreply.ix.netcom.com> wrote: >>> Which statements got the "IGYPS8233" message? The last 3 MOVE statements? >>> (snip) My results were similar DocDwarf's. The only error I corrected was the spelling of "FUNTION". The results appeared to be identical between these two compilers: PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 If I get some time on Wednesday I will try again with the revised source code. I will be interested to see how the intrinsic functions work with the additional parentheses. The programmers in my shop (including me!) don't take advantage of intrinsic functions very often. I use current-date and when-compiled, but never nested inside another function. We're just beginning to convert to COBOL 4.2.0. Kind regards, -- http://www.arnoldtrembley.com/
From: Arnold Trembley on 15 Jul 2010 03:16 On 7/13/2010 1:37 PM, Bill Klein wrote: > DD (and Charles who didn't post here), > Thank you for running the test for me. I am sorry that my original > source code had errors in it. I do hope to have a compiler available again > in the near future to avoid making such requests (at least with compiler > errors) in the future. I downloaded the corrected source and was able to compile it and execute it using both IBM Enterprise COBOL for z/OS 3.4.1 and 4.2.0 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TESTIND Date 07 Line.Col Code FIPS message text IGYSC8208 "APOST" compiler option: nonconforming nonstandard, IBM e IGYSC8292 "FASTSRT" compiler option: nonconforming nonstandard, IBM IGYSC8227 "TRUNC(OPT)" compiler option: nonconforming nonstandard, 30.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase for the ANS/ISO 1985. Same message on line: 32.13 34.13 ********************************* TOP OF DATA *********** ijklmnopqr ijklmnopqr ijklm ijklmnopqrstuvw ******************************** BOTTOM OF DATA ********* PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TESTIND Date 07 Line.Col Code FIPS message text IGYSC8208 "APOST" compiler option: nonconforming nonstandard, IBM e IGYSC8292 "FASTSRT" compiler option: nonconforming nonstandard, IBM IGYSC8227 "TRUNC(OPT)" compiler option: nonconforming nonstandard, 30.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase for the ANS/ISO 1985. Same message on line: 32.13 34.13 FIPS Messages Total Standard Nonstandard Obsolete 6 0 6 0 ********************************* TOP OF DATA ************** ijklmnopqr ijklmnopqr ijklm ijklmnopqrstuvw ******************************** BOTTOM OF DATA ************ -- http://www.arnoldtrembley.com/
From: Bill Klein on 15 Jul 2010 07:01
Thanks for the report. "Arnold Trembley" <arnold.trembley(a)att.net> wrote in message news:ncudnVA-ybslKKPRnZ2dnUVZ_qWdnZ2d(a)giganews.com... > On 7/13/2010 1:37 PM, Bill Klein wrote: >> DD (and Charles who didn't post here), >> Thank you for running the test for me. I am sorry that my original >> source code had errors in it. I do hope to have a compiler available >> again >> in the near future to avoid making such requests (at least with compiler >> errors) in the future. > > I downloaded the corrected source and was able to compile it and execute > it using both IBM Enterprise COBOL for z/OS 3.4.1 and 4.2.0 > > > > PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TESTIND > Date 07 > Line.Col Code FIPS message text > > IGYSC8208 "APOST" compiler option: nonconforming nonstandard, > IBM e > > IGYSC8292 "FASTSRT" compiler option: nonconforming > nonstandard, IBM > > IGYSC8227 "TRUNC(OPT)" compiler option: nonconforming > nonstandard, > > 30.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase > for the > ANS/ISO 1985. > > Same message on line: 32.13 34.13 > > > ********************************* TOP OF DATA *********** > ijklmnopqr > ijklmnopqr > ijklm > ijklmnopqrstuvw > ******************************** BOTTOM OF DATA ********* > > > PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TESTIND > Date 07 > Line.Col Code FIPS message text > > IGYSC8208 "APOST" compiler option: nonconforming nonstandard, > IBM e > > IGYSC8292 "FASTSRT" compiler option: nonconforming > nonstandard, IBM > > IGYSC8227 "TRUNC(OPT)" compiler option: nonconforming > nonstandard, > > 30.13 IGYPS8233 Index-name does not appear in "INDEXED BY" phrase > for the > ANS/ISO 1985. > > Same message on line: 32.13 34.13 > FIPS Messages Total Standard Nonstandard Obsolete > 6 0 6 0 > > ********************************* TOP OF DATA ************** > ijklmnopqr > ijklmnopqr > ijklm > ijklmnopqrstuvw > ******************************** BOTTOM OF DATA ************ > > > -- > http://www.arnoldtrembley.com/ |