COBOL - умирает или нет? Его преимущества и недостатки

@Kukstyler · Регистрация: 02.04.2009

Студворк — интернет-сервис помощи студентам

Всем привет. Решил создать эту тему, т.к. существует довольно популярное мнение (особенно среди людей занимающихся современными языками программирования) о том, что COBOL уже никуда не годится, и что в скором будущем он будет заменён на более современные языки программирования. Однако как человек зарабатывающий на этом языке на хлеб (и зарабатывающий довольно хорошо) и изучив мир Mainframe изнутри, я могу с уверенностью сказать, что на самом деле всё далеко не так, а скорее наоборот.

Немного истории. COBOL является абревиатурой COmmon Business-Oriented Language. То есть, язык создавался для решения бизнес задач в 1959 году (в 1960 году был уже утверждён комиссией CODASYL). Язык высоко уровня, фактически целиком состоит из английских слов. Сделано это для того, что бы любой бизнес аналитик мог понять, что делает программа. Это облегчает и синтаксис языка для программиста. Естественно, язык пережил много доработок и эволюций. На данный момент последная версия COBOL-а для IBM Enterprise COBOL for z/OS, Version 5.1. Существует и Object Oriented COBOL, COBOL 2002 который можно встретить в компиляторах от Fujitsu и MicroFocus. Последний, но если не ошибаюсь пока не утверждённый стандард - COBOL 2014.

Язык больше всего используется на IBM Mainframe, вместе с IBM CICS, и IBM DB2.

Преимущества и недостатки языка.

Известная положительная сторона COBOL-а - он очень хорошо справляется с большими количествами данных в Batch процессах. Почему конкретно, я не знаю, но это известный факт. Могу лишь предположить, что возможно язык устроен (случайно или нет) таким образом, что оптимально компилируется в машинный код. Я нахожу некое сходство с ассемблером, но это только мои догадки.

По разным данным, от 70% до 90% бизнес приложений для среднего и крупного бизнеса написано именно на COBOL-e.

Таким образом, только для тех. поддержки уже существующего программного обеспечения понадобились бы огромные денежные затраты, и неимоверное количество времени. Однако надобности такой естественно нет. COBOL и раньше на зависть справлялся с поставленными задачами, и сейчас делает это лучше других. Иначе бы его бы начали заменять ещё в 80-ые или в 90-ые. Такие фирмы как Fujitsu или MicroFocus, или киты как IBM, не занимаются неперспективными проектами.

@aedeph · 27.06.2015, 14:12

Сообщение от Kukstyler

По разным данным, от 70% до 90% бизнес приложений для среднего и крупного бизнеса написано именно на COBOL-e.

А можно где-нибудь почитать про эти данные?

@Kukstyler · 27.06.2015, 15:59 **[ТС]**

aedeph, естественно! Вот данные на сайте MicroFocus:

COBOL makes the world go round
Grace Hopper brought COBOL into the world in 1959. Over fifty years later, it powers 70 percent of all business transactions. COBOL is everywhere – from ATMs, to point of sales systems and healthcare prescriptions.

Данные про программное обеспечение бизнес приложений на сегодняшний день COBOL Today.

Испанский сайт говорящий о том же:

el 70% de los negocios críticos están escritos en COBOL, base además de las conexiones móviles de 500 millones de usuarios a diario.

Даже в Википедии написано про это:

Gartner Group estimated that there were a total of 200 billion lines of COBOL in existence, which ran 80% of all business programs.

На сайте IBM про Mainframes:

Today’s mainframe the IBM zEnterprise System empowers leading businesses across industries:

92 of the top 100 banks, businesses like Citicorp who will use the mainframe to provide a single view of the client across all lines of business
23 of the top 25 retailers, businesses like Tesco who are exploiting the mainframe to strengthen the supply chain to efficiently handle peak trading
9 out of 10 of the top insurers, businesses like Nationwide who have saved tens of millions of dollars through a mainframe cloud computing model

Mainframes across the globe process roughly 30 billion business transactions per day,...

Самая распространённая работа на Manframe это: COBOL/CICS/DB2/JCL.

На счёт COBOL + Web через Mainframe.

