Re: Does Otherwise support callsubr?

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

I would think it would, but if necessary you could always

Otherwise cmd(do)
  .
  .
  .
Enddo


On Mon, Apr 22, 2013 at 3:25 PM, <rob@xxxxxxxxx> wrote:

>        Otherwise cmd(callsubr(wtf))
> CPD0789: No command specified on OTHERWISE command.
> CPD0099: Previous 1 errors found in embedded command .
> CPD0033: String beginning 'CALLSUBR  ' not valid command name.
>
> Part of
>
>  /* The only way this program will end is via ENDJOB */
>  dowhile (1=1)
>     Call Qrcvdtaq parm(&DataQueue &DQLibrary &DQDataLen &DQData
> &DQWaitTime)
>     Select
>        When (&DQData='*MOUNT') Then(callsubr mount)
>        When (&DQData='*UNMOUNT') Then(callsubr unmount)
>        Otherwise cmd(callsubr(wtf))
>     EndSelect
>  Enddo
>
>
> Rob Berendt
> --
> IBM Certified System Administrator - IBM i 6.1
> Group Dekko
> Dept 1600
> Mail to:  2505 Dekko Drive
>           Garrett, IN 46738
> Ship to:  Dock 108
>           6928N 400E
>           Kendallville, IN 46755
> http://www.dekko.com
>
> --
> 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.