RE: CL: SELECT, WHEN problem?

When using SELECT  /  WHEN
You do not need the THEN(DO) and ENDDO.
If the WHEN is true, by default the following lines will be executed to
the next WHEN or ENDSL. 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mel Rothman
Sent: Thursday, January 27, 2005 11:43 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: CL: SELECT, WHEN problem?

There is a PTF for this problem.

See:  http://makeashorterlink.com/?M1B76585A

Mel Rothman
Mel Rothman, Inc.


ron_adams@xxxxxxxxxxxxxx wrote:
> I ran into an issue using this new syntax as follows:
> 
>   59000-         SELECT  
>   59100-         WHEN COND(&IN13) THEN(DO)  
>   59200-             CALL PGM(QCMDEXC) PARM(&CMD13 25)  
>   59300-             MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(REREAD2))

>   59400-          /* GOTO REREAD  */  
>   59500-         ENDDO  
>   59600-         WHEN COND(&IN14) THEN(DO)  
>   59700-             CALL PGM(QCMDEXC) PARM(&CMD14 25)  
>   59800-             MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(REREAD2))

>   59900-             GOTO REREAD  
>   60000-         ENDDO  
> * CPD0877 30  WHEN, OTHERWISE, or ENDSELECT command expected.  
> * CPD0877 30  WHEN, OTHERWISE, or ENDSELECT command expected.  
> 
> Apparently, you can't have a GOTO inside of a WHEN section. 
> 
> Has anyone else run into this? Does this seem right?
> 
> Thanks,
> 
> Ron Adams
> 

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.




NOTICE: This electronic mail message and any files transmitted with it are 
intended exclusively for the individual or entity to which it is addressed. The 
message, together with any attachment, may contain confidential and/or 
privileged information. Any unauthorized review, use, printing, saving, 
copying, disclosure or distribution is strictly prohibited. If you have 
received this message in error, please immediately advise the sender by reply 
email and delete all copies.