Menu

#99 >>IF is not processed first

GC 2.2
duplicate
CDF (5)
5 - default
2017-04-10
2014-09-26
No

The implementation in GV/OC 2.0 is currently wrong as all directives are handled simultaneously:

::cobolfree
>> IF nothing DEFINED
  >> DEFINE something AS 42
>> END-IF
>> IF something DEFINED
  ERROR-OUT. ERROR-OUT. ERROR-OUT.
>> END-IF

result:

$>cobc -W -free prog.cob
prog.cob: 5: Error: PROGRAM-ID header missing
prog.cob: 5: Error: ENVIRONMENT DIVISION header missing
prog.cob: 5: Error: CONFIGURATION SECTION header missing
prog.cob: 5: Error: SPECIAL-NAMES header missing
prog.cob: 5: Error: Invalid system-name 'ERROR-OUT'
prog.cob: 5: Error: syntax error, unexpected ., expecting CRT or Identifier

Related

Bugs: #248

Discussion

  • Edward Hart

    Edward Hart - 2016-06-25
    • labels: --> CDF
    • status: accepted --> duplicate
    • assigned_to: Edward Hart
    • Group: unclassified --> GC 2.0
    • Priority: 5 --> 5 - default
     
  • Edward Hart

    Edward Hart - 2016-06-25

    Fixed in [r955]. This was duplicated by [bugs:#248].

     

    Related

    Bugs: #248


Log in to post a comment.

MongoDB Logo MongoDB