Ako skontrolovať dátum rozsah v COBOL

COBOL môže zdať staromódny , keď v porovnaní s objektovo - orientovaný jazyk , ale je to stále darí na starších sálových počítačoch , kde je pravdepodobné , že na zabezpečenie jeho použitie pre nadchádzajúce roky jeho bleskový číslo - křupání . Pre tých , zbehlý v jazyku Java alebo C # , to môže prísť ako šok , že tento jazyk nemá dátum primitív , ale veľa z kódu aplikácie závisí na dáta závislostí . Tu je niekoľko tipov pre správu dát v COBOL . Pokyny dovolená 1

Pochopiť základnú štruktúru COBOL . Každý COBOL program má štyri hlavné časti tzv divízie . Jedná sa o IDENTIFIKÁCIA , ŽIVOTNÉ PROSTREDIE , dáta aj postup . Dátum údaje pokračuje v DATA divízii , čo je oblasť , ktorá popisuje pamäťové štruktúry .
2

Určte , ako sú dáta uložené na disku . Dáta sú často uložené ako hrubá čísla vo formáte RRRRMMDD . Napríklad , 10.2.2014 je zvyčajne uložená ako 20140210 . Zastúpené v COBOL , dátum štruktúra DATA divízie vyzerá tohle :

01 DATA-RECOR D. ... dátové polia ... 03 EVENT-DATE 0,05 AKCIA - YEAR PIC 9999,05 AKCIA - MESIAC PIC 99.05 EVENT-DAY PIC 99 ... viac polí ..

riadok dát načíta do DAT - RECORD prvok , ktorý je rozdelený do niekoľkých oblastí . Pole Dátum Udalosť ( Event - DATE ) je uložený niekde v každom riadku dát vo formáte RRRRMMDD . Dátum je rozdelená na rok , mesiac a deň polí .
3

Definovať štruktúru , kde môžu byť dáta prijatá od konzoly . Vzhľadom k tomu , dáta sa zvyčajne zapisujú do dd /mm /rrrr , musí byť štruktúra odráža .

01 DATE-IN 0,03 MM - IN PIC 99.03 FILLER PIC X.03 DD - IN PIC 99.03 FILLER PIC X. 03 YYYY-IN PIC 9999 .
4

definovať úložisko pre obe dátum začatia a dátum ukončenia . Po dáta sa načítajú do štruktúry DATE - IN , musí byť upravený tak , aby formáte RRRRMMDD . Počiatočný dátum a konečný dátum štruktúry budú držať týchto hodnôt .

01 START-DATE 0,03 START - YYYY PIC 9.999,03 START - MM PIC 99.03 START-DD PIC 99.

Vytvoriť podobnú štruktúru od dátumu ukončenia turnaja s poľa END - YYYY , END - MM a END - DD .
5

Prijať dáta z konzoly alebo JCL ( Job Control Language ) a preformátovať im RRRRMMDD formáte . V konaní divízie , pridajte nasledujúci kód : Autor

PROCEDURE DIVISION.0000 - START.DISPLAY " Dátum začatia " . ACCEPT DATE - IN.START - RRRR = YYYY - IN.START - mm = mm - pri .. START - DD = DD - IN

DISPLAY " Dátum ukončenia " . ACCEPT DATE - IN.END - RRRR = YYYY - IN.END - MM = MM - IN.END - DD = DD - IN .

program spustí , zobrazí sa výzva na počiatočný dátum , hodnota dátum je prijatá a následne formátuje do START - DATE pole priradením každé pole , odkazovať sa na jeho vstupnú náprotivok . Rovnocenný postup sa vykonáva pre koncový dátum .
6

Prečítajte si záznam a porovnať dáta . Pretože všetky dáta sú teraz vo formáte RRRRMMDD , stačí porovnať reťazca zistiť , či niektorý záznam je v časovom ste práve vytvorili

0100READ - RECORD.READ DATA DO DATA - RECORD END , GO TO 0900 . - . END

IF AKCIA - DÁTUM > = START - DATE alebo < = END - DATEPERFORM 1000 - PROCESS - DATA

Každý záznam sa načíta do dátovej štruktúry - RECORD , potom . AKCIA - Pole DATE dostane v porovnaní so dátum začatia a dátum ukončenia polí . V tomto prípade , ak je dátum záznamu je medzi počiatočným a koncovým dátumom , záznam dostane spracovaná .

• Predchádzajúca strana: Checkinstall pre Mac OSX 
• Ďalšia strana: Ako si znížiť veľkosť súboru v XNA