Re: Would someone compile this for me?



William M. Klein wrote: 
If any IBM user wants to try what I asked for, I would put

  PROCESS FLAGSTD(H), FLAG(I,I)

just before the ID division header in the source code.


Well, I can follow instructions eventually. This might be a little more informative:

PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1
Invocation parameters:
XREF(FULL),NORENT,X(FULL)
PROCESS(CBL) statements:
PROCESS FLAGSTD(H),FLAG(I,I)
Options in effect:
NOADATA
ADV
APOST
ARITH(EXTEND)
AWO
BUFSIZE(27998)
NOCICS
CODEPAGE(1140)
NOCOMPILE(E)
NOCURRENCY
DATA(31)
NODATEPROC
NODBCS
NODECK
DIAGTRUNC
NODLL
NODUMP
DYNAM
NOEXIT
NOEXPORTALL
FASTSRT
FLAG(I,I)
FLAGSTD(H)
INTDATE(LILIAN)
LANGUAGE(EN)
LIB
LINECOUNT(60)
NOLIST
MAP
NONAME
NSYMBOL(DBCS)
NONUMBER
NUMPROC(NOPFD)
OBJECT
OFFSET
OPTIMIZE(FULL)
OUTDD(SYSOUT)
PGMNAME(COMPAT)
NORENT
RMODE(ANY)
NOSEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
NOSSRANGE
TERM
NOTEST
NOTHREAD
TRUNC(OPT)
NOVBREF
NOWORD
XREF(FULL)
YEARWINDOW(1900)
ZWB
PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 HELLO3 Date
01
LineID PL SL
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6---
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.

=>000009.12 IGYDS8190   Non-standard level numbers:  nonconforming
nonstandard,
                        ANS/ISO 1985.

  000010                        05 E PIC X.
  000011                PROCEDURE DIVISION.
  000012                0000.
  000013                    DISPLAY 'HELLO WORLD'.
  000014                    PERFORM 1234.
  000015                    GOBACK.

=>000015.12 IGYPS8193   "GOBACK" statement:  nonconforming nonstandard,
IBM exte
                        1985.

  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
PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 HELLO3 Date
01
Line.Col Code FIPS message text

IGYSC8208 "APOST" compiler option: nonconforming nonstandard,
IBM e

           IGYSC8292  "FASTSRT" compiler option:  nonconforming
nonstandard, IBM

           IGYSC8227  "TRUNC(OPT)" compiler option:  nonconforming
nonstandard,

     9.12  IGYDS8190  Non-standard level numbers:  nonconforming
nonstandard, IB

15.12 IGYPS8193 "GOBACK" statement: nonconforming nonstandard, IBM
extens
FIPS Messages Total Standard Nonstandard Obsolete
5 0 5 0
* Statistics for COBOL program HELLO3:
* Source records = 17
* Data Division statements = 5
* Procedure Division statements = 4
End of compilation 1, program HELLO3, highest severity 0.
Return code 0

Wow, that was five warnings for a COBOL program of only 17 lines. APOST has been the IBM style for decades. Double-quotes still look odd to me. FASTSRT doesn't affect me, because I rarely use internal sort. TRUNC(OPT) is convenient for my purposes. GOBACK has long been common in IBM shops. And of course the non-standard level numbers get a warning, but the program compiles and should execute cleanly.

Bill, does this answer your question?

With kindest regards,


--
http://arnold.trembley.home.att.net/

.