-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMovimientos_HomeBanking.cbl
153 lines (124 loc) · 5.21 KB
/
Movimientos_HomeBanking.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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
IDENTIFICATION DIVISION.
PROGRAM-ID.SassoneEstefaniaEj1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL MOVIMIENTOS
ASSIGN TO "C:\Users\Usuario\OneDrive\Escritorio\movimientos.dat"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD MOVIMIENTOS.
01 MOVIMIENTOS-REGISTRO.
05 HOJA_NRO PIC 9(1).
05 COD_CLI PIC X(10).
05 TIPOCTA PIC X(10).
05 SUCURSAL PIC X(8).
05 CUENTA PIC X(15).
05 DIGITO PIC X(5).
05 FECHA_MOV PIC X(13).
05 COD_OPER PIC X(9).
05 IMPORTE PIC X(15).
05 CANAL PIC X(2).
WORKING-STORAGE SECTION.
01 LINEA1.
05 TEXTOFECHA_REV PIC X(30) VALUE 'Fecha:'.
05 MUESTRA_FECHA_REV PIC X(10).
05 ESPACIO PIC X(40) VALUE " ".
05 TEXTONRO_HOJA PIC X(30) VALUE 'Hoja nro '.
05 MUESTRA-NRO_HOJA PIC 9(1).
01 LINEA2.
05 SUBLINEA3-1 PIC X(20) VALUE " ".
05 SUBLINEA3-2 PIC X(11) VALUE "LISTADO DE".
05 SUBLINEA3-3 PIC X(16) VALUE "MOVIMIENTOS POR".
05 SUBLINEA3-4 PIC X(15) VALUE "HOMEBANCKING".
01 LINEA3.
05 NDECUENTA PIC x(18) VALUE "Numero de cuenta".
05 TEXTOFECHAMOV PIC X(12) VALUE 'Fecha'.
05 TEXTOCODIGO PIC X(24) VALUE 'Codigo de operacion'.
05 TEXTOIMPORTE PIC X(20) VALUE 'Importe'.
01 PRESENTACION.
05 MUESTRA_SUCURSAL PIC X(5).
05 MUESTRA_CUENTA PIC X(9).
05 MUESTRA_DIGITO PIC X(4).
05 MUESTRA_FECHA_MOV PIC X(18).
05 MUESTRA_COD_OPER PIC X(18).
05 MUESTRA_IMPORTE PIC X(15).
01 FIN_ARCHIVO PIC X.
01 MAXIMO-REGISTROS PIC 99.
01 GUARDA-ENTER PIC X .
******************************************************************
PROCEDURE DIVISION.
EMPIEZA-PROGRAMA.
PERFORM APERTURA_ARCHIVO.
MOVE ZEROES TO MAXIMO-REGISTROS.
MOVE "1" TO FIN_ARCHIVO.
PERFORM LEER-SIG-REG.
DISPLAY LINEA1.
DISPLAY LINEA2.
DISPLAY "CODIGO DE CLIENTE:" COD_CLI.
DISPLAY "TIPO DE CUENTA:" TIPOCTA.
DISPLAY " "
DISPLAY LINEA3.
PERFORM MOSTRAR-REGISTROS
UNTIL FIN_ARCHIVO = "0".
PERFORM CERRAR-ARCHIVO.
STOP RUN.
****************************************************************
* APERTURA DE ARCHIVOS
****************************************************************
APERTURA_ARCHIVO.
OPEN INPUT MOVIMIENTOS.
*****************************************************************
* CERRAR ARCHIVOS
*****************************************************************
CERRAR-ARCHIVO.
CLOSE MOVIMIENTOS.
*****************************************************************
* MOSTRAR-ENCABEZADO
*****************************************************************
MOSTRAR_ENCABEZADO.
DISPLAY LINEA1.
DISPLAY LINEA2.
DISPLAY "CODIGO DE CLIENTE:" COD_CLI.
DISPLAY "TIPO DE CUENTA:" TIPOCTA.
DISPLAY " "
DISPLAY LINEA3.
****************************************************************
* MOSTRAR-REGISTROS
****************************************************************
MOSTRAR-REGISTROS.
IF MAXIMO-REGISTROS = 7
PERFORM MOSTRAR_ENCABEZADO
MOVE 0 TO MAXIMO-REGISTROS.
PERFORM MOSTRAR-CAMPOS.
PERFORM LEER-SIG-REG.
****************************************************************
* MOSTRAR-CAMPOS
****************************************************************
MOSTRAR-CAMPOS.
IF MAXIMO-REGISTROS = 7
PERFORM PULSAR_ENTER.
MOVE SUCURSAL TO MUESTRA_SUCURSAL.
MOVE CUENTA TO MUESTRA_CUENTA.
MOVE DIGITO TO MUESTRA_DIGITO.
MOVE FECHA_MOV TO MUESTRA_FECHA_MOV.
MOVE COD_OPER TO MUESTRA_COD_OPER.
MOVE IMPORTE TO MUESTRA_IMPORTE.
DISPLAY PRESENTACION.
ADD 1 TO MAXIMO-REGISTROS.
*****************************************************************
* LEE SIGUENTE REGISTRO
*****************************************************************
LEER-SIG-REG.
READ MOVIMIENTOS NEXT RECORD
AT END
MOVE "0" TO FIN_ARCHIVO.
*****************************************************************
* PULSAR ENTER
*****************************************************************
PULSAR_ENTER.
DISPLAY
"Presione la tecla ENTER para ver la siguiente pagina.".
ACCEPT GUARDA-ENTER.
MOVE ZEROES TO MAXIMO-REGISTROS.