Re: RDP 9.0.0.1 Outline and /EOF

[Sam_L <lennon_s_j@xxxxxxxxxxx>]

Ah ha!  Thanks.  I'll give that a try.

Sam

On 10/10/2013 4:13 AM, Paul Bailey wrote:
> I haven't seen the /EOF anywhere in our source, so I tried your small example and I can reproduce the same. (i.e. the GETNEXTCHILD prototype disappears from the outline when the /EOF is uncommented.)
>
> In menu option "Windows|Preferences|Remote Systems|IBM i|Program Verifier|ILE RPG" there is a section for defining condition names. I put the CompileSRV_EXPL condition in there and the prototype showed up in the outline every time.
>
> As I don't have any source with /EOF then it is up to you to find out if you can still compile your objects as you would expect, but at least you now know how to define the conditions for the outline to work. Can you let us know how you get on?
>
>
> -Paul.
>
>
> -----Original Message-----
> From: wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx] On Behalf Of Sam_L
> Sent: 10 October 2013 01:54
> To: wdsci-l@xxxxxxxxxxxx
> Subject: [WDSCI-L] RDP 9.0.0.1 Outline and /EOF
>
> In the trimmed down bit of code below, if I un-comment the "/eof"
> statement on line 11, my outline goes away.  Whether or not the preceding "/if not defined" is commented or un-commented makes no difference.
>
> Doesn't matter whether live outline is on or off.
>
> I know how to define CompileSRV_EXPL on a custom compile command, but how do I tell LPEX?
>
> I miss my outline...
>
> Sam
>
>
>        H*DftActgrp(*no) Actgrp(*Caller)
>         /if defined (CompileSRV_EXPL)
>        H debug  nomain
>        H option(*nodebugio: *srcstmt)
>         *==============================================================
>        FBOMMASPF  IF   E           K DISK
>        FITEMMS00  IF   E           K DISK    prefix(I_)
>         /endif
>
>         *=== End of Prototypes for Exported SRV_EXPL routines
>         /if not defined (CompileSRV_EXPL)
>         */eof
>         /endif
>
>        D*--------------------------------------------------
>        D* Procedure name: GetNextChild
>        D* Purpose:
>        D* Returns:        *ON = Got recd, *Off = No more records
>        D* Parameter:      itnbr => Parent Item Number
>        D*--------------------------------------------------
>        D GetNextChild    PR              N
>        D  itnbr                              LIKE(i_ITNBR)
>
> --
> This is the Rational Developer for IBM i / Websphere Development Studio Client for System i & iSeries  (WDSCI-L) mailing list To post a message email: WDSCI-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
> or email: WDSCI-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives at http://archive.midrange.com/wdsci-l.
>
> Scanned by MailDefender - managed email security from intY - www.maildefender.net
>
> Important, this email transmission and any files with it are strictly confidential to the intended recipient and may be legally privileged. Any views or opinions presented are solely those of the author and do not necessarily represent those of BHSF. If you are not the intended recipient, you must not copy, disclose or distribute its contents in any way. If you have received this e-mail in error, please notify the sender and delete the e-mail from your system.
>
> We have taken steps to ensure this email and attachments are free from any virus but do not accept any responsibility once this e-mail has been transmitted. You should scan any attachments for viruses. No contract may be concluded on behalf of BHSF Limited by e-mail.
>
> Registered Office: BHSF Limited, Gamgee House, 2 Darnley Road, Birmingham, B16 8TE. www.bhsf.co.uk Registered in England number 35500. BHSF is authorised and regulated by the Financial Services Authority.