two part answer:
The listing you can see my listing in:
http://groups.google.com/group/comp.lang.cobol/msg/d8125cf35197cefa
has TONS of messages - all of them showing that the source code that you
were
compiling had invalid characters, for example, it explicitly states,
2 IGYDS0027-S Non-COBOL character(s) were found starting with " " in
column
29. The characters were discarded.
You need to fix THOSE problems before you would see problems with columns.
So what you need to do is compile a mainframe source file with no bad
characters. See if you do get error messages (especially about columns)
and then
tell us the results. If you get even ONE IGY message, you need to fix it
before
you tell us that you don't have any messages.
Again, you fix mainframe compile problems by fixing the mainframe source
code
(not the listing).
1) It should have no invalid characters (found by using the ISPF Find
P"."
command
2) The source code should be in the correct columns
3) There should be no "bad data" at the end of lines like that source
program
had in
end program nwtest01.on.
***
Part 2:
As far as the "good source" code listed below, I think you are
misunderstanding what you are seeing in both the listing and the source
code.
First, as far as the listing below, it is using propostional font, so it
is hard
to see what columns the listing shows things in. The "line unumbers" in
that
listing are under the heading:
LineID PL SL
in the line showing you which column things are under. These are all
explained
at:
http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/igy3pg40/2.6.4.2
It is also worth noting that you have posted below has "print control
characters" in it. For example, the first "0" in
0 000001 IDENTIFICATION DIVISION
You need to understand what you are looking at and how this impacts
APPARENT
columns.
Now, if you go into ISPF edit of the GOOD source code and use the ISPF
"COLS"
line command. See:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ispzem61/3.1.11
It will show you exactly what column the "I" in "IDENTIFICATION DIVISION"
is in.
It can be anything between 8 and 11. (The A-margin).
It will show you what column the "D" in "DISPLAY "NAME:"" is. (It can be
antthing from 12 on - before 72, the B-margin).
It will show you what column the FIRST "*" is in in
000006
******************************************************************
It will turn out to be EXACTLY column 7 (the indicator column).
This will show you (once again) that you need to understand both how to
use ISPF
and what an IBM mainframe COBOL compiler listing is telling you.
****
Again, you NEED training to attempt to do what you are trying to do - or
you
need someone that you can go to for these BASIC issues for trying to
accomplish
what you are trying to do.
Finally, just like you are using a 15 year old compiler on the PC, you are
also
using an OLD and out-of-service compiler on the IBM mainframe.
5648-A25 IBM COBOL for OS/390 & VM
hasn't been sup****ted by IBM for several years now (unless you are running
under
VM istead of z/OS - and in that case you have lots of other problems)
--
Bill Klein
wmklein <at> ix.netcom.com
"amir" <ahsharif@[EMAIL PROTECTED]
> wrote in message
news:9390d5a9-abae-4ed1-8825-0f24500f1aba@[EMAIL PROTECTED]
> On May 19, 12:36 pm, "William M. Klein" <wmkl...@[EMAIL PROTECTED]
>
> wrote:
>> You have NEVER posted a copy of source code WITH MATCHING error
messages -
>> where
>> the compiler rejects code in columns 8 and 12.
>>
>> You say,
>>
>> " Therefore, it did not worked and there were not any Error message
show
>> me."
>>
>
> In the message above I told about there is not any error message which
> shows me wrong column usage. Also you can see my listing in:
> http://groups.google.com/group/comp.lang.cobol/msg/d8125cf35197cefa
>
> In this message, you can see that columns matched and there were not
> any problem in columns.
>
>> You CLAIM,
>>
>> "> What you see in the right source code,
>> Areas is according to:
>> 11->Indicator
>> 12->Area-A
>> 16->Area-B
>> "
> You can see the source code listing as:
> ---------------------------------------------------------
> 1PP 5648-A25 IBM COBOL for OS/390 & VM
> 2.2.0 Date 05/18/2008 Time 18:48:54
> Page 1
> 0Invocation parameters:
> OBJECT,LIB,NOTEST,FLAG(I,I)
> 0Options in effect:
> NOADATA
> ADV
> NOANALYZE
> QUOTE
> ARITH(COMPAT)
> NOAWO
> BUFSIZE(4096)
> NOCMPR2
> NOCOMPILE(S)
> NOCURRENCY
> DATA(31)
> NODATEPROC
> NODBCS
> NODECK
> NODIAGTRUNC
> NODLL
> NODUMP
> NODYNAM
> NOEXIT
> NOEX****TALL
> NOFASTSRT
> FLAG(I,I)
> NOFLAGMIG
> NOFLAGSTD
> NOIDLGEN
> INTDATE(ANSI)
> LANGUAGE(EN)
> LIB
> LINECOUNT(60)
> NOLIST
> NOMAP
> NONAME
> NONUMBER
> NUMPROC(NOPFD)
> OBJECT
> NOOFFSET
> NOOPTIMIZE
> OUTDD(SYSOUT)
> PGMNAME(COMPAT)
> NORENT
> RMODE(AUTO)
> SEQUENCE
> SIZE(MAX)
> SOURCE
> SPACE(1)
> NOSQL
> NOSSRANGE
> NOTERM
> NOTEST
> TRUNC(STD)
> NOTYPECHK
> NOVBREF
> NOWORD
> NOXREF
> 1PP 5648-A25 IBM COBOL for OS/390 & VM
> 2.2.0 Date 05/18/2008 Time 18:48:54
> Page 2
> 0 YEARWINDOW(1900)
> ZWB
> 1PP 5648-A25 IBM COBOL for OS/390 & VM 2.2.0
> DI01 Date 05/18/2008 Time 18:48:54 Page 3
> ----+-*A-1-B--+----2----+----3----+----4----
> +----5----+----6----+----7-|--+----8 Map and Cross Reference
> 0 000001 IDENTIFICATION DIVISION.
> 000002 PROGRAM-ID. DI01.
> 000003 ENVIRONMENT DIVISION.
> 000004 DATA
> DIVISION. EZA00270
> 000005 WORKING-STORAGE SECTION.
> 000006
> ******************************************************************
> 000007 01 TEST-DG.
> 000008 03 NAME1 PIC X(20) VALUE
> 'TEST'.
> 000009 03 NO1 PIC 9(4) VALUE
> 4444.
> 000010
>
******************************************************************EZA01700
> 000011 PROCEDURE
> DIVISION. EZA01720
> 000012 DISPLAY "NAME:"
> 000013 ACCEPT NAME1 OF TEST-DG
> 000014 DISPLAY "NO:"
> 000015 ACCEPT NO1 OF TEST-DG
> 000016 DISPLAY
> "--------------------------------------------"
> 000017 DISPLAY NAME1
> 000018 DISPLAY NO1
> 000019 STOP RUN
> 000020 .
> -* Statistics for COBOL program DI01:
> * Source records = 20
> * Data Division statements = 3
> * Procedure Division statements = 8
> 0End of compilation 1, program DI01, no statements flagged.
> 0Return code 0
> ---------------------------------------------------------
> This code compiled without any error as you see above.
> Also according to last message I told you, can see the columns as
> everything is ok.
> ---------------------------------------------------------
> http://groups.google.com/group/comp.lang.cobol/msg/d8125cf35197cefa
> 1PP 5648-A25 IBM COBOL for OS/390 & VM 2.2.0
> NWTEST01 Date 05/06/2008 Time 11:24:29 Page 4
> LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----
> +----5----+----6----+----7-|--+----8 Map and Cross Reference
> 0 000001 identification
> ---------------------------------------------------------
>
>> Again, you have NOT shown us the exact source code and a listing to
match it.
>> I'll bet that if you seriously look at the mainframe listing you will
see
>> that
>> those are NOT the columns used for a successful compile. If you just
posted
>> the
>> ****tion of the successful compiler listing that starts with the
"header" line
>> showing columns of the source code, I can almost guarantee that what
you are
>> claiming is NOT what you are actually compiling.
>
> I don't know how did you get this result.
>
>> > What you see in the right source code,
>> > Areas is according to:
>> > 11->Indicator
>> > 12->Area-A
>> > 16->Area-B
>> > If you subtract 3 from each number, you get the standard numbers.
>> > ISPF-Editor showed these numbers, may some bad setting in the editor
>> > and viewer configuration or an Standard in ISPF-Editor, I did not
know
>> > about it.
>
> I find my problem. Exact columns are:
> 15->Indicator
> 16->Area-A
> 20->Area-B
> The ISPF consumed 6 characters for numbering lines and one space after
> it and if you subtract 7 from this numbers you get the standard
> numbers.
> Anyway, I am wondering about the compiler errors, did not mean this to
> me.
> Thanks,
>
|
