Hvordan få System Datoer i COBOL

Selv om eksperter har lenge spådd bortfallet av COBOL, Common forretningsorientert språk for programmering, forblir det mye brukt som i tidlig 2011. utholdenhet av språket, og kan dateres tilbake til 1959, er intet mindre enn bemerkelsesverdig. Hvis du arbeider med COBOL, de forretningsrapporter du oppretter må gjeldende dato informasjon om utskrift overskrifter og henting av data. En mekanisme som er bygd inn i COBOL kan du hente gjeldende dato med et enkelt ACCEPT uttalelse. Når du har hentet den rå oppdatert informasjon, sette den i et format som passer for rapporten.

Bruksanvisning

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

2 Lag en dato rekord i rapporten kursen etter måned, dag og år sub-felt arrangert i ønsket datoformat. Felt typer bør være tegnet eller numerisk. Mellom måneden og dagens felt, sette inn et enkelt tegn med en dash eller kutte i en "verdi" klausulen. Gjør det samme for dagen og året felt. Du kan kalle rapportfelt "Overskrift-Day", "Overskrift-Month" og "Overskrift-Year".

3 Legg til følgende linjer i en rengjøring rutine i programmet er "Prosedyre" divisjon:
Godta Dagens-Current-Date From Date.
Flytt Current-Year til overskrift-Year.
Flytt Current-måned til overskrift-måned.
Flytt Current-Day til Overskrift-Day.
Dette plasserer oppdatert informasjon til rapporten overskriften. Rapporten vil skrives ut riktig dato med ønsket formatering.

Hint

• Siden systemet datoen kommer fra datamaskinens operativsystem, kan COBOL språk fra ulike pc-produsentene varierer i sin behandling av dato og klokkeslett. Les dokumentasjonen som fulgte med COBOL-kompilatoren for å lære hvordan den håndterer datoer.