Hoewel experts hebben lang voorspelde de ondergang van COBOL , de Common Business - Oriented Language voor het programmeren van computers , het blijft op grote schaal gebruikt als van begin 2011 . Het uithoudingsvermogen van de taal , die teruggaat tot 1959 , is niets minder dan opmerkelijk . Als u werkt met COBOL , de zakelijke meldt u de huidige datum informatie voor de rubrieken printen en ophalen van gegevens te creëren nodig . Een mechanisme ingebouwd in COBOL kunt u de huidige datum met een enkele ACCEPT statement halen . Nadat u de ruwe date informatie op te halen , zet het in een formaat dat geschikt is voor uw rapport . Instructies
1 Maak een 01 -level data record in de sectie " Werken Storage " om de datum -systeem ontvangen. Het record moet gereserveerd acht decimalen gewijd aan de huidige datum , met een jaar van vier cijfers gevolgd door de maand en de dag met telkens twee cijfers . U kunt dit record " Todays -Current - Date , " bijvoorbeeld bellen . Geef het jaar , maand en dag deelgebieden namen zoals " Current- Year", "Current - Month " en "Current - Day . " Kopen van 2 Maak een registratiedatum in uw rapport is op weg met de maand , dag en jaar sub - velden gerangschikt in de gewenste datumnotatie . De veldtypen moet teken of numeriek zijn . Tussen de maand en de dag velden , plaatst een teken met een streepje of een schuine streep in een " Value " -clausule . Doe hetzelfde voor de dag of het jaar . U zou uw rapport velden "Kop - Day , " "Kop - Month " en " Koppen - Jaar noemen . "
3 Voeg de volgende regels toe aan een huishouding routine in uw programma 's " Procedure " divisie:
Accept Todays -Current - Date Van Datum Move
Actueel - Year to post - Jaar Move
Actueel - maand naar rubriek - Maand < br . . . Move > Actueel - Day naar Kop - Day .
Dit plaatst de actuele informatie in uw rapport rubriek . Het rapport zal de juiste datum met de gewenste opmaak af te drukken .
|