На сеогндяшний день, COBOL под Mainframe z/OS работает c Java, XML, WebService и т.д. VisualCOBOL от MicroFocus интегрируется в Visual Sutio, включает в себя OO COBOL. Компания Fujitsu выпускает IDE NetCOBOL For .NET... Существуют компиляторы OpenSource. В общем, COBOL как и другие языки, естественно со временeм развивается и не стоит на месте.

Так почему крупнейшие компании как IBM, MicroFocus, Fujitsu, и даже HP (да да, и они в COBOL вкладываются, если не ошибаюсь по сей день), не кричат на весь мир что COBOL жив и яро не опровергают обратное мнение?! Потому, что им просто напросто нет нужды. Весь большой бизнес стоит на Mainframe, и будет стоять. Ярая реклама нужна для раскрутки, а они уже давно раскручены. Естественно, глупо считать, что они не верят в будущее COBOL-a, и притом не просто продолжают его поддержку, а развивают его.

Кстати и у MicroSoft был свой компилятор COBOL. Но они вышли из гонки ещё в 90-ых.

@aedeph · 27.06.2015, 19:47

Большинство ссылок очень сильно напоминают маркетинговый булшит, а статья из ссылки на википедии и вовсе написана в 1997-м году.

О том, что кобол кодеры на свой бутерброд с маслом и небольшой домик в большом Лондоне в ближайшем будущем будут способны заработать, сомнений конечно же никаких нет, но всякие дотнеты и жабы свою долю увеличат точно.

@Kukstyler · 28.06.2015, 17:55 **[ТС]**

На мой взгляд, на "маркетинговый булшит" это не тянет, слабо слишком. Знаю точно следующее - за 10 лет, что работаю на COBOL-е, во всех банках где работал я, где работали мои сотрудники раньше, были на Manframe и COBOL/CICS/DB2, поголовно все. Я уже не говорю про государственные учреждения, страховые компании (на пример AXA), и .т.д. Фирмы предоставляющие сервис поставки программистов, такие как Accenture, ATOS, SOPRA, и огромное количество других фирм, проводят курсы (несколько раз в год) по COBOL-у (я сам, уже не раз проводил такие курсы), и потом всех (почти, кто освоил курс) сами же трудоустраивают. Я сам так начинал.

Добавлено через 2 часа 6 минут
Да, хотел добавить, что естественно подавляющее количество кода на COBOL-е находится именно на Mainframe. Компиляторы под Windows, и другие ОС сравнительно новые, по-этому по крайней мере на данный момент серьёзную конкуренцию более современным языкам COBOL вряд ли сможет создать. Это я считаю абсолютно объективным мнением и полностью с ним согласен. Однако надо сказать, что Fujitsu PowerCOBOL, и MicroFocus NexExpress (которые я использую для программ для Windows) серьёзные IDE, опять так и для создания бизнес приложений. Фактически, что касается именно взаимодействия с OS, GUI и т.д. они делают всё то, что IDE под C++, Delphi, VB и т.д. Плюс в том, что можно использовать плюсы COBOL-а (лёгкую и гибкую работу со строками, индексированные файлы и т.д.).

Добавлено через 3 минуты
Пару скринов приложений сделанным мной в среде Fujitsu PowerCOBOL можно посмотреть здесь.

@Catstail · 29.06.2015, 11:26

Kukstyler, понятно, что современная среда разработки должна быть оконной. Эти средства несложно "прикрутить" к любому языку. Интересен именно язык. Приведите пример кода, например, на VB и равнозначный код на COBOL (чтобы можно было сравнить).

@Kukstyler · 29.06.2015, 12:16 **[ТС]**

Catstail, без проблем. Единственное, в интернете таких "сравнительных переводов" нет (может и есть, но нормального ничего найти не смог). Так, что Вы скажите какой/какие примеры хотите посмотреть, а я напишу или переведу (с того же VB) на COBOL.

@Catstail · 29.06.2015, 12:27

Давайте начнем с совсем простого: есть таблица в реляционной БД. Нужно взять из нее несколько полей, отфильтровать по определенному критерию, отсортировать, подбить промежуточные итоги и вывести в текстовый документ с шапкой.

