Selv om eksperter har lenge spådd bortfallet av COBOL , Common Business- Oriented Language for dataprogrammering, forblir det mye brukt som i tidlig 2011 . Utholdenheten av språket , som dateres tilbake til 1959 , er intet mindre enn bemerkelsesverdig. Hvis du jobber med COBOL , rapporterer virksomheten du oppretter trenger gjeldende dato informasjon for utskrift av overskrifter og henting av data . En mekanisme som er bygd inn i COBOL lar deg hente dagens dato med et enkelt GODTA uttalelse. Når du har hentet den rå oppdatert informasjon , legg den i et format som passer for rapporten. Instruksjoner
en

Lag en 01 - nivå data rekord i " Working Storage " for å få systemet dato. Platen bør sette av åtte desimaler viet til dagens dato , med et firesifret år etterfulgt av måned og dag med to sifre hver. Du kan kalle denne posten " Dagens - Current -Date ", for eksempel. Gi år, måned og dag subfields navn som " Current -Year ", " Current -Month " og " Current - Day. "
2

Lag en dato rekord i rapporten kursen etter måned, døgnet og året sub-felt arrangert i ønsket datoformat. Feltet typer bør være tegn eller tall. Mellom måned og dag felt , sette inn et enkelt tegn med en dash eller kutte i en "Value "-klausulen . Gjør det samme for dagen og året felt. Du kan kalle dine rapportfelter " Overskrift -Day ", "Overskrift - måned " og " Overskrift -Year ".
3

Legg til følgende linjer i en renhold rutine i programmet "Prosedyre " divisjon:

Godta Todays - Current -Date From Date

Move Current -Year til Overskrift års

Move Current -Month til Overskrift -Month

Flytt Current -Day til Overskrift - Day.
p Dette plasserer oppdatert informasjon til rapporten overskriften. Rapporten vil skrive ut riktig dato med ønsket formatering.