× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I keep getting this error when trying to refresh the outline view, but only
on a specific source member that is a *nomain module which I compile into a
service program. The outline works fine for all the other source members I'm
currently working with. I've had another co-worker try to refresh the
outline for this problem source member and he gets the same error as well.
The source for the module (named DB2Service) is listed after the error
below. I'm using WDSC for iSeries version 5.0.1. The Eclipse.org features
are at version 2.0.3. Has anyone else experienced this problem? Thanks for
any help.

!SESSION Aug 10, 2004
16:30:13.926 ---------------------------------------------
java.fullversion=J2RE 1.3.1 IBM Windows 32 build cn131-20020710 (JIT
enabled: jitc)
BootLoader constants: OS=win32, ARCH=x86, WS=win32, NL=en_US
Command-line arguments: -os win32 -ws win32 -arch x86 Files\IBM\WebSphere
Studio\.\eclipse\eclipse.exe -data C:\Documents and Settings\whiteda\My
Documents\IBM\wdsc\workspace -feature com.ibm.wdsclient -install
file:C:/Program Files/IBM/WebSphere Studio/eclipse/
!ENTRY org.eclipse.ui 4 2 Aug 10, 2004 16:30:13.926
!MESSAGE Problems occurred when invoking code from plug-in:
"org.eclipse.ui".
!STACK 0
java.lang.NullPointerException
        at
        at
com.ibm.etools.iseries.editor.ISeriesEditorRPGILEModel.createOutline(ISeries
EditorRPGILEModel.java:93)
        at
com.ibm.etools.iseries.editor.ISeriesEditorRPGILEParser.getModel(ISeriesEdit
orRPGILEParser.java:1272)
        at
com.ibm.etools.iseries.editor.ISeriesEditorParser.getAdapter(ISeriesEditorPa
rser.java:366)
        at
com.ibm.etools.systems.core.edit.SystemTextEditor.getAdapter(SystemTextEdito
r.java:313)
        at
org.eclipse.ui.views.contentoutline.ContentOutline.doCreatePage(ContentOutli
ne.java:100)
        at org.eclipse.ui.part.PageBookView.createPage(PageBookView.java:276)
        at org.eclipse.ui.part.PageBookView.partActivated(PageBookView.java:521)
        at 
org.eclipse.ui.internal.PartListenerList$1.run(PartListenerList.java:39)
        at org.eclipse.core.runtime.Platform.run(Platform.java(Compiled Code))
        at org.eclipse.core.runtime.Platform.run(Platform.java(Compiled Code))
        at
org.eclipse.ui.internal.PartListenerList.firePartActivated(PartListenerList.
java:37)
        at
org.eclipse.ui.internal.WorkbenchPage.firePartActivated(WorkbenchPage.java:1
044)
        at
org.eclipse.ui.internal.WorkbenchPage.setActivePart(WorkbenchPage.java:2122)
        at 
org.eclipse.ui.internal.WorkbenchPage.activate(WorkbenchPage.java:333)
        at
org.eclipse.ui.internal.WorkbenchPage.openEditor(WorkbenchPage.java:1723)
        at
org.eclipse.ui.internal.WorkbenchPage.openEditor(WorkbenchPage.java:1594)
        at 
org.eclipse.ui.actions.OpenFileAction.openFile(OpenFileAction.java:91)
        at
org.eclipse.ui.actions.OpenSystemEditorAction.run(OpenSystemEditorAction.jav
a:91)
        at
org.eclipse.ui.views.navigator.OpenActionGroup.runDefaultAction(OpenActionGr
oup.java:112)
        at
com.ibm.etools.iseries.perspective.internal.ui.navigator.ISeriesNavigatorAct
ionGroup.runDefaultAction(ISeriesNavigatorActionGroup.java:349)
        at
com.ibm.etools.iseries.perspective.internal.ui.navigator.ISeriesNavigator.ha
ndleOpen(ISeriesNavigator.java:330)
        at
com.ibm.etools.iseries.perspective.internal.ui.navigator.ISeriesNavigator$6.
open(ISeriesNavigator.java:205)
        at
