Re: CL: SELECT, WHEN problem?

[ron_adams@xxxxxxxxxxxxxx]

That fixed it. Thanks for the pointer.


Ron Adams






Mel Rothman <mel@xxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/27/2005 11:42 PM
Please respond to Midrange Systems Technical Discussion

 
        To:     midrange-l@xxxxxxxxxxxx
        cc: 
        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.