Bien que les experts ont longtemps prédit la disparition de COBOL, la langue orientée métier commun pour la programmation informatique , il reste largement utilisée au début de 2011. La tenue de la langue , qui remonte à 1959 , est tout à fait remarquable . Si vous travaillez avec COBOL, l' entreprise signale que vous créez ont besoin d'informations de date actuelle pour les titres d'impression et de récupération des données . Un mécanisme intégré dans COBOL vous permet de récupérer la date du jour avec une seule instruction ACCEPT. Après avoir récupéré les informations de date brute , le mettre dans un format adapté à votre rapport . Instructions
1
Créer un enregistrement de données 01- niveau dans la section « mémoire de travail » pour recevoir la date du système . Le dossier devrait mettre de côté huit décimales consacrées à la date actuelle , avec une année à quatre chiffres, suivi par le mois et le jour à deux chiffres chacun . Vous pouvez appeler ce dossier " Todays -Actuel- Date, " par exemple. Donner de l'année , le mois et le jour des noms de sous-domaines comme " l'année courante », « le mois en cours " et "Current -Day ».
2
Créer un dossier de date dans votre rapport se dirige avec le mois , jour et l'année sous-champs disposés dans le format de date préféré . Les types de champ doivent être caractère ou numérique. Entre les mois et les champs d'un jour , d'insérer un caractère unique avec un tiret ou un slash dans une clause "Valeur" . Faites de même pour les champs de l'année jour et . Vous pourriez appeler vos champs de rapport " Cap -Day », «Titre mois " et " Tête - année».
3
Ajoutez les lignes suivantes à une routine de ménage dans votre programme de " la procédure " division:
Accepter d'aujourd'hui - CURRENT-DATE date d'
Déplacer l'année courante à la rubrique ans
Déplacer le mois en cours à la rubrique - Mois < br . . . >
mouvement actuel jours à Cap -Day .
Cela place les informations de date dans votre rapport rubrique. Le rapport sera imprimer la date correcte avec votre mise en forme préférée.
