Rational Developer for System z
COBOL for Windows, Version 7.5, Programming Guide


Image description: embedded messages

This image shows selected text from the listing generated by specifying a second parameter to the FLAG compiler option. The purpose of the example is to show how embedded messages differ from messages at the end of the listing. The actual code and kinds of errors shown are not significant to the example. Search for == to find embedded messages. Search for the words “Message code” to find messages at the end of the compilation listing.

   LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7--+--8 Map and Cross Reference
 ...
   000977               /
   000978               *****************************************************************
   000979               ***          I N I T I A L I Z E   P A R A G R A P H           **
   000980               ***  Open files. Accept date, time and format header lines.    **
   000981         IA4690***   Load location-table.                                     **
   000982               *****************************************************************
   000983                  100-initialize-paragraph.
   000984                    move spaces to ws-transaction-record                                   IMP 339
   000985                    move spaces to ws-commuter-record                                      IMP 315
   000986                    move zeroes to commuter-zipcode                                        IMP 326
   000987                    move zeroes to commuter-home-phone                                     IMP 327
   000988                    move zeroes to commuter-work-phone                                     IMP 328
   000989                    move zeroes to commuter-update-date                                    IMP 332
   000990                    open input update-transaction-file                                     203
   ==000990==> IGYPS2052-S An error was found in the definition of file “LOCATION-FILE”.  The
                         reference to this file was discarded.
     000991                        location-file                                                      192
   000992                        i-o commuter-file                                                  180
   000993                        output print-file                                                  216
   000994                    if loccode-file-status not = “00” or                                   248
   000995                       update-file-status not = “00” or                                    247
   000996                       updprint-file-status not = “00”                                     249
   000997      1                display “Open Error ...”
   000998      1                display “  Location File Status = ” loccode-file-status             248
   000999      1                display “  Update   File Status = ” update-file-status              247
   001000      1                display “  Print    File Status = ” updprint-file-status            249
   001001      1               perform 900-abnormal-termination                                     1433
   001002                    end-if
   001003         IA4760     if commuter-file-status not = “00” and not = “97”                      240
   001004      1               display “100-OPEN”
   001005      1               move 100 to comp-code                                                230
   001006      1               perform 500-stl-error                                                1387
   001007      1               display “Commuter File Status (OPEN) = ”
   001008      1                        commuter-file-status                                        240
   001009      1               perform 900-abnormal-termination                                     1433
   001010         IA4790     end-if
   001011                    accept ws-date from date                                               UND
   ==001011==> IGYPS2121-S “WS-DATE” was not defined as a data-name.  The statement was discarded.
     001012         IA4810     move corr ws-date to header-date                                       UND 463
   ==001012==> IGYPS2121-S “WS-DATE” was not defined as a data-name.  The statement was discarded.
     001013                    accept ws-time from time                                               UND
   ==001013==> IGYPS2121-S “WS-TIME” was not defined as a data-name.  The statement was discarded.
     001014         IA4830     move corr ws-time to header-time                                       UND 457
   ==001014==> IGYPS2121-S “WS-TIME” was not defined as a data-name.  The statement was discarded.
     001015         IA4840     read location-file                                                     192
 ...
 LineID  Message code  Message text
      192  IGYDS1050-E   File “LOCATION-FILE” contained no data record descriptions.
                         The file definition was discarded.
      899  IGYPS2052-S   An error was found in the definition of file “LOCATION-FILE”.
                         The reference to this file was discarded.
                         Same message on line:    990
     1011  IGYPS2121-S   “WS-DATE” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1012
     1013  IGYPS2121-S   “WS-TIME” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1014
     1015  IGYPS2053-S   An error was found in the definition of file “LOCATION-FILE”.
                         This input/output statement was discarded.
                         Same message on line:   1027
     1026  IGYPS2121-S   “LOC-CODE” was not defined as a data-name.  The statement was discarded.
     1209  IGYPS2121-S   “COMMUTER-SHIFT” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1230
     1210  IGYPS2121-S   “COMMUTER-HOME-CODE” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1231
     1212  IGYPS2121-S   “COMMUTER-NAME” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1233
     1213  IGYPS2121-S   “COMMUTER-INITIALS” was not defined as a data-name.  The statement was discarded.
                         Same message on line:   1234
     1223  IGYPS2121-S   “WS-NUMERIC-DATE” was not defined as a data-name.  The statement was discarded.
 Messages    Total    Informational    Warning    Error    Severe    Terminating
 Printed:      19                                    1        18
 * Statistics for COBOL program FLAGOUT:
 *    Source records = 1755
 *    Data Division statements = 279
 *    Procedure Division statements = 479
 End of compilation 1,  program FLAGOUT,  highest severity: Severe.
 Return code 12

End of image description.


Terms of use | Feedback

Copyright IBM Corporation 1996, 2008.
This information center is powered by Eclipse technology. (http://www.eclipse.org)