| Clark Morris 2006-01-23, 6:55 pm |
| On Sat, 21 Jan 2006 21:21:06 GMT, Arnold Trembley
<arnold.trembley@worldnet.att.net> wrote:
>Unfortunately, I did not capture all the compile-time options. I just
> took the regular batch COBOL defaults. Unlike DocDwarf's shop, I
>use NUMPROC(NOPFD), which is less efficient, but can fix some numeric
>data errors.
I recommend NUMPROC(MIG) which treats sign zones F and C as being the
same and a PIC S9 field with the value x'F1' would be numeric whereas
with NUMPROC(PFD) it would not be numeric. You don't get the changing
of spaces to zero that NOPFD gives you but I feel it is the best
performing alternative and overall the safest.[color=darkred]
>
>I'm pretty sure we normally suppress all "Informational" messages, and
>only retain "Warning" and higher level messages, so this probably
>doesn't comply exactly with your request.
>
>
>PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1
>Invocation parameters:
>XREF(FULL),NORENT,X(FULL)
>
> LineID PL SL
> ----+-*A-1-B--+----2----+----3----+----4----+----5
>000001 IDENTIFICATION DIVISION.
>000002 PROGRAM-ID. HELLO3.
>000003 ENVIRONMENT DIVISION.
>000004 DATA DIVISION.
>000005 WORKING-STORAGE SECTION.
>000006 01 A.
>000007 05 B.
>000008 10 C PIC X.
>000009 04 D.
>000010 05 E PIC X.
>000011 PROCEDURE DIVISION.
>000012 0000.
>000013 DISPLAY 'HELLO WORLD'.
>000014 PERFORM 1234.
>000015 GOBACK.
>000016 1234.
>000017 DISPLAY 'THIS IS PARAGRAPH 1234.'.
>
>TGT LOCATED AT 0002F0 FOR 00000144 BYTES
>SPEC-REG LOCATED AT 000438 FOR 00000008 BYTES
>DSA WILL BE ALLOCATED FOR 00000148 BYTES
>* Statistics for COBOL program HELLO3:
>* Source records = 17
>* Data Division statements = 5
>* Procedure Division statements = 4
>End of compilation 1, program HELLO3, no statements flagged.
>Return code 0
>
>
>
>
>William M. Klein wrote:
|