Re: CL: SELECT, WHEN problem?

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

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