COBOL - jazyk, který stále žije

14.4.2006 18:46

Na webu www.linuxexpres.cz mi dnes vyšel článek o programovacím jazyce COBOL, který mnoho lidí v dnešních dnech již považuje za mrtvý. Pokud se o COBOLU chcete dozvědět více, můžete si článek přečíst.

       

Komentáře

[Michal Vyskočil]

Celosvětově představuje COBOL dle různých průzkumů nejméně polovinu ze všech obchodních a finančních aplikací, a to především pokud jde o skutečně velké firmy.

No podle slov našeho děkana se tato situace týká především Spojených Států, kde je COBOL pořád ještě etablovaný. Zda je tomu tak na celém světě, to netuším.

[RTOS]

Podle naseho vedouciho katedry je to zase LISP

[LuFa]

Co jsem četl některé články o COBOLU, tak toto uváděli. U nás v Čechách co vím na COBOLU vyvíjí svůj informační systém Hradecká firma Ortex. Nicméně COBOL je u nás v menšině . Ve světě, kde informační systémy mají své kořeny kdesi v minulosti je situace přesně opačná a starší jazyky vítězí. Vždyť přepsání aplikace do jiného programovacího jazyka s sebou nese nemalé finanční prostředky a pokud aplikace funguje bezvadně, není k tomu ani důvod.

[Kyosuke]

Cobol je svým způsobem DSLko. A DSLka dneska zažívají boom... (Jen lispeři nechápavě kroutí hlavou, co je na tom tak převratného... )

[pzad]

Z tych zdrojakov v COBOLe, ktore som mal sancu citat, mi bolo zle.

[RTOS]

A co takhle zavorkove orgie v LISPu?

Self-made kousek jednoho programu:

(defun validate (way)
	(let ((output-tmp nil))
	(let ((start nil))
	(let ((end nil))
	(let ((value nil))
	(loop
		(cond
			((equal output nil)(return nil))
		)
		(setf start (first output))
		(setq output (rest output))
		(setf end (first output))
		(cond
			((equal end nil)(return nil))	
		)
		(setf value (getdistance start end))

		(setq correct (equal ( find (list start end) edges :test #'equal) (list start end) ))

		(cond
			((equal output-tmp nil)(setf output-tmp (list(list value (list start end)))))
			(t(setf output-tmp (append output-tmp (list (list value (list start end))))))
		)
		
		
	)
	)
	)
	)
	(setq output output-tmp)
	)	
)

[Kyosuke]

Jestli jsi autorem tohoto LISPovského kódu, pak Ti s radostí sděluju, že píšeš naprosto prasácky... Jenomže naprosto prasácky se dá psát v KAŽDÉM jazyku... :-/ Takže tohle není argument.

[RTOS]

V cem je to prasacke? Ne ze by me to zajimalo, stejne ten program ma jen fungovat, o zdrojak se nikdo starat az tak nebude, takze jsem si s tim ani moc hlavu nelamal, ale rad se neco naucim.

To ze neni vsechno odsazeny? Nebo ze o hodnotu z loop se nestaram (stejne me nezajima)?

[Kyosuke]

Až se probudím (píšu ze spaní ), něco sem hodím...

[Kníže Ignor]

sliby chyby

[Lukáš Zapletal]

Že by kolegovi vadily ty ukončující závorky na více řádků? Hmm.

[RTOS]

No, ony tam jsou schvalne, protoze patri k tim let. Jen by meli byt odsazene, aby bylo videt "zapouzdreni", ale to se mi uz nechtelo delat.

Jinak, celej tento kod je povoleno normou zapsat na jeden radek, ale kdo by se v tom pak vyznal....

[Pavel Rytíř]

Dobrý den, to jste asi měl smůlu na autora(y).
Součástí definice COBOLu byl také požadavek na značnou míru samodokumentovatelnosti zdrojového textu. Dokonce začínal jako formulářový jazyk.
Se znalostí příslušného firmware může autor (i cizí člověk) vzhledem k "diviznímu uspořádání COBOLu" bez problému dělat velmi rychle běžné opravy "dávno zapomenutého" COBOLského zdrojáku.
pavel.rytir (zavináč) ortex.cz

[Matra]

Přátelé, COBOL opravdu žije v současnosti v něm běží přibližně 80 % světových aplikací. Sami cítíte, že programátorů v tomto jazyce ubývá. My se mu věnujeme. Věnujeme se IBM Power Systems, COBOLU, mainframu. Pokud, je tady někdo kdo má zájem vědět víc. Doporučuji navštívit http://www.akademie-assist.cz/ Je to k věci a je to pro vás drazí COBOListi.