ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Section for use
All
Syntax
READ_DTAARA Dtaara Parameter
Parameter |
→ |
LCK | *LCK | None |
Description
This instruction enables you to read a data communication field Dtaara. The data field name must be defined in the model, using the DS instruction (ADELIA programs), or else using the DTAARA or LDA instruction (Visual Adelia programs).
If LCK or *LCK is indicated, the data field is locked as it is read. You can see whether it is already locked by testing the reserved word *LOCKED (if *LOCKED = 1, it is already locked).
Important note: LCK or *LCK must not be used in the case of LDAs.
Note: In a VADELIA or SADELIA context, this instruction can be used in either the client part of the program or in a server block when it applies to the LDA (READ_DTAARA *LDA).
However, it can only be used in a Windows or AS/400 server block where it applies to a data area (declared using the DTAARA instruction).
Example
* The name of the data area is DTADAT
* Date format is DDMMCCYY
*
DS DTADAT 8 DATE,1 DAY,1 MONTH,3 YEAR,5 MMCC,3
*
*********************
VERIFICATION 01
*********************
READ_DTAARA DTADAT *LCK
IF *LOCKED = '1'
PREPARE_MSG 0090 Z_SELECT_DATE
ERROR
END
DATE = Z_SELECT_DATE
******************
VALIDATION 01
******************
WRITE_DTAARA DTADAT