Hi,
This may not seem like an XA related problem, but it is related to using System-Link with an XA File/Table.
In short, I'm developing a sub-system to take output from a CAD system and inputting it to EPDM using System-Link. I have got all the programs to run separately, but I'm finding little bugs when doing full testing. My latest issue has been resolved by reading a Product Structure Detail (PSTDTL) record with SQL which provides me with a Token in hexadecimal. I now need to update this record with an XML command through System-Link.
If I want to update this record with System-Link, the Token needs to be converted to character. My research has found that the way to do this is to define a Procedure using the "cvtch" service program. However, I do not have this object on my system. I have the source in QSYSINC/MIH, but can't get the sequence of events that need to be used to turn the source into a Service Program. I have compiled the source into a module with CRTCMOD but from here I am stuck. Whatever I do with the CRTSRVPGM command, I get an error and the listing output is not helpful.
Does anyone have an idea of what I need to do to accomplish my mission. In the internet articles, it intimates the service program should be on the system, but it isn't. We are running 7.1 on our IBMi Server.
Assistance is greatly appreciated.
Rgrds,
Alan McKenzie
XA Consultant
[cid:image001.png@01CF39EB.2A7AEA70]
Registration Number: 1967/005978/07
Office: +27 12 381 1405 | Switchboard: +27 12 381 1400
Mobile: +27 (0) 82 453 7990
E-mail: AMcKenzie@xxxxxxxxxxx<mailto:AMcKenzie@xxxxxxxxxxx>
NOTE:- This e-mail message and all attachments hereto contain confidential information intended for specific addressee and purpose. If you are not the addressee:
(a) You may not disclose, copy, distribute or take any action based on the contents hereof.
(b) Kindly inform the sender immediately and destroy all copies thereof.
(c) Any discloser, copying, distribution or any action taken or omitted in reliance on it, is prohibited and may be unlawful.
The views and opinions expressed in this e-mail message may not necessarily be those of the management of the company.
Disclaimer
The information contained in this communication from the sender is confidential. It is intended solely for use by the recipient and others authorized to receive it. If you are not the recipient, you are hereby notified that any disclosure, copying, distribution or taking action in relation of the contents of this information is strictly prohibited and may be unlawful.
This email has been scanned for viruses and malware, and automatically archived by Mimecast SA (Pty) Ltd, an innovator in Software as a Service (SaaS) for business. Mimecast Unified Email Management (UEM) offers email continuity, security, archiving and compliance with all current legislation. To find out more, visit
http://www.mimecast.co.za/uem.
midrange.com