@Kukstyler · 29.06.2015, 16:25 **[ТС]**

Сначала писал по кускам, с объяснениями... Потом увидел, что получился километровый пост. Так что сейчас просто скидываю программу, и буду отвечать на все ваши вопросы, что, как да почему.
Эта программа написана на базе общепринятых стандартов . В "лысом" варианте, она конечно ополовинится.

Code
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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
******************************************************************
*                   IDENTIFICATION DIVISION
******************************************************************
 IDENTIFICATION DIVISION.
 PROGRAM-ID.    PROGRAM1.
 
******************************************************************
*                    ENVIRONMENT DIVISION
******************************************************************
 ENVIRONMENT DIVISION.
 
******************************************************************
*                  DECLARATION DES FICHIERS                      *
******************************************************************
 INPUT-OUTPUT SECTION.
 
 FILE-CONTROL.
 
     SELECT FALITABL
     ASSIGN TO FALITABL
     ORGANIZATION IS SEQUENTIAL
     ACCESS MODE  IS SEQUENTIAL
     FILE STATUS  IS SW-FILE-STATUS.
 
******************************************************************
*                       DATA DIVISION                            *
******************************************************************
 DATA DIVISION.
 
 FILE SECTION.
 
******************************************************************
*                       FALITABL FILE                            *
******************************************************************
 FD  FALITABL
     RECORD CONTAINS 132 CHARACTERS
     RECORDING MODE IS F
     LABEL RECORDS ARE STANDARD
     DATA RECORD IS FAT-FALITABL.
 01  FAT-FALITABL                 PIC X(132).
 
******************************************************************
*                  WORKING-STORAGE SECTION
******************************************************************
 WORKING-STORAGE SECTION.
 
 01  WS-ABEND.
     05  WS-OBJECT                PIC X(8).
     05  WS-ACTION                PIC X(8).
     05  WS-CODE                  PIC -(2)9.     
 
******************************************************************
*                        FILE-STATUS
******************************************************************
 01  SW-FILE-STATUS               PIC X(2).
     88  SW-FS-OK                           VALUE '00'.
     88  SW-FS-EOF                          VALUE '10'.
 
******************************************************************
*                        STRUKTURA SHAPKI
******************************************************************
 01  RPT-SHAPKA.     
     05  FILLER                   PIC X(8)  VALUE SPACES. 
     05  FILLER                   PIC X(4)  VALUE 'IMYA'. 
     05  FILLER                   PIC X(15) VALUE SPACES. 
     05  FILLER                   PIC X(8)  VALUE 'FAMILIYA'. 
     05  FILLER                   PIC X(7)  VALUE SPACES. 
     05  FILLER                   PIC X(5)  VALUE 'ADRES'. 
     05  FILLER                   PIC X(45) VALUE SPACES. 
     
 01  RPT-LINIYA.
     05  RPT-IMYA                 PIC X(20).
     05  FILLER                   PIC X VALUE SPACES.
     05  RPT-FAMILIYA             PIC X(30).
     05  FILLER                   PIC X VALUE SPACES.
     05  RPT-ADRES                PIC X(50).
 
******************************************************************
*                             SQLCA
******************************************************************
     EXEC SQL
         INCLUDE SQLCA
     END-EXEC.
 
******************************************************************
*                         DCLGEN TABLE
******************************************************************
     EXEC SQL
         INCLUDE DKLIENTY
     END-EXEC.
 
******************************************************************
*                     DECLARATION CURSEUR
******************************************************************
     EXEC SQL
         DECLARE M_KURSOR CURSOR WITH HOLD FOR
          SELECT IMYA,
                 FAMILIA,
                 ADRES
            FROM KLIENTY
           WHERE ID_KLIENT > :KLI-ID-KLIENT
     END-EXEC.
 
*****************************************************************
*                      PROCEDURE DIVISION.
*****************************************************************
 PROCEDURE DIVISION.
 
     PERFORM 1000-START
        THRU 1000-START-EXIT
 
     PERFORM 2000-PROCESS
        THRU 2000-PROCESS-EXIT
       UNTIL SQLCODE = +100
 
     PERFORM 3000-END
        THRU 3000-END-EXIT
 
     STOP RUN
     .
 
