Ukubala amadethi esikhathi esizayo kuyisidingo esivamile ekuthuthukisweni kwesofthiwe, ikakhulukazi ezinhlelweni zebhizinisi ezifana nezinhlelo zokukhokhisa nezokuhlela. Ngezilimi ezifana ne-Java noma i-Python, lo msebenzi ungase uqonde ngenxa yemitapo yolwazi eyakhelwe ngaphakathi nemisebenzi. Kodwa-ke, ezilimini ezindala ezifana ne-Cobol, lo msebenzi ungabonakala unzima kakhulu njengoba ngokuvamile kufanele sicabangele izici ezifana neminyaka ye-leap.
I-IDENTIFICATION DIvision.
I-ID YOHLELO. IZINSUKU ZESIZAYO.
UKUHLUKANA KWEDATHA.
ISIGABA SOKUSEBENZA-ISITOREJI.
01 WS-CURRENT-DATE.
05 WS-UNYAKA WAMANJE PIC 9(04).
05 WS-CURRENT-MONTH PIC 9(02).
05 WS-CURRENT-DAY PIC 9(02).
01 WS-FUTURE-DATE.
05 WS-FUTURE-YEAR PIC 9(04).
05 WS-FUTURE-MONTH PIC 9(02).
05 WS-FUTURE-DAY PIC 9(02).
UKUHLUKANA KWENKQUBO.
YAMUKELA I-WS-CURRENT-DATE KUSUKA IDETHI
COMPUTE WS-FUTURE-DAY = WS-CURRENT-USUKU + 7
THUTHA INYANGA YE-WS-YAMANJE-IYA KU-WS-FUTURE-MONTH
THUTHA UNYAKA WS-WAMANJE UYE KU-WS-FUTURE-YEAR
IF WS-FUTURE-DAY > 30
ENGEZA 1 KU-WS-FUTURE-MONTH
KHIPHA 30 KUSUKA WS-FUTURE-DAY
PHELA-IF
IF WS-FUTURE-MONTH > 12
ENGEZA 1 KU-WS-FUTURE-YEAR
KHIPHA 12 KUSUKA KU-WS-FUTURE-MONTH
PHELA-IF
BONISA “ISONTO ELILODWA KAMUVA USUKU LUTHI ” WS-FUTURE-DATE
MISA UKUGIJIMA.
Ake sihlukanise le khodi.
Ikhodi yakhiwe kanjani?
Uhlelo lwe-Cobol luqala 'nge-IDENTIFICATION DIVISION' okuyisigaba esiyisibopho kuzo zonke izinhlelo ze-Cobol. Isitatimende se-'PROGRAM-ID' esisilandelayo sihlonza uhlelo. 'I-DATA DIVISION' yilapho sichaza khona yonke idatha noma okuguquguqukayo okuzosetshenziswa ohlelweni. 'ISIGABA SOKUSEBENZA-SESITOREJI' siwukuhlukaniswa iziqephu 'kweDATA DIVISION' lapho simemezela khona okuguquguqukayo kwethu okusebenzayo: 'WS-CURRENT-DATE' kanye 'WS-FUTURE-DATE'. Ngayinye yalezi iphinde ihlukaniswe yaba izingxenye zosuku, inyanga nonyaka. 'I-PROCEDURE DIVISION' yilapho sikhodi khona umqondo wokubala idethi ezayo.
Umqondo Wokukhohlisa Idethi e-Cobol
Uhlelo lwethu lwe-Cobol kuqala lwamukela idethi yamanje kusuka kusistimu. Ibese ibala idethi yesikhathi esizayo ngokungeza u-7 osukwini lwamanje. Uma usuku oluzayo ludlula u-30 (okusho ukuphela kwenyanga), lunyusa inyanga ngo-1 futhi lususe 30 kusukela osukwini. Inqubo efanayo isetshenziselwa ukulandisa ekupheleni konyaka. Ngokusobala, lesi isibonelo esenziwe lula esinganaki ubude benyanga obuhlukahlukene noma iminyaka egxumagxumayo, kodwa sichaza inqubo eyisisekelo.
Sengiphetha, ngenkathi ukubhekana nezinsuku ku-Cobol kungase kubonakale kunzima ekuqaleni, kungadalulwa ngokuhlukanisa usuku lube izingxenye ezincane nokusingatha ngokucophelela uguquko phakathi kwezinsuku, izinyanga, neminyaka. Ukuphathwa ngokucophelela okunjalo kwamadethi nakho kuyisikhumbuzo sokunaka imininingwane edingekayo ku-Cobol, okubonisa inkathi yomsuka wolimi kanye nokusetshenziswa kwalo okuqhubekayo kumasistimu lapho ukunemba nokunemba kubaluleke kakhulu.
