|
View previous topic :: View next topic
|
| Author |
Message |
mohanrazz
New User
Joined: 30 Sep 2008
Posts: 30
Location: India
|
|
|
|
Hi All..I have a small query..
| Code: |
IF WS-IO-NUM NOT NUMERIC THEN
MOVE ZERO TO WS-IO-FILE-REQUEST-NUM.
GO TO 210-IO-READ
215-IO-READ-GTEQ
220-IO-READ-UPDATE
225-IO-READ-UPDATE-GTEQ
230-IO-WRITE
240-IO-REWRITE
250-IO-DELETE
260-IO-UNLOCK
270-IO-STARTBR
280-IO-READNEXT
290-IO-READPREV
300-IO-ENDBR
230-IO-WRITE
310-IO-READ-SET
|
I have code like above in one of the progs..Does this mean - if my "IF" condition is satisfied all the mentioned lables are executed one after another?? Thanks. |
|
| Back to top |
|
 |
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
| Back to top |
|
|
mohanrazz
New User
Joined: 30 Sep 2008
Posts: 30
Location: India
|
|
|
|
Bhairon..thanks..
I too have never seen more than one label in GO TO statement..I am still wondering..if this gives control to only first label why the rest of all are coded..this code is very much in live..i still wonder is there any possiblity that all the labels are executed?? |
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
| Is there any depending upon condition below GOTO |
|
| Back to top |
|
|
GuyC
Senior Member
Joined: 11 Aug 2009
Posts: 1281
Location: Belgium
|
|
|
|
| does it say anywhere near the end depending on |
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
Yes Just have a look on below document
publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com.ibm.etools.iseries.langref.doc/evfeb4ls02.htm
| Quote: |
Format 2 (Conditional GO TO)
Description
The conditional GO TO statement transfers control to one of a series of procedures, depending on the value of the identifier. The maximum number of procedure-names for a conditional GO TO statement is 255.
Format 2 (Conditional GO TO)
*---------------*
V +
->->---GO-*--*--procedure-name-1*-DEPENDING--*--*-identifier--><-
*TO* *ON*
procedure-name-1
Procedure-name-1 must be a procedure or a section in the same Procedure Division as GO TO.
Identifier
Identifier must be a numeric elementary data item which is an integer.
If 1, control is transferred to the first statement in the procedure named by the first occurrence of procedure-name-1;
If 2, control is transferred to the first statement in the procedure named by the second occurrence of procedure-name-1, and so forth.
If the value of identifier is anything other than a value within the range of 1 through n, (where n is the number of procedure-names specified in this GO TO statement), no control transfer occurs. Instead, control passes to the next statement in the normal sequence in running the |
|
|
| Back to top |
|
|
mohanrazz
New User
Joined: 30 Sep 2008
Posts: 30
Location: India
|
|
|
|
yeah..yes..thanks guys..there is "DEPENDING ON"..i think i missed out that..now it is ok  thx |
|
| Back to top |
|
|
bhairon singh rathore
New User
Joined: 19 Jun 2008
Posts: 91
Location: banglore
|
|
|
|
Good to hear your doubt got cleared 
But it is always better to make the effort to find out your queries other then depending on others  |
|
| Back to top |
|
|
CaptBill
New User
Joined: 28 May 2009
Posts: 20
Location: Oklahoma City, OK USA
|
|
|
|
I would avoid a "Go TO ... DEPENDING" construct and replace it with an EVALUATE construct. It will be much clearer to the person that comes after you and has to do maintenance.
Always write code for maintenance, and you will make everyone's job easier. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
| Back to top |
|
|
|
|
