Re: Understanding Error Messages

Go into HEX mode in ISPF edit of your SOURCE code and look at what is in
column 
32 of the line with "identification division" on it.  It is a "non-COBOL" 
character (possibly a x"00" or x"0A" or something similar.  Change it to
x'40' 
(EBCDIC space) and then do the same thing to all characters that aren't
valid 
COBOL characters as seen in HEX MODE edit of your source code.

You need to believe your listings.  When they tell you that you have bad
data in 
a specific column in a specific line, then that is what has happened.

Now, HOW you got the bad data in your source file in the first place is
another 
question.  Have you had any training on how to use the ISPF editor to
create 
text files (source code or otherwise)?  If not, you should ask whoever is 
working with you to help you get such training.

P.S.  See:
 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZEM61/1.3.4.1.3

for how to do an ISPF search (in your source file) for non-visible
characters.

(You probably should review that entire manual if you haven't been trained
on 
using ISPF for editing)

-- 
Bill Klein
 wmklein <at> ix.netcom.com
"amir" <ahsharif@[EMAIL PROTECTED]
> wrote in message 
news:6aa67b68-28c7-4b7f-b8b5-c80db3e45741@[EMAIL PROTECTED]
 to all friends,
The file was filled with X'00' characters and Windows did not let me
to cut exactly.
Anyway, with your help, I replaced it by X'20' and now everything is
ok.
This is my listing file content.

1PP 5648-A25 IBM COBOL for OS/390 & VM
2.2.0                             Date 05/06/2008  Time 11:24:29
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/06/2008  Time 11:24:29
Page     2
0      YEARWINDOW(1900)
       ZWB
1PP 5648-A25 IBM COBOL for OS/390 & VM
2.2.0                             Date 05/06/2008  Time 11:24:29
Page     3
0LineID  Message code  Library phase message text

         IGYLI0090-W   3 sequence errors were found in this program.
-Messages    Total    Informational    Warning    Error    Severe
Terminating
0Printed:       1                          1
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
division.

 ==000001==> IGYDS0001-W A blank was missing before character " " in
column 32.  A blank was
                         assumed.

 ==000001==> IGYDS0027-S Non-COBOL character(s) were found starting
with " " in column 32.  The
                         characters were discarded.

   000002**             program-id.
nwtest01.

 ==000002==> IGYDS0001-W A blank was missing before character " " in
column 29.  A blank was
                         assumed.

 ==000002==> IGYDS0027-S Non-COBOL character(s) were found starting
with " " in column 29.  The
                         characters were discarded.

   000003**             environment
division.

 ==000003==> IGYDS0001-W A blank was missing before character " " in
column 29.  A blank was
                         assumed.

 ==000003==> IGYDS0027-S Non-COBOL character(s) were found starting
with " " in column 29.  The
                         characters were discarded.

   000004**
     data
division.

 ==000004==> IGYDS0001-W A blank was missing before character " " in
column 22.  A blank was
                         assumed.

 ==000004==> IGYDS0027-S Non-COBOL character(s) were found starting
with " " in column 22.  The
                         characters were discarded.

   000005               procedure
division.

 ==000005==> IGYPS0001-W A blank was missing before character " " in
column 27.  A blank was
                         assumed.

 ==000005==> IGYPS0027-S Non-COBOL character(s) were found starting
with " " in column 27.  The
                         characters were discarded.

   000006   1           end program
nwtest01.on.

 ==000006==> IGYSC0001-W A blank was missing before character "o" in
column 29.  A blank was
                         assumed.

 ==000006==> IGYSC0142-E Expected end of source file or the beginning
of a separately compiled
                         program, but found "ON".  Skipped to end of
source file or the beginning
                         of the next program.

 ==000006==> IGYSC0001-W A blank was missing before character " " in
column 32.  A blank was
                         assumed.

 ==000006==> IGYSC0027-S Non-COBOL character(s) were found starting
with " " in column 32.  The
                         characters were discarded.

1PP 5648-A25 IBM COBOL for OS/390 & VM  2.2.0
NWTEST01  Date 05/06/2008  Time 11:24:29   Page     5
0LineID  Message code  Message text

         IGYSC0185-I   Messages were issued during library phase
processing.  Refer to the beginning of the listing.

      1  IGYDS0001-W   A blank was missing before character " " in
column 32.  A blank was assumed.

                       Same message on line:      6

      1  IGYDS0027-S   Non-COBOL character(s) were found starting with
" " in column 32.  The characters were discarded.

                       Same message on line:      6

      2  IGYDS0001-W   A blank was missing before character " " in
column 29.  A blank was assumed.

                       Same message on line:      3

      2  IGYDS0027-S   Non-COBOL character(s) were found starting with
" " in column 29.  The characters were discarded.

                       Same message on line:      3

      4  IGYDS0001-W   A blank was missing before character " " in
column 22.  A blank was assumed.

      4  IGYDS0027-S   Non-COBOL character(s) were found starting with
" " in column 22.  The characters were discarded.

      5  IGYPS0001-W   A blank was missing before character " " in
column 27.  A blank was assumed.

      5  IGYPS0027-S   Non-COBOL character(s) were found starting with
" " in column 27.  The characters were discarded.

      6  IGYSC0001-W   A blank was missing before character "o" in
column 29.  A blank was assumed.

      6  IGYSC0142-E   Expected end of source file or the beginning of
a separately compiled program, but found "ON".  Skipped to end
                       of source file or the beginning of the next
program.
-Messages    Total    Informational    Warning    Error    Severe
Terminating
0Printed:      15           1              7         1         6
-* Statistics for COBOL program NWTEST01:
 *    Source records = 6
 *    Data Division statements = 0
 *    Procedure Division statements = 0
0End of compilation 1,  program NWTEST01,  highest severity 12.
0Return code 12


Thanks to all again for your help,
AS