Procedure Protype Success!

["Mike Pantzopoulos - (H/O)" <mpantzopoulos@xxxxxxxxxxxxxxxx>]

Thank You to all those who contributed to a recent thread regarding
execution parameter size being less than the prototype definition.

It now works beautifully. Bob Cozzi's example in the Midrange site
proved to work exactly how I need it to. I simply had to create the
following line of code to extract the exact size of data that the return
parameter was expecting:

EVAL      TblCdeVlu= %replace(  %subst(ctlxx:1:nBufLen) 
                                          : TblCdeVlu               
                                      : 1                       
                                      : nBufLen)                

Where   TblCdeVlu       is the parameter to be returned (Protype = 256
chars, Execution Time = 22 characters)
        Ctlxx           is a generic 256 byte value retrieved from a
file.
        nBufLen         is the length of the parameter to be returned. 

Thank You All.
 

Mike Pantzopoulos


*********************************************************************************************************
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity to whom they are addressed. If 
you are not the intended recipient, any use, disclosure or copying of this 
message is unauthorised. If you have received this message in error, please 
reply using the sender's email address. 

This footnote confirms that this email message has been scanned for computer 
viruses. EIG-Ansvar Limited does not accept liability for any loss or damage, 
whether caused by our own negligence or not, that results from a computer virus 
or defect in the transmission of this email or any attached file. 

EIG-Ansvar Limited - Australia (A.B.N. 21 007 216 506)
Email : insure@xxxxxxxxxxxxxxxx

Eig-Ansvar Limited - New Zealand
Email : insure@xxxxxxxxxxxxxxxx

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