Selvom eksperter har længe forudsagt undergang COBOL , den fælles Business- Oriented Language for programmering af computere, er det stadig i vid udstrækning anvendes som i begyndelsen af 2011. Den udholdenhed af sproget , der går tilbage til 1959 , er intet mindre end bemærkelsesværdigt. Hvis du arbejder med COBOL , erhvervslivet rapporterer du oprette brug aktuelle dato information til udskrivning overskrifter og hente data . En mekanisme indbygget i COBOL lader dig hente den aktuelle dato med et enkelt ACCEPTERE erklæring. Når du har hentet den rå date information , sætte det i et format egnet til din rapport. Instruktioner
1
Opret en 01- niveau data rekord i " Working Storage" sektionen for at modtage systemets dato. Pladen bør afsætte otte decimaltal , der afsættes til den aktuelle dato med et firecifret år efterfulgt af måned og dag med to cifre hver. Du kan kalde denne record " Todays - Current -Date ", for eksempel . Giv år, måned og dag subfelterne navne som " Current års ", " Current - Month " og " Current -Day ".
2
Opret en dato rekord i din rapport er på vej med måneden, dag og år delområder arrangeret i dit foretrukne dato format. De felttyper skal være tegn eller tal . Mellem måned og dag felterne indsætte et enkelt tegn med en bindestreg eller skråstreg i en " Value "-klausul . Gør det samme for dagen og året felter. Du kan kalde din rapport felter " Tekst - dag," "Overskrift - måned" og "overskrift - Year. "
3
Tilføj følgende linjer til en husholdning rutine i dit program 's " Procedure " division : Hej
Accepter Todays - Current -Date From Dato
Move Current års udgiftsområde års
Move Strøm -Month til overskrift -Month < br . . . >
Move Strøm -Day til udgiftsområde - Day.
Dette placerer den dato oplysninger i din rapport overskrift. Rapporten vil udskrive den korrekte dato med din foretrukne formatering.