|
Hello Steve, Here's a sample: H Option( *NoSrcStmt ) ** D HxUUID s 32a ** D UUID_template Ds D UtBytPrv 10u 0 Inz( %Size( UUID_template )) D UtBytAvl 10u 0 D 8a Inz( *Allx'00' ) D UUID 16a ** D GenUuid Pr ExtProc('_GENUUID') D UUID_template * Value ** D cvthc Pr * ExtProc('cvthc') D * Value D * Value D 10I 0 Value ** C Callp GenUuid( %Addr( UUID_template )) ** C CallP cvthc( %Addr( HxUUID ) C : %Addr( UUID ) C : %Size( HxUUID ) C ) ** C Return ** Best regards, Carsten Flensburg ----- Original Message ----- From: "Steve Richter" <srichter@autocoder.com> To: "mi mail list" <MI400@midrange.com> Sent: Thursday, August 15, 2002 6:05 PM Subject: [MI400] GENUUID - bound program access > I want to run the GENUUID MI instruction from an rpg ile program. Can > someone post the rpg code needed to run an MI instruction, via Bound program > access ?
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 [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.