*****************************************************************
*                      1000-START.
*****************************************************************
 1000-START.
 
     MOVE ZEROS TO ID_KLIENT
 
     EXEC SQL
         OPEN M_KURSOR
     END-EXEC.
 
     EVALUATE SQLCODE
 
         WHEN ZEROS
             PERFORM 1100-OPEN-FALITABL
             PERFORM 1200-ZAPISAT-SHAPKU
             PERFORM 5000-FETCH-KURSOR
 
         WHEN +100
             DISPLAY 'DANNYX PO ZADANNYM KRITERIYAM NE NAIDENO'             
 
         WHEN OTHER
             MOVE 'M_KURSOR' TO WS-OBJECT
             MOVE 'OPEN'     TO WS-ACTION
             MOVE SQLCODE    TO WS-CODE
 
     END-EVALUATE
     .
 
 1000-START-EXIT.
     EXIT.
 
*****************************************************************
*                    1100-OPEN-FALITABL
*****************************************************************
 1100-OPEN-FALITABL.
     
     OPEN OUTPUT FALITABL
 
     IF  NOT SW-FS-OK
         MOVE 'FALITABL'     TO WS-OBJECT
         MOVE 'OPEN'         TO WS-ACTION
         MOVE SW-FILE-STATUS TO WS-CODE
 
         GO TO 9999-ABEND
     END-IF     
     .
     
*****************************************************************
*                    1200-ZAPISAT-SHAPKU
*****************************************************************
 1200-ZAPISAT-SHAPKU.
     
     WRITE FAT-FALITABL FROM RPT-SHAPKA
     
     IF  NOT SW-FS-OK
         MOVE 'FALITABL'     TO WS-OBJECT
         MOVE 'WRITE'        TO WS-ACTION
         MOVE SW-FILE-STATUS TO WS-CODE
 
         GO TO 9999-ABEND
     END-IF
     
     MOVE ALL '-' TO RPT-IMYA
                     RPT-FAMILIYA
                     RPT-ADRES     
     
     PERFORM 4000-ZAPISAT-LINIYU
     .     
     
*****************************************************************
*                      2000-PROCESS
*****************************************************************
 2000-PROCESS.
     
     MOVE KLI-IMYA     TO RPT-IMYA    
     MOVE KLI-FAMILIYA TO RPT-FAMILIYA
     MOVE KLI-ADRES    TO RPT-ADRES   
     
     PERFORM 4000-ZAPISAT-LINIYU
     PERFORM 5000-FETCH-KURSOR
     
 2000-PROCESS-EXIT.
     EXIT.
 
*****************************************************************
*                           3000-END
*****************************************************************
 3000-END.
     
     EXEC SQL                    
         CLOSE M_KURSOR
     END-EXEC                    
                                 
     IF  SQLCODE NOT = ZEROS 
         MOVE 'M_KURSOR' TO WS-OBJECT
         MOVE 'CLOSE'    TO WS-ACTION
         MOVE SQLCODE    TO WS-CODE
 
         GO TO 9999-ABEND 
     END-IF
     
     CLOSE FALITABL
 
     IF  NOT SW-FS-OK
         MOVE 'FALITABL'     TO WS-OBJECT
         MOVE 'CLOSE'        TO WS-ACTION
         MOVE SW-FILE-STATUS TO WS-CODE
 
         GO TO 9999-ABEND
     END-IF
     . 
 
 3000-END-EXIT.
     EXIT.
 
*****************************************************************
*                      4000-ZAPISAT-LINIYU
*****************************************************************
 4000-ZAPISAT-LINIYU.
    
     WRITE FAT-FALITABL FROM RPT-LINIYA
     
     IF  NOT SW-FS-OK
         MOVE 'FALITABL'     TO WS-OBJECT
         MOVE 'WRITE'        TO WS-ACTION
         MOVE SW-FILE-STATUS TO WS-CODE
 
         GO TO 9999-ABEND
     END-IF
     
     INITIALIZE RPT-LINIYA REPLACING
         ALPHANUMERIC DATA BY SPACES
         NUMERIC      DATA BY ZEROS
     .
         
