×
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 made some changes, but I am not getting the data. This is my new
prototype:
D JbtPrice PR N
D JbtPriceDS LikeDS(JbtInfo)
D JbtInfo DS
D JobIn 6 0
D ItemIn 15
D DateIn 8 0
D PrcOut 15 5
This is the service program parts:
/COPY QPROSRC,PROJBT
PJbtPrice B EXPORT
D*
D JbtPrice PI N
D JbtPriceDS LikeDS(JbtInfo)
Do stuff
PJbtPrice E
This is my program:
/COPY QPROSRC,PROJBT
D RtnInd S N
D JbtPriceDS DS LikeDS(JbtInfo)
C Eval JbtPriceDS.DateIn = ShipDt
C Eval JbtPriceDS.ItemIn = Item
C Eval JbtPriceDS.JobIn = JLJBT#
C Eval JbtPriceDS.PrcOut = 0
C Eval RtnInd = JbtPrice(JbtPriceDS)
C Eval WrkPrc = JbtPriceDS.PrcOut
I am getting a data decimal error because jbtinfo.JobIn is blank. It is
correct in JbtPriceDS.JobIn.
Terri Harteau
Felker Brothers Corporation
****************
"Do not follow where the path may lead. Go instead where there is no path
and leave a trail."
Ralph Waldo Emerson
****************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
midrange.com
