DISPSIGN only affects fields in a DISPLAY statement. With your S999 DISPLAY example, let's say field (let.s name it ZONED-FIELD-1) was set to -987. DISPLAY QUOTE ZONED-FIELD-1 QUOTE
Output with DISPSIGN(COMPAT): "98P" Output with DISPSIGN(SEP): "-987" The size of the field is unchanged (it's still signed zoned, 3 bytes). It's just that it's "displayed" as a 4 character text string. Now we just need DISPDEC(YES) to show the decimal position indicator (the period for a init integer field), e.g.: "-987.65" instead of "-98765" for a PIC S999V99 (any USAGE) field. Maybe next release! Frank ________________________________ From: Clark Morris <cfmpub...@ns.sympatico.ca> To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, September 24, 2014 8:51 PM Subject: Re: COBOL 5 compile options On 24 Sep 2014 18:27:34 -0700, in bit.listserv.ibm-main you wrote: >AFP: I'm thinking we're safe chosing NOVOLATILE. We don't even use >floating-point, so perhaps it doesn't even matter what option we choose. > >DISPSIGN: I can't think of any harm in specifying SEP. Certainly makes >displays of negative signed fields easier to read. Since I think this would affect existing record descriptions, I would test before making a decision. If your current display numeric fields (PIC S999 USAGE DISPLAY) do not have the SIGN IS SEPARATE clause this option may force it on recompile which would increase the size of the field by 1 byte. I'm not certain what the valid sign characters would be. Clark Morris > >HGPR: NOPRESERVE, since we're almost entirely "COBOL calls COBOL", except for >a few "COBOL calls assembler" routines. Is there anything I should look at in >the latter case to make sure NOPRESERVE doesn't cause any issues? > >Other than NUMPROC, discussed in my previous post, I think these are the only >ones I'm concerned about. > >Thanks, >Frank > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