*****************************************************************
*                      5000-FETCH-KURSOR
*****************************************************************
 5000-FETCH-KURSOR.
     
     EXEC SQL                    
         FETCH M_KURSOR
          INTO :KLI-IMYA,
               :KLI-FAMILIYA,     
               :KLI-ADRES    
     END-EXEC                    
                                 
     IF  SQLCODE NOT = ZEROS AND 
         SQLCODE NOT = +100)
         MOVE 'M_KURSOR' TO WS-OBJECT
         MOVE 'FETCH'    TO WS-ACTION
         MOVE SQLCODE    TO WS-CODE
 
         GO TO 9999-ABEND 
     END-IF
     .
 
*****************************************************************
*                      9999-ABEND.
*****************************************************************
 9999-ABEND.
     
     DISPLAY '============================================='
     DISPLAY '=             OSHIBKA PROGRAMMY!!!           '
     DISPLAY '============================================='
     DISPLAY '=> OBJECT    : ' WS-OBJECT
     DISPLAY '=> ACTION    : ' WS-ACTION
     DISPLAY '=> ERROR CODE: ' WS-CODE
     DISPLAY '============================================='
     
     STOP RUN.

@aedeph · 29.06.2015, 17:06

Не по теме:

О, Fortran IV. Прямо глаз радуется.

@Kukstyler · 29.06.2015, 18:20 **[ТС]**

Сейчас случайно заметил, что в 1000-START, в WHEN OTHER нехватает GO TO 9999-ABEND. Писал на работе второпях, прошляпил.

@Vtulhu · 16.10.2015, 10:31

Работа на нем есть?

@Kukstyler · 23.10.2015, 00:03 **[ТС]**

Vtulhu, работаю на нём с 2007-ого, безработицы по этому профилю не замечается даже сейчас (я про кризис)

@Kukstyler · 26.02.2016, 12:25 **[ТС]**

Случайно наткнулся на статью: http://bourabai.kz/alg/cobol.htm

@Kukstyler · 10.03.2016, 12:45 **[ТС]**

Тоже случайно наткнулся, плюгин искал:

http://www.sonarqube.org/cobol-is-alive/

Most C, Java, C++, C#, JavaScript… developers reading this blog entry might think that COBOL is dead and that SonarSource should better focus its attention on more hyped languages like Scala, Go, Dart, and so on. But in 1997, the Gartner Group reported that 80 percent of the world’s business ran on COBOL, with more than 200 billion lines of code in existence and an estimated 5 billion lines of new code annually. COBOL is mainly used in the banking and insurance markets, and according to what we have seen in the past years, the erosion of the number of COBOL lines of code used in production is pretty low. So not only is COBOL not YET dead, but several decades will be required to see this death really happen.

@Kukstyler · 24.03.2016, 13:07 **[ТС]**

По поводу высказываний Дейкстры: Книга.
Michael Coughlan - "Beginning COBOL for Programmers"

Introduction to COBOL
When, in 1975, Edsger Dijkstra made his comment that “The use of COBOL cripples the mind; its teaching should,
therefore, be regarded as a criminal offence,1” he gave voice to, and solidified, the opposition to COBOL in academia.
That opposition has resulted in fewer and fewer academic institutions teaching COBOL so that now it has become
difficult to find young programmers to replace the aging COBOL workforce.2-3 This scarcity is leading to an impending
COBOL crisis. Despite Dijkstra’s comments and the claims regarding COBOL’s imminent death, COBOL remains
a dominant force in the world of enterprise computing, and attempts to replace legacy COBOL systems have been
shown to be difficult, dangerous, and expensive.
In this chapter, I discuss some of the reasons for COBOL’s longevity. You’re introduced to the notion of an
application domain and shown the suitability of COBOL for its target domain. COBOL is one of the oldest computer
languages, and the chapter gives a brief history of the language and its four official versions. Later, the chapter presents
the evidence for COBOL’s dominance in enterprise computing and discusses the enigma of its relatively low profile.
An obvious solution to the scarcity of COBOL programmers is to replace COBOL with a more fashionable
programming language. This chapter exposes the problems with this approach and reveals the benefits of retaining,
renovating, and migrating the COBOL code.
Finally, I discuss why learning COBOL and having COBOL on your résumé could be useful additions to your
armory in an increasingly competitive job market.

