Service Program Pointers

Hi,

I did a service program a few years ago and I trying to do anther. Most of
the stuff is copied from the working one. When I call the program, I am
getting the errors:
Pointer not set for location referenced.
Function check. MCH3601 unmonitored by SRVJBT at statement
0000004100, instruction X'0000'.
The call to JBTPRICE ended in error (C G D F).

JBTPRICE is the module & SRVJBT is the service program. This is from the
compiled JBTPRICE. I used a copy to get the prototype in the program. It
is the only place I use a pointer:
*COPY QPROSRC,PROJBT
D JbtPrice PR N
D JbtPriceDS LikeDS(JbtInfo)

D JbtInfo DS Based(JbtInfoPtr)
D JobIn 6 0
D ItemIn 15
D DateIn 8 0
D PrcOut 15 5

D*JbtInfoPtr S * Inz(%Addr(JbtInfo))
In my program that uses the service program, I copy in the same prototype
and have this to get the price back:
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

These are the values according to the dump:
JBTINFO DS
DATEIN ZONED(8,0) NOT ADDRESSABLE
ITEMIN CHAR(15) NOT ADDRESSABLE
JOBIN ZONED(6,0) NOT ADDRESSABLE
PRCOUT ZONED(15,5) NOT ADDRESSABLE
JBTINFOPTR POINTER SPP:*NULL
JBTPRICEDS DS
DATEIN ZONED(8,0) 20100331.
'F2F0F1F0F0F3F3F1'X
ITEMIN CHAR(15) 'A01B6360 '
VALUE IN HEX 'C1F0F1C2F6F3F6F040404040404040'X

JOBIN ZONED(6,0) 006982.
'F0F0F6F9F8F2'X
PRCOUT ZONED(15,5) 0000000000.00000

I guess I don't know enough about pointers to see anything to point me in
the right direction. Can anyone tell me what my problem is? Thanks!

<===================================================>

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

****************