org.eclipse.jface.viewers.StructuredViewer.fireOpen(StructuredViewer.java:32
0)
        at
org.eclipse.jface.viewers.StructuredViewer.handleOpen(StructuredViewer.java:
494)
        at
org.eclipse.jface.viewers.StructuredViewer$3.handleOpen(StructuredViewer.jav
a:581)
        at 
org.eclipse.jface.util.OpenStrategy.fireOpenEvent(OpenStrategy.java:198)
        at
org.eclipse.jface.util.OpenStrategy$1.handleEvent(OpenStrategy.java(Compiled
Code))
        at
org.eclipse.jface.util.OpenStrategy$1.handleEvent(OpenStrategy.java(Compiled
Code))
        at org.eclipse.swt.widgets.EventTable.sendEvent(EventTable.java(Compiled
Code))
        at 
org.eclipse.swt.widgets.Display.runDeferredEvents(Display.java(Compiled
Code))
        at 
org.eclipse.swt.widgets.Display.runDeferredEvents(Display.java(Compiled
Code))
        at org.eclipse.swt.widgets.Display.readAndDispatch(Display.java(Compiled
Code))
        at 
org.eclipse.ui.internal.Workbench.runEventLoop(Workbench.java(Compiled
Code))
        at org.eclipse.ui.internal.Workbench.run(Workbench.java:1326)
        at
org.eclipse.core.internal.boot.InternalBootLoader.run(InternalBootLoader.jav
a:831)
        at org.eclipse.core.boot.BootLoader.run(BootLoader.java:462)
        at java.lang.reflect.Method.invoke(Native Method)
        at org.eclipse.core.launcher.Main.basicRun(Main.java:247)
        at org.eclipse.core.launcher.Main.run(Main.java:703)
        at org.eclipse.core.launcher.Main.main(Main.java:539)

     H/TITLE DB2SERVICE DB2 Database Service Program.
     H NOMAIN
     H OPTION(*NODEBUGIO)
     F* File Descriptions
     FDBBLOEI1  if   e           k disk    usropn
Invoice Header
     FDBBLOIN1  if   e           k disk    usropn
Invoice Types
     FDBIFGAD1  if   e           k disk    usropn
GL Address
     FDBYKTXA1  if   e           k disk    usropn
York Tax Audit
     D* DB2SERVICE procedure prototype copybook
     D/copy blrpgsrc7,db2srvcopy

H***************************************************************************
*******************
     H* Modification Log:
     H*  ID      Date    Programmer  Comments
     H* ===== ==========
===========================================================================
     H* XXXNN MM/DD/CCYY Dave White:

H***************************************************************************
*******************
     C* File Key Lists
     C     KEYOEI        KLIST
     C                   KFLD                    doeicmpny
Company
     C                   KFLD                    doeiinvprf
Invoice Prefix
     C                   KFLD                    doeiinnmbr
Invoice Number
     C     KEYOIN        KLIST
     C                   KFLD                    doincmpny
Company
     C                   KFLD                    doininvcty
Invoice Type
     C     KEYGAD        KLIST
     C                   KFLD                    dgadcmpny
Company
     C                   KFLD                    dgadaccunt
Accounting Unit
     C     KEYTXA        KLIST
     C                   KFLD                    dtxacmpny
Company
     C                   KFLD                    dtxainvprf
Invoice Prefix
     C                   KFLD                    dtxainnmbr
Invoice Number
     C                   KFLD                    dtxaactvty
Activity

P***************************************************************************
*******************
     P* Sub-Procedure: GetCreditFlag
     P*

P***************************************************************************
*******************
     PGetCreditFlag    b                   export
     DGetCreditFlag    pi             1a
     DCompany                         4s 0 value
     DInvoicePrefix                   2a   value
     DInvoiceNumber                   8s 0 value
     D* Local Variables
     DCreditFlag       s              1a   inz(*blank)
      /free

       //Retrieve invoice
       open DBBLOEI1;
       eval doeicmpny  = Company;
       eval doeiinvprf = InvoicePrefix;
       eval doeiinnmbr = InvoiceNumber;
       chain KEYOEI oeifmt;
       if %found;
         //Retrieve invoice type of the original invoice
         open DBBLOIN1;
         eval doincmpny = doeicmpny;           //company
         eval doininvcty = doeiinvcty;         //invoice type
         chain(n) KEYOIN oinfmt;
         if %found;
           eval CreditFlag = doininvccr;       //invoice credit flag
         endif;

       endif;

       if %open(DBBLOEI1);
         close DBBLOEI1;
       endif;

       if %open(DBBLOIN1);
         close DBBLOIN1;
       endif;

       return CreditFlag;
      /end-free
     PGetCreditFlag    e

