Hi Scott!

Also.... don't forget the new integer data types in V5R3 CL ... it keeps
you from needing to use %BIN 

DCL VAR(&Offset) TYPE(*UINT)        /* Unsigned 4 byte binary integer */

DCL VAR(&Offset) TYPE(*UINT) LEN(2) /* Unsigned 2 byte binary integer */

DCL VAR(&Length) TYPE(*INT)         /* Signed 4 byte binary integer   */
DCL VAR(&Length) TYPE(*INT) LEN(2)  /* Signed 2 byte binary integer   */

Dan Riehl  
The Powertech Group, Inc.   
>> Naturally, in V5R3 you'd want to use DOWHILE instead of a GOTO, but I
>> wasn't sure what release you were using, so I gave you code that will
>> work
>> on any release.

Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2015 by MIDRANGE dot 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 here. If you have questions about this, please contact