PROGRAM-ID. MiPrograma.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MENSAJE PIC X(30) VALUE "Hola desde COBOL".
PROCEDURE DIVISION.
DISPLAY MENSAJE.
STOP RUN.
Herramienta | Descripción |
---|---|
OneCompiler COBOL | Compilador online para pruebas rápidas |
GnuCOBOL | Compilador libre para Linux, Windows y macOS |
Visual COBOL (Micro Focus) | IDE profesional con integración en Eclipse y Visual Studio |
IBM COBOL for z/OS | Entorno empresarial para mainframes |
- PIC X(n): texto
- PIC 9(n): números enteros
- PIC S9(n)V99: decimales con signo
Instrucción | Función |
---|---|
DISPLAY | Muestra texto |
MOVE | Asigna valores |
ADD / SUBTRACT | Operaciones matemáticas |
IF / PERFORM | Control de flujo |
DISPLAY "Saldo suficiente"
ELSE
DISPLAY "Saldo insuficiente"
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
FD ARCHIVO-ASIGNADO.
01 REGISTRO-CLIENTE.
05 NOMBRE PIC X(30).
05 EDAD PIC 99.
PROCEDURE DIVISION.
OPEN INPUT ARCHIVO-ASIGNADO.
READ ARCHIVO-ASIGNADO INTO REGISTRO-CLIENTE.
DISPLAY NOMBRE.
CLOSE ARCHIVO-ASIGNADO.
Transformá este fragmento en un mensaje emocional: