Récuperation de la date et de l'heure du système
Premier exemple,
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptDisplay.
* Ce programme permet de voir l'utilité
* Des commandes Accept et Display
* Et aussi de voir comment récupérer la date et heure système
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EtudDetails.
02 EtudId PIC 9(7).
02 EtudNom.
03 Nom PIC X(8).
03 initiales PIC XX.
02 CodeCours PIC X(4).
02 genre PIC X.
* YYMMDD
01 DateActu.
02 AnActu PIC 9(4).
02 MoisActu PIC 99.
02 JourActu PIC 99.
* YYDDD
01 JourDan.
02 FILLER PIC 9(4).
02 AnJour PIC 9(3).
* HHMMSSss s = S/100
01 TempsActu.
02 HeureActu PIC 99.
02 MinuteActu PIC 99.
02 FILLER PIC 9(4).
PROCEDURE DIVISION.
Begin.
DISPLAY "Veuillez renseigner les informations étudiants suivant le modèle suivant".
DISPLAY "Entrez - ID,Nom,initiales,CodeCours,genre".
ACCEPT EtudDetails.
ACCEPT DateActu FROM DATE YYYYMMDD.
ACCEPT JourDan FROM DAY YYYYDDD.
ACCEPT TempsActu FROM TIME.
DISPLAY "Le nom est " initiales SPACE Nom.
DISPLAY "la date est " JourActu SPACE MoisActu SPACE AnActu.
DISPLAY "Aujourd'hui est " AnJour.
DISPLAY "L'heure est " HeureActu ":" MinuteActu.
STOP RUN. |