@Kukstyler · 28.10.2016, 15:22 **[ТС]**

Michael Coughlan - "Beginning COBOL for Programmers"

Вот та книга о которой я говорил. Полистайте друзья, будет интересно. Особенно тем, кто думает, что Кобол давно умер.

Формат файла: PDF
Разбит на 2 части с помощью 7-Zip (макс. для PDF 10 МБ)
Расширение *.zip.001 (последнее .zip добавил для того, что бы форум распознал файл)

@Kukstyler · 28.10.2016, 15:24 **[ТС]**

Также данный господин выкладывает код: https://github.com/Apress/beg-... rogrammers

@korvin_ · 28.10.2016, 19:35

Сообщение от Kukstyler

код

Без слёз на это смотреть невозможно. В какой главе там веб-сервисы рассматриваются?

@Kukstyler · 31.10.2016, 16:41 **[ТС]**

korvin_, а кто Вам сказал, что там рассматриваются вебсервиcы? В каком месте Вы это прочитали? Там говорится о том, чем Кобол хорош, и есть сравнения с другими языками.
Про Вебсервисы, если Вам это интересно, поищите на сайте MicroFocus.

Добавлено через 1 минуту

Не по теме:

Сообщение от korvin_

Без слёз на это смотреть невозможно.

:D :D :D

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307

	COBOL - умирает или нет? Его преимущества и недостатки 26.06.2015, 23:04. Показов 26510. Ответов 164 Метки cobol, steel alive (Все метки) Всем привет. Решил создать эту тему, т.к. существует довольно популярное мнение (особенно среди людей занимающихся современными языками программирования) о том, что COBOL уже никуда не годится, и что в скором будущем он будет заменён на более современные языки программирования. Однако как человек зарабатывающий на этом языке на хлеб (и зарабатывающий довольно хорошо) и изучив мир Mainframe изнутри, я могу с уверенностью сказать, что на самом деле всё далеко не так, а скорее наоборот. Немного истории. COBOL является абревиатурой COmmon Business-Oriented Language. То есть, язык создавался для решения бизнес задач в 1959 году (в 1960 году был уже утверждён комиссией CODASYL). Язык высоко уровня, фактически целиком состоит из английских слов. Сделано это для того, что бы любой бизнес аналитик мог понять, что делает программа. Это облегчает и синтаксис языка для программиста. Естественно, язык пережил много доработок и эволюций. На данный момент последная версия COBOL-а для IBM Enterprise COBOL for z/OS, Version 5.1. Существует и Object Oriented COBOL, COBOL 2002 который можно встретить в компиляторах от Fujitsu и MicroFocus. Последний, но если не ошибаюсь пока не утверждённый стандард - COBOL 2014. Язык больше всего используется на IBM Mainframe, вместе с IBM CICS, и IBM DB2. Преимущества и недостатки языка. Известная положительная сторона COBOL-а - он очень хорошо справляется с большими количествами данных в Batch процессах. Почему конкретно, я не знаю, но это известный факт. Могу лишь предположить, что возможно язык устроен (случайно или нет) таким образом, что оптимально компилируется в машинный код. Я нахожу некое сходство с ассемблером, но это только мои догадки. По разным данным, от 70% до 90% бизнес приложений для среднего и крупного бизнеса написано именно на COBOL-e. Таким образом, только для тех. поддержки уже существующего программного обеспечения понадобились бы огромные денежные затраты, и неимоверное количество времени. Однако надобности такой естественно нет. COBOL и раньше на зависть справлялся с поставленными задачами, и сейчас делает это лучше других. Иначе бы его бы начали заменять ещё в 80-ые или в 90-ые. Такие фирмы как Fujitsu или MicroFocus, или киты как IBM, не занимаются неперспективными проектами. 2

