Library /sys$common/syshlp/dbg$help.hlb DEBUG, Language Support, RPG_II, DEPOSIT Command *Conan The Librarian (sorry for the slow response - running on an old VAX) |
Note the following points when using the DEPOSIT command: o You can deposit a single value into an element of an array using array syntax as in the following example, which deposits the value 150 into element 2 of array ARR: DBG> DEPOSIT ARR(2) = 150 o You can deposit multiple values into an array of character strings, by using the /ASCII qualifier with the DEPOSIT command. For example, assume PARTS is an array of 10 elements in program INV.RPG, each a character string of length 3. The following DEPOSIT command deposits the strings P04, P05, and P06 into elements 4, 5, and 6, respectively, of array PARTS: DBG> DEPOSIT/ASCII PARTS(4) = "P04P05P06" DBG> EXAMINE PARTS(4:6) INV\PARTS (4): 'P04' (5): 'P05' (6): 'P06' o Values deposited into numeric fields are aligned on the decimal point. Shorter fields are padded with zeros to the left and right of the decimal point. o Values deposited into character fields are left justified. If the value contains fewer characters than the character field, the field is padded on the right with spaces. o To set a nonexternal indicator on or off with the DEPOSIT command, precede the indicator with the string *IN. Depositing the value 1 or 0 sets the indicator on or off, respectively. For example, the following command sets indicator 56 on: DBG> DEPOSIT *IN56 = "1"
|