Tema: Código Cobol - mayúsculas/minúsculas
Ver Mensaje Individual
  #5
Antiguo 7 de abril de 2020, 19:55
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 20.09.2026 12:17
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492
Predeterminado
1
Likes

Kuk

 Inactivo Inactivo
Yo, por convención y porque soy de la vieja escuela, utilizo siempre las mayúscula, excepto para los "métodos" y las "propiedades", que las escribo tal y como las define PWC, más que nada, porque, como se comentó en otro post, si no lo haces así, puede dar errores inesperados.

Como dice Kuk, yo en minúsculas, es que "no veo" nada y, lo que tiene que prevalecer es la claridad de lo escrito, por eso lo que sí que utilizo mucho es dejar una linea en blanco, (antes y después de, por ejemplo un IF o un EVALUATE, INVOKE ...) y, sobre todo hago mucho uso de la indentación, como se puede ver en éste trozo de código:


Código COBOL:
  1.  
  2.      PERFORM WITH NO LIMIT
  3.              EXEC SQL
  4.                   FETCH cursor_con_1
  5.                         INTO :ID_NOT,
  6.                              :NOTFEC,
  7.                              :NOTHOR,
  8.                              :NOTTEX,
  9.                              :NOTR,
  10.                              :NOTV,
  11.                              :NOTA
  12.              END-EXEC
  13.  
  14.              IF SQLSTATE = "02000"
  15.                 IF I = 0
  16.                    MOVE "No hay registros a mostrar ..." TO "ToolTipText" OF SPREAD1
  17.                 ELSE
  18.                    MOVE I TO I-EDI
  19.                    STRING I-EDI
  20.                           " Registros mostrados ..." DELIMITED BY SIZE INTO WTEX
  21.                    END-STRING
  22.                    MOVE WTEX TO "ToolTipText" OF SPREAD1
  23.                 END-IF
  24.                 EXIT PERFORM
  25.              END-IF
  26.  
  27.              ADD  1            TO I
  28.              MOVE I            TO "MaxRows"           OF SPREAD1
  29.              MOVE I            TO "Row"               OF SPREAD1
  30.              MOVE NOTFEC       TO FECHA
  31.              MOVE CORR FECHA   TO FECHA1
  32.              MOVE CORR FECHA1  TO FECHA-EDI
  33.              MOVE 1            TO "Col"               OF SPREAD1
  34.              MOVE ID_NOT       TO "Text"              OF SPREAD1
  35.              MOVE 2            TO "Col"               OF SPREAD1
  36.              MOVE 0            TO "Text"              OF SPREAD1
  37.              MOVE 3            TO "Col"               OF SPREAD1
  38.              MOVE FECHA-EDI    TO "Text"              OF SPREAD1
  39. *
  40.              MOVE 4            TO "Col"               OF SPREAD1
  41.              MOVE NOTHOR (1:2) TO HH
  42.              MOVE NOTHOR (3:2) TO MI
  43.              MOVE NOTHOR (5:2) TO SS
  44.              MOVE HORA         TO "Text"              OF SPREAD1
  45. *
  46.              MOVE 5            TO "Col"               OF SPREAD1
  47.              MOVE 20,30        TO "RowHeight"(I)      OF SPREAD1
  48.              MOVE POW-TRUE     TO "TypeEditMultiLine" OF SPREAD1
  49.              MOVE NOTTEX       TO "Text"              OF SPREAD1
  50.              COMPUTE WSALTO = "MaxTextRowHeight"(I)   OF SPREAD1
  51.              MOVE WSALTO       TO "RowHeight"(I)      OF SPREAD1
  52. *
  53.              MOVE NOTR         TO BIN-2
  54.              MOVE BIN-1        TO W-RED
  55.              MOVE NOTV         TO BIN-2
  56.              MOVE BIN-1        TO W-GREEN
  57.              MOVE NOTA         TO BIN-2
  58.              MOVE BIN-1        TO W-BLUE
  59.              MOVE W-RGB        TO "ForeColor"         OF SPREAD1
  60.              INVOKE SPREAD1 "Refresh"
  61.  
  62.      END-PERFORM.

Un saludo.-
Josber is offline   Responder Con Cita