Si, por supuesto. Ahi va el "volcado de pantallas".
Para mayor comprensión, este volcado, identifica el sistema operativo (o interfaz) donde se ejecuta, MS-DOS, Windows, linux (unix, xenix, unisys)
La pantalla tiene un identificador de 7 caracteres y 2000 pares de color, caracter.
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. volcado1.
* (volcado1 con colores)
* (por JCCC)
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. RMCOBOL-85.
OBJECT-COMPUTER. RMCOBOL-85.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
*
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*
SELECT RGREGIS
ASSIGN TO RANDOM, NOMBRE-REGIS
ORGANIZATION IS sequential
ACCESS MODE IS sequential
file status is fs-regis.
*
DATA DIVISION.
FILE SECTION.
*
FD RGREGIS.
01 REG-REGISTRO.
02 lineaXXX pic x(5000).
02 REG-LINEAXX REDEFINES LINEAXXX.
04 FILLER PIC X(7).
04 REG-PAN OCCURS 2000 TIMES.
06 LINEA-ATRIBUTO PIC X.
06 LINEA-COLOR PIC X.
04 FILLER PIC X.
WORKING-STORAGE SECTION.
*
01 NOMBRE-REGIS PIC X(80) VALUE all " ".
01 fs-regis pic xx.
88 esta-regis value '00' '02'.
88 n-esta-regis value '23'.
88 fin-regis value '46' '10'.
88 bloqueado-regis value '99'.
88 f-bloqueado-regis value '38' '93'.
88 f-noexiste-regis value '35'.
01 fs-regisx pic xx.
01 i pic 99.
01 j pic s99.
01 k pic 99.
01 LINEA-P PIC X(2000).
01 LINEA-A REDEFINES LINEA-P.
02 linea-aa pic x OCCURS 2000 TIMES.
01 INDICE PIC 9999.
01 linea pic 99.
01 columna pic 99.
01 color1 pic x(37) value "fcolor= WHITE, bcolor=BLue".
01 moneda-presupuesto pic x.
88 presupuesto-euros value 'e' 'E'.
88 presupuesto-ptas value ' ' 'P' 'p'.
copy 'sicolor.cpy'.
copy 'sieuro.cpy'.
copy 'siplannu.cpy'.
copy 'sivarwin.cpy'.
01 ejercicio-presupuesto pic 9999 value 0.
01 HIGH-GRAPHICS pic x(80).
linkage section.
01 registro-lk.
02 fichero-lk.
03 fic-lk PIC X(1) OCCURS 80 times.
------*