RE: [Cobolforgcc-devel] IF is now working.

[William M. K. <wm...@ix...>]

Tim,
  Have you included the "correct" code for NEXT SENTENCE and END-IF, e.g.

Program that should compile and run 'as expected'

Identification Division.
 Program-Id. ShouldCompile.
Data Division.
 Working-Storage Section.
01  Always-A  Pic X  Value "A".
01  Test-a-Field  Pic 9(06).
Procedure Division.
 Mainline.
    Accept Test-A-Field from Date
    If Test-A-field (1:2) >= 50
       If Always-A = "A"
           Next Sentence
       Else
           Continue
    Else
       Display "< 50"
    End-If
*>    End-IF *is* allowed as the NEXT SENTENCE is in a nested IF
    Stop Run
     .

Versus the following Program that should NOT compile (or should get a
non-Standard flagging message)

Identification Division.
 Program-Id. ShouldNotCompile.
Data Division.
 Working-Storage Section.
01  Always-A  Pic X  Value "A".
01  Test-a-Field  Pic 9(06).
Procedure Division.
 Mainline.
    Accept Test-A-Field from Date
    If Test-A-field (1:2) >= 50
           Next Sentence
    Else
       Display "< 50"
    End-If
*>   End-If cannot be used with an IF that has NEXT SENTENCE
    Stop Run
     .


> -----Original Message-----
> From: cob...@li...
> [mailto:cob...@li...]On Behalf Of Tim
> Josling
> Sent: Saturday, August 18, 2001 10:54 PM
> To: cobolforgcc-devel
> Subject: [Cobolforgcc-devel] IF is now working.
>
>
> I've completed the testing of IF and checked it in.