|
Hello all! If I have to use the Math Bindable API's CEESSCOS and CEESSSIN as a procedure that returns a value, do I have to pass mandatory as well as optional parameter all the time. h dftactgrp(*no) actgrp(*new) bnddir('QILE') d Sin pr 4f extproc('CEESDSIN') d Parm1 4f * d Cos pr 4f extproc('CEESDCOS') d Parm2 4f d x s 4f inz d LatRad1 s 4f inz d LatRad2 s 4f inz c eval x = (Sin(LatRad1) * Sin(LatRad2)) + c (Cos(LatRad1) * Cos(LatRad2)) OR do I have to specify d Sin pr 4f extproc('CEESSSIN') d Parm1 4f d FeedBack1 12 options(*omit) * d Cos pr 4f extproc('CEESSCOS') d Parm2 4f d FeedBack2 12 options(*omit) d x s 4f inz d LatRad1 s 4f inz d LatRad2 s 4f inz c eval x = (Sin(LatRad1:*omit) * Sin(LatRad2:*omit)) + c (Cos(LatRad1:*omit) * Cos(LatRad2:*omit)) When I used the first approach the program worked fine for the first time. But, everytime I compile and then call the program, the program bombs with the foll. errors Pointer not set for location referenced. Unexpected user error occurred in CEESSSIN. Strangely enough, the program seems to work in debug mode!! What am I doing wrong? thnax ajith +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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 copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.