Även experter har länge förutspått nedläggningen av COBOL , den gemensamma Business - Oriented Language för datorprogrammering , förblir det ofta används som av tidig sort 2011 . Uthållighet av språket , med anor från 1959 , är inget annat än anmärkningsvärt . Om du arbetar med COBOL , rapporterar verksamheten skapar du behöver aktuell uppdaterad information för utskrift rubriker och hämta data . En mekanism inbyggd i COBOL kan du hämta aktuellt datum med en enda ACCEPT uttalande . När du har hämtat den råa aktuell information , lägga den i ett format som passar för din rapport . Instruktioner
1
Skapa en 01 - nivå datapost i " arbetsminne " för att ta emot systemets datum . Skivan bör avsätta åtta decimaler ägnas till dagens datum , med ett fyrsiffrigt årtal följt av månad och dag med två siffror vardera . Du kan kalla denna post " Dagens - Ström - Date , " till exempel . Ge året , månad och delfält dag namn som " innevarande år ", " Current - Month " och " Current - Day . "
2
Skapa ett uppdaterat register i rapporten är på väg med månaden , dag och år delområden arrangerade i önskat datumformat . Fälttyperna borde vara tecken eller siffror . Mellan månad och fälten dag , infoga ett enstaka tecken med ett bindestreck eller snedstreck i ett " värde " klausul . Gör samma sak för dagen och fälten år . Du kan ringa dina rapportfält " Rubrik - dag", " Rubrik - Månad " och " Rubrik - Year . " Addera 3
Lägg till följande rader till en hushållning rutin i din programmets " Procedure " division :
Acceptera Dagens - Ström - Date From Date
Move innevarande år till rubrik - Year
Flytta Aktuellt - Month till rubrik - Månad
Flytta Ström - Day till rubrik - Day .
Detta placerar aktuell information i din rapport rubrik . Rapporten skrivs ut korrekt datum med önskad formatering .
