CL 条件式
CLでの条件式について
RPG:
-
IF COND(&AA *EQ 5 ) THEN(DO)
-
ENDDO
-
-
IF COND(&OP *EQ '5' *OR &OP *EQ '2') THEN(DO)
-
ENDDO
-
-
IF COND(&OP *EQ '5' *AND &OP *EQ '2') THEN(DO)
-
ENDDO
-
-
IF COND(&AA *EQ 5 ) THEN(GOTO END)
-
-
IF COND(&AA *EQ 5 ) THEN(DO)
-
処理
-
ENDDO
-
ELSE DO
-
処理
-
ENDDO
-
-
IF (&PM1 *EQ IGNR) CHGVAR &ANS '1'
-
ELSE IF (&PM1 *EQ NONE) CHGVAR &ANS '2'
-
ELSE IF (&PM1 *EQ NORM) CHGVAR &ANS '3'
-
ELSE IF (&PM1 *EQ ABCD) CHGVAR &ANS '4'
TrackBack URL :
Comments (0)