Programa de Notas em COBOL com código de erro.


 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   1
 line number source line   Microsoft COBOL                       Version 2.20

   1         IDENTIFICATION DIVISION.
   2         PROGRAM-ID.  NOTAS.
   3        *
   4         ENVIRONMENT DIVISION.
   5         CONFIGURATION SECTION.
   6         SPECIAL-NAMES.
   7             DECIMAL-POINT IS COMMA.
   8         DATA DIVISION.
   9         WORKING-STORAGE SECTION.
  10         01  VARIAVEIS-SISTEMA.
  11             02  WS-N1          PIC 9(02)V9 VALUE ZEROS.
  12             02  WS-N2          PIC 9(02)V9 VALUE ZEROS.
  13             02  WS-N3          PIC 9(02)V9 VALUE ZEROS.
  14             02  WS-N4          PIC 9(02)V9 VALUE ZEROS.
  15             02  WS-MEDIA       PIC 9(02)V9 VALUE ZEROS.
  16             02  WS-MEDIA-FINAL PIC ZZ,Z.
  17                     02  WS-LINHA       PIC 9(02) VALUE ZEROS.
  18             02  WS-LIMPA       PIC X(30) VALUE SPACES.
  19                     02  WS-LIMPA-MSG   PIC X(66) VALUE SPACES.
  20             02  RESPOSTA       PIC A.
  21             02  CODIGO         PIC X(03) VALUE "SIM".
  22             02  WS-PAUSA       PIC X(01).
  23         01  WS-DATA.
  24             02  WS-ANO         PIC 9(02) VALUE ZEROS.
  25             02  WS-MES         PIC 9(02) VALUE ZEROS.
  26             02  WS-DIA         PIC 9(02) VALUE ZEROS.
  27         01  WS-HORA.
  28             02  WS-HOR         PIC 9(02) VALUE ZEROS.
  29             02  WS-MIN         PIC 9(02) VALUE ZEROS.
  30             02  WS-SEG         PIC 9(02) VALUE ZEROS.
  31             02  WS-CSE         PIC 9(02) VALUE ZEROS.
  32         SCREEN SECTION.
  33         01  SS-LIMPA-TELA.
  34             02 BLANK SCREEN.
  35         01  SS-JANELA.
  36                 02 BLANK SCREEN.
  37             02 LINE 02 COLUMN 01 VALUE "+--------------------------------
  38             02 LINE 02 COLUMN 41 VALUE "---------------------------------
  39             02 LINE 03 COLUMN 01 VALUE "+
  40             02 LINE 03 COLUMN 41 VALUE "
  41             02 LINE 04 COLUMN 01 VALUE "+--------------------------------
  42             02 LINE 04 COLUMN 41 VALUE "---------------------------------
  43             02 LINE 05 COLUMN 01 VALUE "+
  44             02 LINE 05 COLUMN 41 VALUE "
  45             02 LINE 06 COLUMN 01 VALUE "+
  46             02 LINE 06 COLUMN 41 VALUE "
  47             02 LINE 07 COLUMN 01 VALUE "+
  48             02 LINE 07 COLUMN 41 VALUE "
  49             02 LINE 08 COLUMN 01 VALUE "+
  50             02 LINE 08 COLUMN 41 VALUE "
  51             02 LINE 09 COLUMN 01 VALUE "+
  52             02 LINE 09 COLUMN 41 VALUE "
  53             02 LINE 10 COLUMN 01 VALUE "+
  54             02 LINE 10 COLUMN 41 VALUE "
  55             02 LINE 11 COLUMN 01 VALUE "+
  56             02 LINE 11 COLUMN 41 VALUE "
  57             02 LINE 12 COLUMN 01 VALUE "+

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   2
 line number source line   Microsoft COBOL                       Version 2.20

  58             02 LINE 12 COLUMN 41 VALUE "
  59             02 LINE 13 COLUMN 01 VALUE "+
  60             02 LINE 13 COLUMN 41 VALUE "
  61             02 LINE 14 COLUMN 01 VALUE "+
  62             02 LINE 14 COLUMN 41 VALUE "
  63             02 LINE 15 COLUMN 01 VALUE "+
  64             02 LINE 15 COLUMN 41 VALUE "
  65             02 LINE 16 COLUMN 01 VALUE "+
  66             02 LINE 16 COLUMN 41 VALUE "
  67             02 LINE 17 COLUMN 01 VALUE "+
  68             02 LINE 17 COLUMN 41 VALUE "
  69             02 LINE 18 COLUMN 01 VALUE "+
  70             02 LINE 18 COLUMN 41 VALUE "
  71             02 LINE 19 COLUMN 01 VALUE "+
  72             02 LINE 19 COLUMN 41 VALUE "
  73             02 LINE 20 COLUMN 01 VALUE "+
  74             02 LINE 20 COLUMN 41 VALUE "
  75             02 LINE 21 COLUMN 01 VALUE "+
  76             02 LINE 21 COLUMN 41 VALUE "
  77             02 LINE 22 COLUMN 01 VALUE "+--------------------------------
  78             02 LINE 22 COLUMN 41 VALUE "---------------------------------
  79             02 LINE 23 COLUMN 01 VALUE "+ MENSAGEM: [
  80                     02 LINE 23 COLUMN 41 VALUE "
  81             02 LINE 24 COLUMN 01 VALUE "+--------------------------------
  82             02 LINE 24 COLUMN 41 VALUE "---------------------------------
  83         01  SS-TITULO.
  84             02 LINE 02 COLUMN 30 VALUE "C O N T R O L E  D E  M E D I A S
  85         PROCEDURE DIVISION.
  86         INICIO.
  87        *     DISPLAY (01, 01) ERASE.
  88             DISPLAY SS-LIMPA-TELA.
  89        *    DISPLAY SS-JANELA.
  90             DISPLAY SS-TITULO.
  91        *     ACCEPT WS-DATA FROM DATE.
  92        *     ACCEPT WS-HORA FROM TIME.
  93        *     DISPLAY JANELA.
  94        *     DISPLAY (23, 69) WS-DIA "/" WS-MES "/20" WS-ANO.
  95        *     DISPLAY (23, 58) WS-HOR ":" WS-MIN ":" WS-SEG.
  96        *     PERFORM ROT-LIMPA-TELA.
  97             PERFORM ROT-JANELA.
  98        *     PERFORM ROT-TITULO.
  99             PERFORM ROT-MOSTRA-DADOS.
 100             PERFORM ROT-PREENCHE-NOTAS.
 101             PERFORM ROT-CALCULA-MEDIA.
 102        *    PERFORM 050-LIMPA-DADOS.
 103
 104         ROT-MOSTRA-DADOS.
 105             DISPLAY(06, 07) 'NOTA 1: '.
 106             DISPLAY(07, 07) 'NOTA 2: '.
 107                     DISPLAY(08, 07) 'NOTA 3: '.
 108                     DISPLAY(09, 07) 'NOTA 4: '.
 109                     DISPLAY(10, 07) 'MEDIA.: '.
 110         ROT-PREENCHE-NOTAS.
 111             ACCEPT (06, 15) WS-N1 WITH PROMPT.
 112             ACCEPT (07, 15) WS-N2 WITH PROMPT.
 113             ACCEPT (08, 15) WS-N3 WITH PROMPT.
 114             ACCEPT (09, 15) WS-N4 WITH PROMPT.

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   3
 line number source line   Microsoft COBOL                       Version 2.20

 115         ROT-CALCULA-MEDIA.
 116             COMPUTE WS-MEDIA = (WS-N1 + WS-N2 + WS-N3 + WS-N4)/4.
 117             MOVE WS-MEDIA TO MFINAL.
 118             DISPLAY (10, 32) MFINAL.
 119             IF WS-MEDIA < 7,0 AND WS-MEDIA > 3,9
 120        *       DISPLAY TELA-COMP1
 121                DISPLAY (23, 14) "PROVA FINAL               "
 122                ACCEPT (08, 32) WS-PF WITH PROMPT
 123                COMPUTE WS-MEDIA = (WS-MEDIA + WS-PF)/2
 124                MOVE WS-MEDIA TO MFINAL
 125                DISPLAY (10, 32) MFINAL.
 126             IF WS-MEDIA = 7 OR WS-MEDIA > 7
 127                DISPLAY (23, 14) "APROVADO - Tecle ENTER.   ".
 128             IF WS-MEDIA < 7
 129                DISPLAY (23, 14) "REPROVADO - Tecle ENTER.  ".
 130             ACCEPT (23, 41) WS-PAUSA.
 131         ROT-SAIR-OU-NAO.
 132             DISPLAY(23, 14) "Deseja recalcular? (S/N)  ".
 133             ACCEPT(23, 39) RESPOSTA.
 134             IF RESPOSTA = "N" or "n"
 135                MOVE "NAO" TO CODIGO
 136                GO TO ROT-FIM
 137             ELSE IF RESPOSTA = "S" or "s"
 138                NEXT SENTENCE
 139             ELSE IF RESPOSTA NOT EQUAL TO "S" or "s" or "N" or "n"
 140                DISPLAY(23, 14) "Digitar (S/N) ou (s/n):          "
 141                ACCEPT(23, 37)  RESPOSTA
 142                DISPLAY(23, 14) "                                 ".
 143         ROT-LIMPA-TELA.
 144                 DISPLAY(01, 01) ERASE.
 145         ROT-LIMPA-DADOS.
 146             DISPLAY (06, 32) WS-LIMPA.
 147             DISPLAY (07, 32) WS-LIMPA.
 148             DISPLAY (08, 32) WS-LIMPA.
 149             DISPLAY (10, 32) WS-LIMPA.
 150             DISPLAY (23, 14) "                                         ".
 151             GO TO INICIO.
 152         ROT-TELA-FIM.
 153             DISPLAY(10, 20) '***************************************'.
 154             DISPLAY(11, 20) '*                                     *'.
 155                     DISPLAY(12, 20) '*         DESENVOLVIDO POR
 156             DISPLAY(13, 20) '*                                     *'.
 157             DISPLAY(14, 20) '*   MARCO ANTONIO CUNHA DA SILVA      *'.
 158             DISPLAY(15, 20) '*                                     *'.
 159             DISPLAY(16, 20) '*                                     *'.
 160             DISPLAY(17, 20) '***************************************'.
 161        ***---------- FIM DO PROGRAMA NOTAS ---------***
 162         ROT-FIM.
 163             PERFORM ROT-LIMPA-TELA.
 164             DISPLAY ROT-TELA-FIM.
 165             STOP RUN.