@aedeph 93 / 19 / 5 Регистрация: 06.06.2015 Сообщений: 99
	27.06.2015, 19:47
	Большинство ссылок очень сильно напоминают маркетинговый булшит, а статья из ссылки на википедии и вовсе написана в 1997-м году. О том, что кобол кодеры на свой бутерброд с маслом и небольшой домик в большом Лондоне в ближайшем будущем будут способны заработать, сомнений конечно же никаких нет, но всякие дотнеты и жабы свою долю увеличат точно. 0

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	28.06.2015, 17:55 [ТС]
	На мой взгляд, на "маркетинговый булшит" это не тянет, слабо слишком. Знаю точно следующее - за 10 лет, что работаю на COBOL-е, во всех банках где работал я, где работали мои сотрудники раньше, были на Manframe и COBOL/CICS/DB2, поголовно все. Я уже не говорю про государственные учреждения, страховые компании (на пример AXA), и .т.д. Фирмы предоставляющие сервис поставки программистов, такие как Accenture, ATOS, SOPRA, и огромное количество других фирм, проводят курсы (несколько раз в год) по COBOL-у (я сам, уже не раз проводил такие курсы), и потом всех (почти, кто освоил курс) сами же трудоустраивают. Я сам так начинал. Добавлено через 2 часа 6 минут Да, хотел добавить, что естественно подавляющее количество кода на COBOL-е находится именно на Mainframe. Компиляторы под Windows, и другие ОС сравнительно новые, по-этому по крайней мере на данный момент серьёзную конкуренцию более современным языкам COBOL вряд ли сможет создать. Это я считаю абсолютно объективным мнением и полностью с ним согласен. Однако надо сказать, что Fujitsu PowerCOBOL, и MicroFocus NexExpress (которые я использую для программ для Windows) серьёзные IDE, опять так и для создания бизнес приложений. Фактически, что касается именно взаимодействия с OS, GUI и т.д. они делают всё то, что IDE под C++, Delphi, VB и т.д. Плюс в том, что можно использовать плюсы COBOL-а (лёгкую и гибкую работу со строками, индексированные файлы и т.д.). Добавлено через 3 минуты Пару скринов приложений сделанным мной в среде Fujitsu PowerCOBOL можно посмотреть здесь. 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	29.06.2015, 11:26
	Kukstyler, понятно, что современная среда разработки должна быть оконной. Эти средства несложно "прикрутить" к любому языку. Интересен именно язык. Приведите пример кода, например, на VB и равнозначный код на COBOL (чтобы можно было сравнить). 0

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	29.06.2015, 12:16 [ТС]
	Catstail, без проблем. Единственное, в интернете таких "сравнительных переводов" нет (может и есть, но нормального ничего найти не смог). Так, что Вы скажите какой/какие примеры хотите посмотреть, а я напишу или переведу (с того же VB) на COBOL. 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	29.06.2015, 12:27
	Давайте начнем с совсем простого: есть таблица в реляционной БД. Нужно взять из нее несколько полей, отфильтровать по определенному критерию, отсортировать, подбить промежуточные итоги и вывести в текстовый документ с шапкой. 0

@aedeph
	29.06.2015, 17:06
	Не по теме: О, Fortran IV. Прямо глаз радуется. 0

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	29.06.2015, 18:20 [ТС]
	Сейчас случайно заметил, что в 1000-START, в WHEN OTHER нехватает GO TO 9999-ABEND. Писал на работе второпях, прошляпил. 0

@Vtulhu 431 / 385 / 200 Регистрация: 12.08.2011 Сообщений: 1,610
	16.10.2015, 10:31
	Работа на нем есть? 0

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	23.10.2015, 00:03 [ТС]
	Vtulhu, работаю на нём с 2007-ого, безработицы по этому профилю не замечается даже сейчас (я про кризис) 1

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	26.02.2016, 12:25 [ТС]
	Случайно наткнулся на статью: http://bourabai.kz/alg/cobol.htm 1

@Kukstyler 1260 / 870 / 268 Регистрация: 02.04.2009 Сообщений: 3,307
	28.10.2016, 15:24 [ТС]
	Также данный господин выкладывает код: https://github.com/Apress/beg-... rogrammers 1