On 30 Aug 2006 17:08:37 -0700, in bit.listserv.ibm-main you wrote: >In ><[EMAIL PROTECTED]>, >on 08/30/2006 > at 07:38 AM, "Chase, John" <[EMAIL PROTECTED]> said: > >>AFAIK our "shop standard" back in VS COBOL II days was to specify >>TRUNC(BIN) for all "online" programs. I think most "address-type" >>fields were specified PIC S9(8) COMP, so the "decimal limitation" got >>hit a lot sooner. > >Doesn't COBOL allow declaring variables as binary? It used to. > The devil is in the details. The address fields could have been declared as USAGE POINTER. The use of USAGE BINARY (or COMP) does not mean that PICTURE is ignored. Compile option TRUNC(STD) means that all operations to the field will cause truncation based on picture. Option TRUNC(OPT) means that operations involving mixed usage (fields that are binary and fields that are display or packed decimal with literals being assumed USAGE BINARY) will be truncated according to PICTURE as will a DISPLAY of the field. Compile option TRUNC(BIN) means that PICTURE is used to determine whether the field is a half-word, word or double word and truncation is at the word boundary.
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