P***************************************************************************
*******************
     P* Sub-Procedure: GetCreditType
     P*

P***************************************************************************
*******************
     PGetCreditType    b                   export
     DGetCreditType    pi             1a
     DCompany                         4s 0 value
     DInvoicePrefix                   2a   value
     DInvoiceNumber                   8s 0 value
     DActivity                       15a   value
     D* Local Variables
     DCreditType       s              1a   inz(*blank)
     DAuditTotal       s             15s 2 inz(*zero)
     DCreditTotal      s             15s 2 inz(*zero)
     DFullCredit       c                   const('F')
     DPartialCredit    c                   const('P')
      /free

       //Retrieve invoice
       open DBBLOEI1;
       eval doeicmpny  = Company;
       eval doeiinvprf = InvoicePrefix;
       eval doeiinnmbr = InvoiceNumber;
       chain KEYOEI oeifmt;
       if %found;

         eval CreditTotal = doeiingobs + doeinningb + doeimsttbs +
doeifrchrb;
         open DBYKTXA1;
         eval dtxacmpny = Company;
         eval dtxainvprf = doeiorinpr;
         eval dtxainnmbr = doeiorinnb;
         eval dtxaactvty = Activity;
         chain KEYTXA txafmt;
         if %found;

           eval AuditTotal = dtxaingobs + dtxanningb + dtxamsttbs +
dtxafrchrb;

           select;

             when AuditTotal = (CreditTotal * -1);
               eval CreditType = FullCredit;

             when AuditTotal = CreditTotal;
               eval CreditType = FullCredit;

             other;
               eval CreditType = PartialCredit;

           endsl;

         else; //assume partial credit if no audit record was found
           eval CreditType = PartialCredit;
         endif;

       endif;

       if %open(DBBLOEI1);
         close DBBLOEI1;
       endif;

       if %open(DBYKTXA1);
         close DBYKTXA1;
       endif;

       return CreditType;
      /end-free
     PGetCreditType    e

P**************************************************************************
     P* Sub-Procedure: GetShpFmAddress
     P*

P**************************************************************************
     PGetShpFmAddress  b                   export
     DGetShpFmAddress  pi                  likeds(ShipFromAddress)
     DCompany                         4  0 value
     DAccountUnit                     5a   value
     D* local variables
     DShipFromAddress  ds            56    inz
     DCountryCode                     2a
     DState                           2a
     DCounty                         25a
     DCity                           18a
     DZipCode                         5a
     DGeoCode                         4a
      /free

       //Retrieve Ship-From data from G/L address.
       open DBIFGAD1;
       eval dgadcmpny = Company;
       eval dgadaccunt = AccountUnit;
       chain(n) KEYGAD gadfmt;
       if %found;

         eval CountryCode = dgadcntryc;
         eval County  = dgadcounty;
         eval City = dgadaddr5;

         select;

           when CountryCode = 'CA';
             eval State = dgadsttprv;
             eval ZipCode = %subst(dgadpstlcd:1:6);
             eval GeoCode = *blank;

           when CountryCode = 'US';
             eval State = dgadsttprv;
             eval ZipCode = %subst(dgadpstlcd:1:5);
             eval GeoCode = %subst(dgadpstlcd:7:4);

           other;
             eval State = dgadsttprv;
             eval ZipCode = dgadpstlcd;
             eval GeoCode = *blank;

         endsl;


       endif;

       if %open(DBIFGAD1);
         close DBIFGAD1;
       endif;

       return ShipFromAddress;
      /end-free
     PGetShpFmAddress  e


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.