ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
LIRE_DTAARA Dtaara Paramètre
Paramètre |
→ |
LCK | *LCK | Rien |
Description
Cet ordre permet de lire une zone de communication de données Dtaara. Le nom de la zone de données doit être défini dans le programme par l'ordre DS (programme ADELIA), ou bien par l'ordre DTAARA ou LDA (programme Visual Adélia).
Si LCK ou *LCK est indiqué, on verrouille la zone de données en la lisant. On peut savoir si elle est déjà verrouillée en testant le mot réservé *BLOQUE (SI *BLOQUE = 1, elle est déja verrouillée).
Important : LCK ou *LCK ne doivent pas être utilisés dans le cas des LDA.
Remarque : dans un contexte VADELIA et SADELIA, cet ordre peut être utilisé dans la partie client du programme, ou dans un bloc serveur lorsqu'il s'applique à la LDA (LIRE_DTAARA *LDA).
En revanche, il ne peut être utilisé que dans un bloc serveur AS/400 ou Windows lorsqu'il s'applique à une Data Area (déclarée par l'ordre DTAARA).
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