Obwohl Experten seit langem vorhergesagt den Niedergang der COBOL, der Common Business - Oriented Language für Computer-Programmierung, bleibt es weithin als der Anfang 2011 eingesetzt. Das Durchhaltevermögen der Sprache , aus dem Jahr 1959 ist nichts weniger als bemerkenswert. Wenn Sie mit COBOL arbeiten , meldet das Unternehmen erstellen Sie benötigen aktuelle Datum Informationen zum Drucken Überschriften und Abrufen von Daten. Ein Mechanismus in COBOL gebaut können Sie abrufen, das aktuelle Datum mit einem einzigen ACCEPT-Statement . Nachdem Sie die aktuelle Informationen abgerufen werden roh , steckte es in ein geeignetes Format für Ihren Bericht . Anleitung
1

Neues 01 -Level- Datensatz in der " Arbeitsspeicher ", um das System-Datum erhalten . Der Datensatz aufzuheben acht Dezimalstellen gewidmet dem heutigen Datum mit einer vierstelligen Jahr von Monat zu Monat und Tag mit zwei Stellen jeweils gefolgt . Sie können diese record " Heutige -Current -Date ", zum Beispiel . Geben Sie das Jahr, den Monat und den Tag Unterfelder Namen wie " Current- Year", "Current - Month" und "Current -Day. "
2

erstellen ein Datum Datensatz in Ihrem Bericht ist mit Monat Überschrift Tag und Jahr Sub-Felder angeordnet in Ihren Wunschtermin Format . Die Feldtypen sollte oder numerische Zeichen sein . Zwischen dem Monat und Tag Felder , legen ein einzelnes Zeichen mit einem Bindestrich oder Schrägstrich in einem "Value" -Klausel. Machen Sie dasselbe für den Tag und das Jahr Feldern . Man könnte den Bericht Felder "Überschrift - Day ", " Unterwegs - Monat " und " Heading- Jahr . "
3

Fügen Sie die folgenden Zeilen in den Haushalt Routine in Ihrem Programm "Procedure " Teilung :

akzeptieren heutige -Current -Date Von Datums-

Unterwegs im laufenden Jahr in die Rubrik -Jahres

Unterwegs Current- Monat zu Monat Unterwegs -

Unterwegs Current- Tag in die Rubrik -Day.

Dies legt die aktuelle Informationen in Ihrem Bericht Überschrift . Der Bericht druckt das richtige Datum mit Ihrer bevorzugten Formatierung .