0038:Syntax error in SCREEN SECTION description. 02
0038:/W/Redundant clause ignored. 02
0038:/W/Redundant clause ignored. 41
0038:/W/Redundant clause ignored. ----------------------
0039:Syntax error in SCREEN SECTION description. 02
0039:/W/Redundant clause ignored. 03

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   4
 line number source line   Microsoft COBOL                       Version 2.20

0039:/W/Redundant clause ignored. 01
0039:/W/Redundant clause ignored. +
0040:Syntax error in SCREEN SECTION description. 02
0040:/W/Redundant clause ignored. 03
0040:/W/Redundant clause ignored. 41
0040:/W/Redundant clause ignored.
0041:Syntax error in SCREEN SECTION description. 02
0041:/W/Redundant clause ignored. 04
0041:/W/Redundant clause ignored. 01
0041:/W/Redundant clause ignored. +---------------------
0042:Syntax error in SCREEN SECTION description. 02
0042:/W/Redundant clause ignored. 04
0042:/W/Redundant clause ignored. 41
0042:/W/Redundant clause ignored. ----------------------
0043:Syntax error in SCREEN SECTION description. 02
0043:/W/Redundant clause ignored. 05
0043:/W/Redundant clause ignored. 01
0043:/W/Redundant clause ignored. +
0044:Syntax error in SCREEN SECTION description. 02
0044:/W/Redundant clause ignored. 05
0044:/W/Redundant clause ignored. 41
0044:/W/Redundant clause ignored.
0045:Syntax error in SCREEN SECTION description. 02
0045:/W/Redundant clause ignored. 06
0045:/W/Redundant clause ignored. 01
0045:/W/Redundant clause ignored. +
0046:Syntax error in SCREEN SECTION description. 02
0046:/W/Redundant clause ignored. 06
0046:/W/Redundant clause ignored. 41
0046:/W/Redundant clause ignored.
0047:Syntax error in SCREEN SECTION description. 02
0047:/W/Redundant clause ignored. 07
0047:/W/Redundant clause ignored. 01
0047:/W/Redundant clause ignored. +
0048:Syntax error in SCREEN SECTION description. 02
0048:/W/Redundant clause ignored. 07
0048:/W/Redundant clause ignored. 41
0048:/W/Redundant clause ignored.
0049:Syntax error in SCREEN SECTION description. 02
0049:/W/Redundant clause ignored. 08
0049:/W/Redundant clause ignored. 01
0049:/W/Redundant clause ignored. +
0050:Syntax error in SCREEN SECTION description. 02
0050:/W/Redundant clause ignored. 08
0050:/W/Redundant clause ignored. 41
0050:/W/Redundant clause ignored.
0051:Syntax error in SCREEN SECTION description. 02
0051:/W/Redundant clause ignored. 09
0051:/W/Redundant clause ignored. 01
0051:/W/Redundant clause ignored. +
0052:Syntax error in SCREEN SECTION description. 02
0052:/W/Redundant clause ignored. 09
0052:/W/Redundant clause ignored. 41
0052:/W/Redundant clause ignored.
0053:Syntax error in SCREEN SECTION description. 02
0053:/W/Redundant clause ignored. 10
0053:/W/Redundant clause ignored. 01

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   5
 line number source line   Microsoft COBOL                       Version 2.20

