КОМТРАН

КОМТРАН

Разработчик	Боб Бемер
Впервые появился	1957  ( 1957 )
Под влиянием
ФЛОУ-МАТИК
Под влиянием
КОБОЛ

COMTRAN (КОММЕРЧЕСКИЙ ПЕРЕВОД) — один из первых языков программирования, разработанный в IBM . Он был задуман как эквивалент языка научного программирования FORTRAN (FORmula TRANslator) для бизнес-программирования. Он послужил одним из предшественников языка COBOL . Разработанный Бобом Бемером в 1957 году, этот язык был первым, в котором использовался элемент языка программирования, известный как предложение изображения .

Вклад в КОБОЛ

Несколько элементов COMTRAN были включены в COBOL:

• Пункт с картинками .
• Параграфизация: разделение кода на абзацы (переносы строк не имеют значения).
• Названия абзацев. Присвоение названий абзацам и переходам ( GO TO's) относятся к имени абзаца, а не к номеру строки.
• AT END пункт об операциях ввода файлов.
• Образная константа HIGH-VALUE.
• Передача числового значения ( RETURN-CODE программы ) обратно в операционную систему после завершения работы .

Пункт изображения

Основная статья: Пункт с изображением

Элемент предложения изображения определяет, как должен быть отформатирован конкретный элемент данных для вывода. Он состоит из строки букв и цифр. Он похож на спецификатор формата FORTRAN, встречающийся в операторах READ и WRITE, или на строки форматирования, встречающиеся в более современных языках, таких как C. Это стало важной частью COBOL.

Пример программы

Это пример программы COMTRAN, выполняющей расчет заработной платы.

 01001 *PROCEDURE
 
 01002 CALL (EMPLOYEE.NUMBER)  EMPLOYNO,
 01003      (BONDEDUCTION)     BONDEDUCT,
 01004      (BONDENOMINATION)  BONDENOM,
 01005      (BONDACCUMULATION) BONDACCUM,
 01006      (INSURANCE.PREM)   INSPREM,
 01007      (RETIREMENT.PREM)  RETPREM,
 01008      (DEPARTMENT.TOTAL) DPT.
 
 01009 START. OPEN ALL FILES.
 
 01010 GET.MASTER. GET MASTER, AT END DO END.OF.MASTERS.
 
 01011 GET.DETAIL. GET DETAIL, AT END GO TO END.OF.DETAILS.
 
 01012 COMPARE.EMPLOYEE.NUMBERS. GO TO COMPUTE.PAY WHEN DETAIL EMPLOYNO
 01013       IS EQUAL TO MASTER EMPLOYNO, LOW.DETAIL WHEN DETAIL
 01014       EMPLOYNO IS LESS THAN MASTER EMPLOYNO.
 
 01015 HIGH.DETAIL. MOVE 'M' TO MASTER ERRORCODE, FILE MASTER IN
 01016       ERROR.FILE.
 
 01017         GET MASTER, AT END DO END.OF.MASTERS.
 
 01018         GO TO COMPARE.EMPLOYEE.NUMBERS.
 
 02001 LOW.DETAIL. MOVE 'D' TO DETAIL ERRORCODE, FILE DETAIL IN
 02002        ERROR.FILE.
 
 02003          GO TO GET.DETAIL.
 
 02004 END.OF.MASTERS. IF DETAIL EMPLOYNO = HIGH.VALUE THEN GO TO
 02005         END.OF.RUN OTHERWISE SET MASTER EMPLOYNO = HIGH.VALUE.
 
 02006 END.OF.DETAILS. IF MASTEREMPLOYNO = HIGH.VALUE THEN GO TO
 02007         END.OF.RUN OTHERWISE SET DETAIL EMPLOYNO = HIGH.VALUE, GO
 02008         TO COMPARE.EMPLOYEE.NUMBERS.
 
 02009 END.OF.RUN. MOVE CORRESPONDING GRAND.TOTAL TO PAYRECORD, FILE
 02010        PAYRECORD, CLOSE ALL FILES.
 02011          STOP 1234.
 
 02012 COMPUTE.PAY. IF DETAIL HOURS IS GREATER THAN 40 THEN SET DETAIL
 02013        GROSS = (DETAIL HOURS - 40) * MASTER RATE * 1.5.
 
 02014        SET DETAIL GROSS = DETAIL GROSS + MASTER RATE * 40, DO
 02015      FICA.ROUTINE, DO WITHHOLDING.TAX.ROUTINE.
 
 02016        IF MASTER BONDEDUCT IS NOT EQUAL TO ZERO THEN DO
 02017      BOND.ROUTINE.
 
 02018        DO SEARCH FOR INDEX = 1(1)12.
 
 02019 NET. SET PAYRECORD NETPAY = DETAIL GROSS - DETAIL FICA - DETAIL
 02020        WHT -DETAIL RETIREMENT - DETAIL INSURANCE - DETAIL
 02021        BONDEDUCT.

Дальнейшее чтение

• «Ранние компьютеры IBM» , Чарльз Баше, Лайл Джонсон, Джон Палмер и Эмерсон Пью, 1986, MIT Press, ISBN   0-262-02225-7 .

Внешние ссылки

• Программисты генеалогии решают проблему 2000 года в 1958 году. Архивировано 4 марта 2007 г. в Wayback Machine.
• Общее справочное руководство коммерческого переводчика IBM (pdf, 8,2M), стр. 87.