Re: Would someone compile this for me?

Thanks Arnold.

FYI,
Both "APOST" and "GOBACK" are included as valid in the '02 Standard.

Well, APOST isn't QUITE standard.
It is "standard" to allow alphanumeric literals to be bounded by a "single
quote" (aka APOST).
However, the QUOTE figurative constant is STILL supposed to be a quotation
mark (unlike what IBM does with APOST specified).

P.S. With Enterprise COBOL, if you use the QUOTE compiler option, you can use a
"single quote" as a delimiter. This has been true since IBM COBOL for
this-and-that, as I recall.

--
Bill Klein
wmklein <at> ix.netcom.com
"Arnold Trembley" <arnold.trembley@xxxxxxxxxxxxxxxx> wrote in message
news:3WiBf.531978$zb5.453324@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
>
>
> 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/
> 


.

Relevant Pages

  • Re: Storgae durations
    ... Supports the ISO/IEC 9899:1999 international standard (C99) ... <end quote> ... IBM supports C99 in all its mainline compilers ... IBM compilers strive to maximize the performance of scientific, technical, and commercial applications on server platforms. ...
    (comp.lang.c)
  • Re: Storgae durations
    ... Supports the ISO/IEC 9899:1999 international standard (C99) ... <end quote> ... IBM supports C99 in all its mainline compilers ... IBM compilers strive to maximize the performance of scientific, technical, and commercial applications on server platforms. ...
    (comp.lang.c)
  • Re: So, do you want to buy db2?
    ... Chris Salch wrote: ... I've called IBM and they've now handed me off to a second subject matter ... All I'm looking for a is a quote on what it would cost to get ...
    (comp.databases.informix)
  • Re: SALC pricing for MQ
    ... The quote from IBM for 1 MSU, the lowest band, is 10k/month! ... We've asked IBM if they mean 10K *annual*, but they have confirmed that it's monthly. ... I don't want to poke around in anyone's specfic licensing agreements with IBM -- I'm just trying to get a reality check on this one quote that doesn't make sense. ... When ever IBM told us that we would save money by switching to other software licensing options we had them run the numbers and everything, but MQ, does go down. ...
    (bit.listserv.ibm-main)