[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
AW: gnubol: SEARCH and EVALUATE (IBM COBOL for MVS)
Hi,
the IBM COBOL for MVS & VM 1.2.2 compiles with errors.
000004 WORKING-STORAGE SECTION.
000005 01 A.
BLW=0000+000 0CL10
000006 03 B OCCURS 10 INDEXED BY IX PIC X.
BLW=0000+000,0000000 1C
IDX=0001+000
000007 01 A2.
BLW=0000+010 0CL10
000008 03 B2 OCCURS 10 INDEXED BY IX2 PIC X.
BLW=0000+010,0000000 1C
IDX=0002+000
000009 01 C PIC 9.
BLW=0000+020 1C
000010 PROCEDURE DIVISION.
000011 001.
000012 MOVE "1234567890" TO A.
5
000013 SEARCH B
6
000014 WHEN B (IX) = "6"
6 6
000015 1 SET C TO IX
9 6
000016 1 EVALUATE TRUE
==000016==> IGYPS2112-E The "EVALUATE" verb did not have a matching scope
terminator. A scope
terminator was inserted on line 27. The execution
results may not be
correct.
000017 1 WHEN C = 1
9
000018 2 DISPLAY "SURPRISE"
000019 1 WHEN C = 6
9
000020 2 DISPLAY "NO SURPRISE"
000021 *** WHEN OTHER
000022 *** DISPLAY "SURPRISE"
000023 *** END-EVALUATE
000024 1 WHEN B (IX) = "7"
6 6
000025 2 DISPLAY "5 FOUND"
000026 2 .
000027
000004 WORKING-STORAGE SECTION.
000005 01 A.
BLW=0000+000 0CL10
000006 03 B OCCURS 10 INDEXED BY IX PIC X.
BLW=0000+000,0000000 1C
IDX=0001+000
000007 01 A2.
BLW=0000+010 0CL10
000008 03 B2 OCCURS 10 INDEXED BY IX2 PIC X.
BLW=0000+010,0000000 1C
IDX=0002+000
000009 01 C PIC 9.
BLW=0000+020 1C
000010 PROCEDURE DIVISION.
000011 001.
000012 MOVE "1234567890" TO A.
5
000013 SEARCH B
6
000014 WHEN B (IX) = "6"
6 6
000015 1 SET C TO IX
9 6
000016 1 EVALUATE TRUE
==000016==> IGYPS2112-E The "EVALUATE" verb did not have a matching scope
terminator. A scope
terminator was inserted on line 24. The execution
results may not be
correct.
000017 1 WHEN C = 1
9
000018 2 DISPLAY "SURPRISE"
000019 1 WHEN C = 6
9
000020 2 DISPLAY "NO SURPRISE"
000021 1 WHEN OTHER
000022 2 DISPLAY "SURPRISE"
000023 *** END-EVALUATE
000024 WHEN B (IX) = "7"
6 6
000025 1 DISPLAY "5 FOUND"
000026 1 .
000027
Carsten Siedentop
> -----Ursprüngliche Nachricht-----
> Von: William M. Klein [SMTP:wmklein@ix.netcom.com]
> Gesendet am: Montag, 13. Dezember 1999 20:37
> An: gnu
> Betreff: gnubol: SEARCH and EVALUATE (more results)
>
> AcuCOBOL - gets compiler errors
>
> DEC VMS - compiles without errors
>
> Does the list really want me to continue "posting results"? I am
> convinced
> that this "extension" is (at least a little) more common than I thought -
> but
> still haven't heard of ANY compiler that accepts nested conditionals other
> than SEARCH/EVALUATE - but doesn't accept these.
>
> Bill Klein
> wmklein <at> ix.netcom.com
>
>
> --
> This message was sent through the gnu-cobol mailing list. To remove
> yourself
> from this mailing list, send a message to majordomo@lusars.net with the
> words "unsubscribe gnu-cobol" in the message body. For more information
> on
> the GNU COBOL project, send mail to gnu-cobol-owner@lusars.net.
--
This message was sent through the gnu-cobol mailing list. To remove yourself
from this mailing list, send a message to majordomo@lusars.net with the
words "unsubscribe gnu-cobol" in the message body. For more information on
the GNU COBOL project, send mail to gnu-cobol-owner@lusars.net.