-
Notifications
You must be signed in to change notification settings - Fork 0
/
MODEL.CBL
142 lines (142 loc) · 7.18 KB
/
MODEL.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
******************************************************************
IDENTIFICATION DIVISION.
******************************************************************
PROGRAM-ID. MODEL01.
AUTHOR. NEUCLAIR JOSE ANGELE JUNIOR.
DATE-WRITTEN. 01 JAN 2011.
DATE-COMPILED.
*REMARKS. *******************************************************
* *#NOME:# MODEL *
* *******************************************************
* *#FUNC:# FUNCAO DO PROGRAMA *
* *******************************************************
* *#ANALISTA:# FULANO DE TAL *
* *******************************************************
*
******************************************************************
ENVIRONMENT DIVISION.
******************************************************************
*
******************************************************************
CONFIGURATION SECTION.
******************************************************************
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
*
******************************************************************
INPUT-OUTPUT SECTION.
******************************************************************
FILE-CONTROL.
*
******************************************************************
DATA DIVISION.
******************************************************************
*
******************************************************************
FILE SECTION.
******************************************************************
*
******************************************************************
WORKING-STORAGE SECTION.
******************************************************************
77 FILLER PIC X(32) VALUE
'III WORKING-STORAGE SECTION III'.
*
01 WS-WORKING.
*
******************************************************************
* AUXILIARES *
******************************************************************
03 WS-AUXILIARES.
05 FILLER PIC X(12) VALUE
'AUXILIARES'.
*
******************************************************************
* ACUMULADORES *
******************************************************************
03 WS-ACUMULADORES.
05 FILLER PIC X(12) VALUE
'ACUMULADORES'.
*
******************************************************************
* SUBROTINAS *
******************************************************************
03 WS-SUBROTINAS.
05 FILLER PIC X(12) VALUE
'SUBROTINAS'.
*
******************************************************************
* AREA DE DB2 *
******************************************************************
03 WS-DB2.
05 FILLER PIC X(12) VALUE 'DB2'.
*
******************************************************************
* COPYBOOKS *
******************************************************************
*
*
******************************************************************
*
01 FILLER PIC X(32) VALUE
'FFF FIM DA WORKING-STORAGE FFF'.
*
******************************************************************
LINKAGE SECTION.
******************************************************************
*
*
******************************************************************
PROCEDURE DIVISION.
******************************************************************
******************************************************************
* ROTINA PRINCIPAL *
******************************************************************
RTPRINCIPAL SECTION.
******************************************************************
*
PERFORM RTINICIAR.
*
PERFORM RTPROCESSAR.
*
PERFORM RTFINALIZAR.
*
******************************************************************
RTPRINCIPAL-EXIT. EXIT.
******************************************************************
******************************************************************
* ROTINA INICIAL *
******************************************************************
RTINICIAR SECTION.
******************************************************************
*
*
******************************************************************
RTINICAR-EXIT. EXIT.
******************************************************************
******************************************************************
* ROTINA PROCESSA *
******************************************************************
RTPROCESSAR SECTION.
******************************************************************
*
*
******************************************************************
RTPROCESSAR-EXIT. EXIT.
******************************************************************
******************************************************************
* ROTINA FINAL *
******************************************************************
RTFINALIZAR SECTION.
******************************************************************
*
MOVE ZEROS TO RETURN-CODE.
*
GOBACK.
*
******************************************************************
RTFINALIZAR-EXIT. EXIT.
******************************************************************
******************************************************************
* FIM DO PROGRAMA *
******************************************************************