Re: Does Otherwise support callsubr?

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

I wanna know what subr "wtf" does.



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

> Thank you.  I changed it to
>        Otherwise cmd(callsubr wtf)
>
>
> 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
>
>
>
>
>
> From:   Roger Harman <roger_harman@xxxxxxxxxxx>
> To:     "'Midrange Systems Technical Discussion'"
> <midrange-l@xxxxxxxxxxxx>,
> Date:   04/22/2013 03:44 PM
> Subject:        RE: Does Otherwise support callsubr?
> Sent by:        midrange-l-bounces@xxxxxxxxxxxx
>
>
>
> Should be:
>
> cmd(callsubr wtf)
>  OR
> cmd(callsubr  subr(wtf))
>
> Your syntax is like a function call.
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
> Sent: Monday, April 22, 2013 12:25 PM
> To: midrange-l@xxxxxxxxxxxx
> Subject: Does Otherwise support callsubr?
>
>        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.
>
>
> --
> 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.
>
>
> --
> 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.