0053:/W/Redundant clause ignored. +
0054:Syntax error in SCREEN SECTION description. 02
0054:/W/Redundant clause ignored. 10
0054:/W/Redundant clause ignored. 41
0054:/W/Redundant clause ignored.
0055:Syntax error in SCREEN SECTION description. 02
0055:/W/Redundant clause ignored. 11
0055:/W/Redundant clause ignored. 01
0055:/W/Redundant clause ignored. +
0056:Syntax error in SCREEN SECTION description. 02
0056:/W/Redundant clause ignored. 11
0056:/W/Redundant clause ignored. 41
0056:/W/Redundant clause ignored.
0057:Syntax error in SCREEN SECTION description. 02
0057:/W/Redundant clause ignored. 12
0057:/W/Redundant clause ignored. 01
0057:/W/Redundant clause ignored. +
0058:Syntax error in SCREEN SECTION description. 02
0058:/W/Redundant clause ignored. 12
0058:/W/Redundant clause ignored. 41
0058:/W/Redundant clause ignored.
0059:Syntax error in SCREEN SECTION description. 02
0059:/W/Redundant clause ignored. 13
0059:/W/Redundant clause ignored. 01
0059:/W/Redundant clause ignored. +
0060:Syntax error in SCREEN SECTION description. 02
0060:/W/Redundant clause ignored. 13
0060:/W/Redundant clause ignored. 41
0060:/W/Redundant clause ignored.
0061:Syntax error in SCREEN SECTION description. 02
0061:/W/Redundant clause ignored. 14
0061:/W/Redundant clause ignored. 01
0061:/W/Redundant clause ignored. +
0062:Syntax error in SCREEN SECTION description. 02
0062:/W/Redundant clause ignored. 14
0062:/W/Redundant clause ignored. 41
0062:/W/Redundant clause ignored.
0063:Syntax error in SCREEN SECTION description. 02
0063:/W/Redundant clause ignored. 15
0063:/W/Redundant clause ignored. 01
0063:/W/Redundant clause ignored. +
0064:Syntax error in SCREEN SECTION description. 02
0064:/W/Redundant clause ignored. 15
0064:/W/Redundant clause ignored. 41
0064:/W/Redundant clause ignored.
0065:Syntax error in SCREEN SECTION description. 02
0065:/W/Redundant clause ignored. 16
0065:/W/Redundant clause ignored. 01
0065:/W/Redundant clause ignored. +
0066:Syntax error in SCREEN SECTION description. 02
0066:/W/Redundant clause ignored. 16
0066:/W/Redundant clause ignored. 41
0066:/W/Redundant clause ignored.
0067:Syntax error in SCREEN SECTION description. 02
0067:/W/Redundant clause ignored. 17
0067:/W/Redundant clause ignored. 01
0067:/W/Redundant clause ignored. +

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   6
 line number source line   Microsoft COBOL                       Version 2.20

