-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfuente04.cbl
81 lines (59 loc) · 2.05 KB
/
fuente04.cbl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. "EJEMPLO".
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
COPY "./clientes.sel".
DATA DIVISION.
FILE SECTION.
COPY "./clientes.fd".
WORKING-STORAGE SECTION.
01 ST-FILE PIC XX.
01 X PIC X.
01 MENSAJE PIC X(70).
01 FIN PIC X VALUES "N".
01 GUIONES PIC X(80) VALUES ALL "-".
PROCEDURE DIVISION.
MAIN-PROCEDURE.
PERFORM INICIALIZACION.
PERFORM ABRO-ARCHIVO.
PERFORM PROCESO THRU F-PROCESO UNTIL FIN = "S".
PERFORM CIERRO-ARCHIVO.
GO TO FINALIZAR.
INICIALIZACION.
MOVE "N" TO FIN.
ABRO-ARCHIVO.
OPEN I-O CLIENTES.
IF ST-SIC > "07"
STRING "Error al abrir Clientes " ST-FILE
DELIMITED BY SIZE INTO MENSAJE
DISPLAY MENSAJE LINE 10 COL 20
MOVE "S" TO FIN.
CIERRO-ARCHIVO.
CLOSE CLIENTES.
FINALIZAR.
EXIT PROGRAM.
PROCESO.
PERFORM MUESTRO-PANTALLA.
F-PROCESO.
EXIT.
MUESTRO-PANTALLA.
DISPLAY " " LINE 1 COL 1 ERASE EOS
"A.B.M. Clientes" LINE 3 COL 32
GUIONES LINE 4 COL 1
"ID Cliente : " LINE 10 COL 10
"01. Nombre : " LINE 12 COL 10
"02. Direccion : " LINE 14 COL 10
"03. Cod.Postal : " LINE 16 COL 10
"04. Categoria : " LINE 18 COL 10
GUIONES LINE 22 COL 1.
END PROGRAM "EJEMPLO".