Re: CL: SELECT, WHEN problem?

[Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx>]

On Thu, 2005-01-27 at 23:17 -0600, 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. 
Sorry, I haven't yet gotten to play with this stuff, but the error seems
to be indicating that you are missing a clause - WHEN, OTHERWISE, or
ENDSELECT, not that you have an illegal GOTO.

Do you have an ENDSELECT that you aren't showing?


--
Regards,
Rich

Current Conditions in Des Moines, IA
Overcast
Temp 24.8F, Windchill 15.4F
Winds out of the Southeast at 9mph