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: Bill Klein on 12 Jul 2010 22:08 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 13 Jul 2010 08:27 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 09:45 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 13 Jul 2010 10:21 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 12:09
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 >>> >> >> > > |