|
View previous topic :: View next topic
|
| Author |
Message |
abhijit.nayak01
Active User
Joined: 22 Mar 2009
Posts: 161
Location: South Africa
|
|
|
|
Hi, Please check below:
REXX Program:
| Code: |
/**********REXX***********/
PARM1=ITSORT
PARM2=TREC
"EXECIO * DISKR MYINDD (FINIS STEM REC."
DO I = 1 TO REC.0
IF (SUBSTR(REC.I,1,6) == PARM1) & (SUBSTR(REC.I,8,4) \= PARM2) THEN
SAY "YOU ENTERED A WRONG PROGRAM MODE. ",
"ENTER THE PROGRAM MODE AS: " SUBSTR(REC.I,8,4)
ELSE
SAY "CONGRATS YOU ENTERED RIGHT PROGRAM AND MODE"
END
|
Output:
YOU ENTERED A WRONG PROGRAM MODE. ENTER THE PROGRAM MODE AS: BATC
CONGRATS YOU ENTERED RIGHT PROGRAM AND MODE
CONGRATS YOU ENTERED RIGHT PROGRAM AND MODE
CONGRATS YOU ENTERED RIGHT PROGRAM AND MODE
***
the content of file :
ITSORT BATC
ITTEST ONLI
TESTMR DUAL
TESTIT BATC
Here even if the condition with the first IF statement matches it is still going to the ELSE condition. I need to exit out of the IF condition whenever the 1st IF satisfies.
Can anyone suggest me.
Thanks,
Abhijit. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Learn to use code tags ! ........... and the EXIT statement
| Code: |
/**********REXX***********/
/*TRACE I*/
/*ARG PARM1 PARM2*/
PARM1=ITSORT
PARM2=TREC
"ALLOC DA('TESTITN.PGMNAME.LIST') F(MYINDD) SHR REUSE"
"EXECIO * DISKR MYINDD (FINIS STEM REC."
DO I = 1 TO REC.0
IF (SUBSTR(REC.I,1,6) == PARM1) & (SUBSTR(REC.I,8,4) \= PARM2)
THEN DO
SAY "YOU ENTERED A WRONG PROGRAM MODE. ",
"ENTER THE PROGRAM MODE AS: " SUBSTR(REC.I,8,4)
EXIT
END
ELSE
SAY "CONGRATS YOU ENTERED RIGHT PROGRAM AND MODE"
END |
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| deleted by poster |
|
| Back to top |
|
|
|
|
