ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Paragraphe d'utilisation
Tous
Syntaxe
DS Id Longueur SuiteZonesDS
Description
Cet ordre permet de déclarer une zone de communication de données (Data Area) de nom Id.
Il faut pour cela indiquer une longueur Longueur juste après le nom de la DS.
Le nom de la zone de données doit avoir au plus 6 caractères.
Id peut ne pas être déclaré dans l'environnement de données. S'il l'est, il est préférable de spécifier *NODEF.
Une zone de données déclarée dans un prototype est un objet IBM externe. Il faut que cette zone de données existe dans la liste de bibliothèques au moment de l'exécution du programme.
Adélia ne travaille que sur des zones de données de type alphanumérique.
Par contre ces zones de données peuvent être composées par des sous-zones numériques.
Cliquez ici pour l'explication de l'élément SuiteZonesDS.
Remarque : une Data Area doit être lue par l'ordre LIRE_DTAARA et mise à jour par l'ordre ECRIRE_DTAARA, sauf s'il s'agit de la Local Data Area dans certains cas ; voir l'ordre DS (Local Data Area).
Il faut verrouiller la Data Area lorsque celle-ci doit être modifiée.
Le verrouillage se fait à la lecture :
LIRE_DTAARA DATA LCK (LCK = LOCK - verrouillé)
ou LIRE_DTAARA DATA *LCK
Elle se déverrouille à l'écriture :
ECRIRE_DTAARA DATA
Le test de verrouillage se fait par l'intermédiaire du mot réservé *BLOQUE.
Par exemple
* Le nom de la Data Area est DTADAT.
* Le format de la date est JJMMSSAA
*
DS DTADAT 8 DATE,1 JOUR,1 MOIS,3 ANNEE,5 MOIS_ANNEE,3
*
**********************
VERIFICATION 01
**********************
LIRE_DTAARA DTADAT *LCK
SI *BLOQUE = '1'
PREPARER_MSG 0090 Z_DATE_SELECT
ERREUR
FIN
DATE = Z_DATE_SELECT
*
*******************
VALIDATION 01
*******************
ECRIRE_DTAARA DTADAT
Voir aussi la liste des ordres L4G par thème