Re: Strange CL problem with SUBR

["Colin Redman" <colin.redman@xxxxxxxxxxxxxx>]

You need to put the ENDPGM before the SUBR.

----- Original Message ----- 
From: <jvoris@xxxxxxxxxxx>
To: "midrange-l" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, January 29, 2008 5:18 PM
Subject: Strange CL problem with SUBR


> You need to insert a line GOTO ENDPGM immediately before the SUBR
> declaration.
>
> As far as I know, it has always worked this way.
>
> It is not RPG Subroutines at the end of Mainline code.  It is CL !
>
> > PGM
> > <declarations>
> >
> >
> > <do preprocessing for terminal 2>
> > CALLSUBR   SUBR(sndReport)
> > DLTSPLF    FILE(&rptPrtF) JOB(&JOB#/*N/&JOBNM) SPLNBR(&attSplNum)
> > /*If spool file not active error message occurs, ignore and continue. */
> > MONMSG     MSGID(CPF3309)
>
> GOTO ENDPGM
>
> > SUBR       SUBR(sndReport)
> >     <get user's email address>
> >     <send mail with attachment>
> > ENDSUBR
> >
> > ENDPGM: ENDPGM
> --
> 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.