Example: embedded messages

The following example shows the embedded messages generated by specifying a second parameter to the FLAG option. Some messages in the summary apply to more than one COBOL statement.

 
   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
 Locale = en_US.ISO8859-1                   (1)                     
 End of compilation 1,  program FLAGOUT,  highest severity: Severe.
 Return code 12
(1)
The locale that the compiler used