V oblasti starších programovacích jazyků je COBOL stálicí, která nadále hraje klíčovou roli v mnoha podnikových počítačových prostředích. Jedním z běžných úkolů při jednání s COBOLem je manipulace s daty, zejména budoucími. To zahrnuje dosažení odbornosti nejen v základním programování COBOL, ale také porozumět tomu, jak se v jeho ekosystému počítají a manipulují s daty v budoucnosti. Tento článek se ponoří do toho, jak lze provést výpočet budoucího data názorným a komplexním způsobem v COBOL.
Zadané datum je cílem najít datum, které připadne po daném počtu dní. Je nezbytné postarat se o různé scénáře vyplývající z různého počtu dnů v různých měsících a také vzít v úvahu přestupné roky při výpočtu budoucího data.
IDENTIFIKAČNÍ DIVIZE.
PROGRAM-ID. Budoucí datum.
DIVIZE DAT.
PRACOVNĚ-SKLADOVACÍ ČÁST.
01 ws-date obr. 9(8).
01 ws-future-days obr. 9(4).
01 ws-future-date obr. 9(8).
ROZDĚLENÍ POSTUPŮ.
PŘIJMOUT ws-date.
ACCEPT ws-future-days.
COMPUTE ws-future-date = FUNKCE CELÉ ČÍSLO-DATA (ws-date)
+ ws-future-days.
FUNKCE ZOBRAZENÍ DATE-OF-INTEGER (ws-future-date).
STOP RUN.
Porozumění kodexu
Pochopení částí tohoto programu COBOL je užitečné pro pochopení toho, jak funguje výpočet budoucích dat v akci.
V první části DEKLARUJEME proměnné ws-date pro přijetí aktuálního data, ws-future-days pro přijetí počtu dní pro výpočet budoucího data a ws-future-date pro uložení budoucího data. V `DIVIZE PROCEDURY` AKCEPTUJEME aktuální datum a počet dní od uživatele.
Následně vypočítáme budoucí datum. COBOL poskytuje vestavěné funkce jako `FUNCTION INTEGER-OF-DATE` a `FUNCTION DATE-OF-INTEGER` pro výpočty data. `FUNCTION INTEGER-OF-DATE` převede datum na celé číslo. K tomuto celému číslu pak přičteme počet dní. Následně `FUNCTION DATE-OF-INTEGER` převede toto celé číslo zpět na formát data.
COBOL vestavěné funkce data
Stojí za to získat přehled o funkcích data COBOL, které hrají zásadní roli při efektivním provádění výpočtů data v programech.
COBOL poskytuje několik vestavěných funkcí speciálně navržených pro manipulaci s datem a výpočty. Zejména `FUNCTION INTEGER-OF-DATE` a `FUNCTION DATE-OF-INTEGER` jsou dvě takové funkce, které se používají v našem programu pro výpočet data. Tyto funkce nabízejí bezproblémový a efektivní způsob zpracování dat ve vaší aplikaci COBOL, což vám ušetří námahu s psaním složité logiky pro práci s různými formáty dat a scénáři přestupného roku.
Funkce COBOL pro zpracování dat doplňují osvědčenou robustnost a efektivitu jazyka a propůjčují mu nezbytnou zdatnost ke správě moderních scénářů reálného světa, které vyžadují úkoly manipulace s datem včetně výpočtu budoucích dat.
