COMTRAN - COMTRAN

COMTRAN
VývojářBob Bemer
Poprvé se objevil1957 (1957)
Ovlivněno
FLOW-MATIC
Ovlivněno
COBOL

COMTRAN (COM commercial TRANslator) je brzy programovací jazyk vyvinut v IBM. Bylo zamýšleno jako ekvivalent obchodního programování vědeckého programovacího jazyka FORTRAN (FORmula TRANslator). Sloužil jako jeden z předchůdců COBOL Jazyk. Vyvinul Bob Bemer V roce 1957 byl jazyk prvním prvkem programovacího jazyka známým jako obrazová doložka.

Příspěvky do COBOLu

Do COBOL bylo začleněno několik prvků COMTRAN:

  • Doložka o obrázku.
  • Odstavec: rozdělení kódu na odstavce (s nezávaznými řádky).
  • Názvy odstavců. Přiřazení názvů odstavcům a skoky (JÍT DOjsou s názvem odstavce, nikoli číslem řádku.
  • KONEC doložka o operacích zadávání souborů.
  • Figurální konstanta VYSOKÁ CENA.
  • Předání číselné hodnoty (NÁVRATNÝ KÓD) zpět do operačního systému, když je program končí.

Doložka o obrázku

Hlavní článek: Doložka o obrázku

Prvek obrazové klauzule definuje délku libovolného daného vztažného bodu, podobně jako slovník definuje slova. Zejména klauzule obrázku určuje, zda datum obsahuje písmena a čísla a další charakteristiky dat, včetně formátu, velikosti a datového typu.

Ukázkový program

Toto je ukázkový program COMTRAN, který provádí výpočty mezd.[1]

 01001 *POSTUP 01002 VOLÁNÍ (ZAMĚSTNANEC.ČÍSLO)  ZAMĚSTNANEC, 01003      (DLUHOPIS)     BONDEDUKT, 01004      (BONDENOMINACE)  BONDENOM, 01005      (BONDACKUMULACE) BONDACCUM, 01006      (POJIŠTĚNÍ.PREM)   INSPREM, 01007      (ODCHOD DO DŮCHODU.PREM)  RETPREM, 01008      (ODDĚLENÍ.Celkový) DPT.  01009 START. OTEVŘENO VŠECHNO SOUBORY.  01010 DOSTAT.MISTR. DOSTAT MISTR, NA KONEC DĚLAT KONEC.Z.Mistři.  01011 DOSTAT.DETAIL. DOSTAT DETAIL, NA KONEC JÍT NA KONEC.Z.PODROBNOSTI.  01012 POROVNAT.ZAMĚSTNANEC.ČÍSLA. JÍT NA VYPOČÍTAT.PLATIT KDYŽ DETAIL ZAMĚSTNANEC 01013       JE ROVNAT SE NA MISTR ZAMĚSTNANEC, NÍZKÝ.DETAIL KDYŽ DETAIL 01014       ZAMĚSTNANEC JE MÉNĚ NEŽ MISTR ZAMĚSTNANEC.  01015 VYSOKÝ.DETAIL. HÝBAT SE 'M' NA MISTR CHYBOVÝ KÓD, SOUBOR MISTR V 01016       CHYBA.SOUBOR.  01017         DOSTAT MISTR, NA KONEC DĚLAT KONEC.Z.Mistři.  01018         JÍT NA POROVNAT.ZAMĚSTNANEC.ČÍSLA.  02001 NÍZKÝ.DETAIL. HÝBAT SE 'D' NA DETAIL CHYBOVÝ KÓD, SOUBOR DETAIL V 02002        CHYBA.SOUBOR.  02003          JÍT NA DOSTAT.DETAIL.  02004 KONEC.Z.Mistři. LI DETAIL ZAMĚSTNANEC = VYSOKÝ.HODNOTA PAK JÍT NA 02005         KONEC.Z.BĚH V OPAČNÉM PŘÍPADĚ SOUBOR MISTR ZAMĚSTNANEC = VYSOKÝ.HODNOTA.  02006 KONEC.Z.PODROBNOSTI. LI MASTEREMPLOYNO = VYSOKÝ.HODNOTA PAK JÍT NA 02007         KONEC.Z.BĚH V OPAČNÉM PŘÍPADĚ SOUBOR DETAIL ZAMĚSTNANEC = VYSOKÝ.HODNOTA, JÍT 02008         NA POROVNAT.ZAMĚSTNANEC.ČÍSLA.  02009 KONEC.Z.BĚH. HÝBAT SE ODPOVÍDAJÍCÍ GRAND.CELKOVÝ NA VÝPLATA, SOUBOR 02010        VÝPLATA, ZAVŘÍT VŠECHNO SOUBORY. 02011          STOP 1234.  02012 VYPOČÍTAT.PLATIT. LI DETAIL HODINY JE VĚTŠÍ NEŽ 40 PAK SOUBOR DETAIL 02013        HRUBÝ = (DETAIL HODINY - 40) * MISTR HODNOTIT * 1.5.  02014        SOUBOR DETAIL HRUBÝ = DETAIL HRUBÝ + MISTR HODNOTIT * 40, DĚLAT 02015      FICA.BĚŽNÉ, DĚLAT UZAVŘENÍ.DAŇ.BĚŽNÉ.  02016        LI MISTR BONDEDUKT JE NE ROVNAT SE NA NULA PAK DĚLAT 02017      POUTO.BĚŽNÉ.  02018        DĚLAT VYHLEDÁVÁNÍ PRO INDEX = 1(1)12.  02019 SÍŤ. SOUBOR VÝPLATA NETPAY = DETAIL HRUBÝ - DETAIL FICA - DETAIL 02020        WHT -DETAIL ODCHOD DO DŮCHODU - DETAIL POJIŠTĚNÍ - DETAIL 02021        BONDEDUKT.

Reference

  1. ^ Viz příklad na straně 87 dokumentu IBM F28-8043 Commercial Translator General Reference Manual, June 1960 (pdf, 8,2 mil.)

Další čtení

  • Počáteční počítače IBMCharles Bashe, Lyle Johnson, John Palmer a Emerson Pugh, 1986, MIT Press, ISBN  0-262-02225-7.

externí odkazy