Got a nibble for the length, so 1-16 bytes, 31 (30) digits. On Fri, May 2, 2025 at 9:10 PM Paul Gilmartin < [email protected]> wrote:
> On Sat, 3 May 2025 01:48:11 +0000, Farley, Peter wrote: > > >Answer: Not a lot. Basically you have to move the digits you have to a > work field declared packed (COMP-3 unsigned) that is one byte longer than > the source, where the additional byte has value X’0F’. Move the source to > the work field for just the length of the source field, then divide the > work field by 10 to get the original numeric value in a form you can use it > in the rest of your COBOL program. > > > How severely does this limit the length (PoOp 8-7): > The number of bytes in the quotient field is > equal to the difference between the dividend and > divisor lengths (L1 - L2). > ? > > -- > gil > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
