IF (ブロック)

目的

ブロック IF ステートメントは、IF 構文内の最初のステートメントです。

構文



>>-+----------------------+------------------------------------->
   '-IF_construct_name--:-'
 
>--IF--(--scalar_logical_expr--)--THEN-------------------------><
 
 

IF_construct_name
IF 構文を識別する名前です。

規則

ブロック IF ステートメントは論理式を計算し、IF 構文に 含まれるブロックのうちの最大 1 つを実行します。

IF_construct_name を指定する場合、これは END IF ステートメントで指定する必要が ありますが、IF 構文内の ELSE IF または ELSE ステートメントでの指定は任意です。

WHICHC: IF (CMD .EQ. 'RETRY') THEN
     IF (LIMIT .GT. FIVE) THEN          ! Nested IF constructs
         
  ·
  ·
  ·
CALL STOP ELSE CALL RETRY END IF ELSE IF (CMD .EQ. 'STOP') THEN WHICHC CALL STOP ELSE IF (CMD .EQ. 'ABORT') THEN CALL ABORT ELSE WHICHC GO TO 100 END IF WHICHC

関連情報

IBM Copyright 2003