|
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 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.
