A while back, Seeker1 posted this question. Unfortuantely, he didn't provide enough information for Tom to help. Well - I have the same problem so hopefully, this will be enough.
This Select statement generates the error:
SELECT UNUNIT, ITRVEHLOC(UNUNIT , 'CITY ') FROM Units
Here are the supporting commands and code:
Create Function ITRVEHLOC( UNIT Char( 6), PROXTO Char( 5)) Returns CHAR Language RPGLE Specific ITRVEHLOC Deterministic No SQL Returns Null on Null Input No External Action Not Fenced External Name 'OMNISITE/ITRVEHLOC(ITRVEHLOC)' Parameter Style SQL
CRTSRVPGM SRVPGM(OMNISITE/ITRVEHLOC) MODULE(OMNISITE/ITRVEHLOC) EXPORT(*ALL) TEXT('Service Program for mod ITRVEHLOC')
H NOMAIN * D ITRVEHLOC PR 50A Prototype D Unit 6A D ProxType 5A * P ITRVEHLOC B EXPORT Begin Procedure * D ITRVEHLOC PI 50A Procedure Interface D Unit 6A Input Unit D ProxType 5A Input Proximity Type * D Location S 50A Internal Variable * C Call 'OMGETLCR' Call RPG C Parm Unit Pass Parameters C Parm ProxType C Parm Location * C Return Location Return Location * P ITRVEHLOC E End Procedure
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!