>I'm kind of alerted by the statement "Cobol V5 always uses C". That means the >decimal overflow mask will always be set after the first (internal) call to C >code?' > >Can you be more specific on it means that "Cobol V5 always uses C"?
Interesting questions. I don't have access to V5+, so can't experiment. I would expect that "COBOL functionality" that happens to be in C/C++ would be aware of the issue for COBOL and would turn off that bit... but is that so? I'll try to post a simple COBOL program to carry out an experient later. I'll have to second-guess the new optimizer, because it is much more clever than up to V4. Here's an extract from a small V5.2 program I was sent: E X T E R N A L S Y M B O L D I C T I O N A R Y TYPE ID ADDR LENGTH NAME SD 1 000000 000000 MAIN ED 2 000000 000000 C_CEESG003 ED 3 000000 000808 C_CODE LD 4 000000 000000 MAIN#C ER 5 000000 000000 CEESTART ER 6 000000 000000 CEEBETBL ED 7 000000 000000 C_WSA PR 8 000000 000114 MAIN#S ED 9 000000 000022 B_IDRL ER 10 000000 000000 IGZXBST1 ER 11 000000 000000 MAIN ER 12 000000 000000 IGZXPRS ER 13 000000 000000 IGZXCMSG ER 14 000000 000000 IGZXDSP ER 15 000000 000000 IGZXRTN ER 16 000000 000000 IGZXTREN ER 17 000000 000000 IGZXRT1 LD 18 000000 000000 MAIN ER 19 000000 000000 CEESG004 ED 20 000000 000000 C_@@PPA2 PR 21 000000 000008 ED 22 000000 000000 C_@@CSINIT PR 23 000000 000004 There is no direct equivalent of this on a pre-V5 compile listing, and the there's "evidence" there. When I'm home I'll try to futher locate something mentioning this from someone at IBM. Search-engineing for languages whose name consist of only one alphabetic character is... less than pleasant. Have you looked at the setting for LE's TRAP? If it is ON, LE will deal with the 0008 transparently to the COBOL programs and they will not give a S0CA. At least TRAP(OFF) is the only way I know of (in interaction with the mask being on) to get a S0CA from COBOL. There may be some unintended interaction with the Smart/Restart, but knowing if the LE TRAP is ON or OFF is worthwhile. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
