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
 ...
   090671**             /
   090672**             *****************************************************************
   090673**             ***          I N I T I A L I Z E   P A R A G R A P H           **
   090674**             ***  Open files. Accept date, time and format header lines.    **
   090675**             ***   Load location-table.                                     **
   090676**             *****************************************************************
   090677**                100-initialize-paragraph.
   090678**                  move spaces to ws-transaction-record                                   IMP 331
   090679**                  move spaces to ws-commuter-record                                      IMP 307
   090680**                  move zeroes to commuter-zipcode                                        IMP 318
   090681**                  move zeroes to commuter-home-phone                                     IMP 319
   090682**                  move zeroes to commuter-work-phone                                     IMP 320
   090683**                  move zeroes to commuter-update-date                                    IMP 324
   090684**                  open input update-transaction-file                                     204
 ==090684==> IGYPS2052-S An error was found in the definition of file "LOCATION-FILE".  The
                         reference to this file was discarded.
   090685**                      location-file                                                      193
   090686**                      i-o commuter-file                                                  181
   090687**                      output print-file                                                  217
   090688**                  if commuter-file-status not = "00" and not = "97"                      241
   090689**    1               display "100-OPEN"
   090690**    1               move 100 to comp-code                                                231
   090691**    1               perform 500-vsam-error                                               91069
   090692**    1               perform 900-abnormal-termination                                     91114
   090693**                  end-if
   090694**                  accept ws-date from date                                               UND
 ==090694==> IGYPS2121-S "WS-DATE" was not defined as a data-name.  The statement was discarded.
   090695**                  move corr ws-date to header-date                                       UND 455
 ==090695==> IGYPS2121-S "WS-DATE" was not defined as a data-name.  The statement was discarded.
   090696**                  accept ws-time from time                                               UND
 ==090696==> IGYPS2121-S "WS-TIME" was not defined as a data-name.  The statement was discarded.
   090697**                  move corr ws-time to header-time                                       UND 449
 ==090697==> IGYPS2121-S "WS-TIME" was not defined as a data-name.  The statement was discarded.
   090698**                  read location-file                                                     193
 ==090698==> IGYPS2053-S An error was found in the definition of file "LOCATION-FILE".  This
                         input/output statement was discarded.
   090699**                    at end
   090700**    1                   set location-eof to true                                         256
   090701**                  end-read
 ...
 LineID  Message code  Message text
           IGYSC0090-W   1700 sequence errors were found in this program.
           IGYSC3002-I   A severe error was found in the program.  The "OPTIMIZE" compiler option was cancelled.
      160  IGYDS1089-S   "ASSIGNN" was invalid.  Scanning was resumed at the next area "A" item, level-number, or
                         the start of the next clause.
      193  IGYGR1207-S   The "ASSIGN" clause was missing or invalid in the "SELECT" entry for file "LOCATION-FILE".
                         The file definition was discarded.
      269  IGYDS1066-S   "REDEFINES" object "WS-DATE" was not the immediately preceding level-1 data item.
                         The "REDEFINES" clause was discarded.
    90602  IGYPS2052-S   An error was found in the definition of file "LOCATION-FILE".  The reference to this file
                         was discarded. Same message on line:  90684
    90694  IGYPS2121-S   "WS-DATE" was not defined as a data-name.  The statement was discarded.
                         Same message on line:  90695
    90696  IGYPS2121-S   "WS-TIME" was not defined as a data-name.  The statement was discarded.
                         Same message on line:  90697
    90698  IGYPS2053-S   An error was found in the definition of file "LOCATION-FILE".  This input/output statement
                         was discarded. Same message on line:  90709
 Messages    Total    Informational    Warning    Error    Severe    Terminating
 Printed:      13           1              1                  11
 * Statistics for COBOL program IGYTCARA:
 *    Source records = 1755
 *    Data Division statements = 295
 *    Procedure Division statements = 479
 *    Generated COBOL statements = 0 
 *    Program complexity factor = 486
 End of compilation 1,  program IGYTCARA,  highest severity 12.
 Return code 12