0068:Syntax error in SCREEN SECTION description. 02
0068:/W/Redundant clause ignored. 17
0068:/W/Redundant clause ignored. 41
0068:/W/Redundant clause ignored.
0069:Syntax error in SCREEN SECTION description. 02
0069:/W/Redundant clause ignored. 18
0069:/W/Redundant clause ignored. 01
0069:/W/Redundant clause ignored. +
0070:Syntax error in SCREEN SECTION description. 02
0070:/W/Redundant clause ignored. 18
0070:/W/Redundant clause ignored. 41
0070:/W/Redundant clause ignored.
0071:Syntax error in SCREEN SECTION description. 02
0071:/W/Redundant clause ignored. 19
0071:/W/Redundant clause ignored. 01
0071:/W/Redundant clause ignored. +
0072:Syntax error in SCREEN SECTION description. 02
0072:/W/Redundant clause ignored. 19
0072:/W/Redundant clause ignored. 41
0072:/W/Redundant clause ignored.
0073:Syntax error in SCREEN SECTION description. 02
0073:/W/Redundant clause ignored. 20
0073:/W/Redundant clause ignored. 01
0073:/W/Redundant clause ignored. +
0074:Syntax error in SCREEN SECTION description. 02
0074:/W/Redundant clause ignored. 20
0074:/W/Redundant clause ignored. 41
0074:/W/Redundant clause ignored.
0075:Syntax error in SCREEN SECTION description. 02
0075:/W/Redundant clause ignored. 21
0075:/W/Redundant clause ignored. 01
0075:/W/Redundant clause ignored. +
0076:Syntax error in SCREEN SECTION description. 02
0076:/W/Redundant clause ignored. 21
0076:/W/Redundant clause ignored. 41
0076:/W/Redundant clause ignored.
0077:Syntax error in SCREEN SECTION description. 02
0077:/W/Redundant clause ignored. 22
0077:/W/Redundant clause ignored. 01
0077:/W/Redundant clause ignored. +---------------------
0078:Syntax error in SCREEN SECTION description. 02
0078:/W/Redundant clause ignored. 22
0078:/W/Redundant clause ignored. 41
0078:/W/Redundant clause ignored. ----------------------
0079:Syntax error in SCREEN SECTION description. 02
0079:/W/Redundant clause ignored. 23
0079:/W/Redundant clause ignored. 01
0079:/W/Redundant clause ignored. + MENSAGEM: [
0080:Syntax error in SCREEN SECTION description. 02
0080:/W/Redundant clause ignored. 23
0080:/W/Redundant clause ignored. 41
0080:/W/Redundant clause ignored.
0081:Syntax error in SCREEN SECTION description. 02
0081:/W/Redundant clause ignored. 24
0081:/W/Redundant clause ignored. 01
0081:/W/Redundant clause ignored. +---------------------
0082:Syntax error in SCREEN SECTION description. 02

 NOTAS.COB                               Thu Mar 16 22:37:53 2023    Page   7
 line number source line   Microsoft COBOL                       Version 2.20

0082:/W/Redundant clause ignored. 24
0082:/W/Redundant clause ignored. 41
0082:/W/Redundant clause ignored. ----------------------
0083:Syntax error in SCREEN SECTION description. 01
0083:Syntax error in SCREEN SECTION description. SS-TITULO
0085:Syntax error in SCREEN SECTION description. PROCEDURE
0090:Statement deleted due to erroneous syntax. SS-TITULO
0097:Procedure-name is unresolvable. ROT-JANELA
0117:Unrecognizable element is ignored.  MFINAL
0118:Statement deleted due to erroneous syntax. MFINAL
0122:Statement deleted due to erroneous syntax. WS-PF
0122:Unrecognizable element is ignored.  WITH
0122:Unrecognizable element is ignored.  PROMPT
0123:Unrecognizable element is ignored.  WS-PF
0123:Unrecognizable element is ignored.  )
0123:Unrecognizable element is ignored.  /
0123:Unrecognizable element is ignored.  2
0124:Unrecognizable element is ignored.  MFINAL
0125:Statement deleted due to erroneous syntax. MFINAL
0164:Statement deleted due to erroneous syntax. ROT-TELA-FIM

  197 errors or warnings

   Data area size =   920
   Code area size =   788