Re: Missing Outline in RDP 9 - Solved

[Sam_L <lennon_s_j@xxxxxxxxxxx>]

OK, I've solved the squiggly lines everywhere and the missing outline 
problem.  I had a condition defined.  When the condition is set it 
include the entire source of a service program, rather than just the 
prototypes from the service program.  Once I got rid of the define 
nearly everything is good.

Maybe not a lot of people use defines, but is there a way to make them 
specific to just a single member?  I've used a custom create command in 
the past, but that doesn't work well with the live outlining.

Sam

On 11/14/2013 9:25 PM, Sam_L wrote:
> Slightly different Scenario:
>
> I closed RDP 9 with the member open.
>
> I restarted RDP 9.  I have an outline, no squigglys, the yellow triangle
> is on the first /COPY and hover says "/COPY qrpglesrc,Exploder_A not
> available.  Refresh outline after ensuring the remote file is
> available".  It should be available because it is in a library in the
> library list.  And I can compile from RDP 9.   I believe QZRCSRVS is the
> servicing job.  I checked the library list and it looks right.
>
> If I put the cursor on the /COPY line and click Source, then /COPY
> member, Edit and Browse are greyed out.
>
> I add the library to the /COPY:
>        /COPY libname/qrpglesrc,Exploder_A
>
> I click Source, then /COPY member, Edit and Browse are still greyed out.
>
> But if I refresh the outline, then I can Edit or Browse the /COPY
> member.  (Strictly speaking, I can only Browse, because I don't have
> update rights to the library.)  Ummm.  It seems that moving off the
> /COPY line and then back also make Edit and Browse available.
>
> First few lines of the code shown below
>
>        * Concept: Replacement for PDM210R and associated programs,
>        *          build a new PSA100 all in a single step.
>
>       h Option(*NODEBUGIO:*SRCSTMT)
>       h DftActGrp(*no) ActGrp('QILE')
>       H bnddir('SRV_EXPL')
>
>        *=== Files ====================================================
>       fPEN_INV   O    E           K DISK    EXTFILE('PEN_INVT')
>       fITEMMS00  IF   E           K DISK    prefix('IM_')
>
>        *=== Layout of array element returned from Exploder ===========
>        /COPY qrpglesrc,Exploder_A
>
>        *=== Arrary for records returned from Exploder ================
>       d Exp             ds                  likeds(Exploder_A)
>       d                                     based(Exp_P)
>       d                                     dim(999)
>        *=== Output Parms for ExplodeR ================================
>
> Sam
>
>
>
> On 11/14/2013 8:06 PM, Edmund Reinhardt wrote:
> > Do there happen to be copy files immediately before this f-spec, or is
> > this
> > the top of the file?
> > I don't think I have seen this behaviour yet.
> >
> >
> >
> > Regards,
> >
> >
> >
> > Edmund (E.H.) Reinhardt
> > COBOL IDE on AIX, DDS, WebFacing, System i Application Development,
> > Rational Developer for Power