Lecții din modul (2/2)
Variabile și IMAGINĂ
În COBOL, toate variabilele utilizate trebuie să fie declarate în interiorul DIVIZIUNEA DE DATE. Mai exact, variabilele temporare din memorie utilizate pentru logica programului se află în SECȚIUNEA DE LUCRU-STOCARE.
Numere de nivel
Declarația de variabile COBOL folosește numerele de nivel pentru a structura și organiza datele ierarhic:
01: Definește o variabilă principală sau un element de grup (cel mai înalt nivel).05,10,15: definiți câmpuri subordonate într-un element de grup de nivel01.77: variabile elementare independente indicate istoric care nu au putut fi subdivizate în continuare.
În practica modernă, nivelul 01 este folosit în mod obișnuit pentru a declara variabile elementare independente.
Clauza PICTURE (sau PIC).
Clauza PICTURE (abreviată PIC) specifică tipul de date și lungimea caracterelor variabilei. Cele trei caractere de format fundamentale sunt:
X(alfanumeric): poate conține litere, cifre și caractere speciale.PIC X(10)declară un șir de exact 10 caractere.
9(numeric): poate conține numai cifre numerice.PIC 9(3)declară un număr întreg compus din 3 cifre (până la 999).
V(Punctul zecimal implicit): Folosit în numere zecimale pentru a reprezenta locul în care începe partea fracțională (punctul zecimal nu este stocat fizic).PIC 9(3)V99declară un număr cu 3 cifre întregi și 2 zecimale.
Clauza VALUE
Pentru a atribui o valoare inițială unei variabile la momentul declarației, utilizați clauza VALUE.
01 WS-PROJECT-NAME PIC X(15) VALUE "ELEARNER".
01 WS-USER-AGE PIC 9(3) VALUE 25.Toate definițiile variabilelor trebuie să se încheie cu un punct ..
Încercați-l singur
Declarați o variabilă alfanumerică de nivel 01 numită WS-USER-NAME cu lungimea de 20 de caractere și setați valoarea inițială la „ALICE”.
Afișează indiciu
Utilizați formatul: 01 WS-USER-NAME PIC X(20) VALUE „ALICE”.
Soluție disponibilă după 3 încercări
Declarați o variabilă numerică de nivel 01 numită WS-USER-AGE de 3 cifre cu o valoare inițială de 25.
Afișează indiciu
Utilizați sintaxa: 01 WS-USER-AGE PIC 9(3) VALUE 25.
Soluție disponibilă după 3 încercări