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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
