Filter
Top Products
Changing the Value of Fields
When assigning literals to fields, the normal RPG rules apply:
Character literals should be in quotes.
Graphic literals should be specified as G'oDDDDi', where o is shift-out and i is
shift-in.
Hexadecimal literals should be in quotes, preceded by an 'x'.
Numeric literals should not be in quotes.
Note: You cannot assign a figurative constant to a field using the EVAL debug
command. Figurative constants are not supported by the EVAL debug
command.
Figure 103 shows some examples of changing field values based on the source in
Figure 105 on page 212. Additional examples are also provided in the source
debugger online help.
** Target Length = Source Length **
> EVAL String='123456' (6 characters)
STRING='123456' = '123456'
> EVAL ExportFld (6 characters)
EXPORTFLD = 'export'
> EVAL String=ExportFld
STRING=EXPORTFLD = 'export'
** Target Length < Source Length **
> EVAL String (6 characters)
STRING = 'ABCDEF'
> EVAL LastName (10 characters)
LASTNAME='Williamson' = 'Williamson'
> EVAL String=LastName
STRING=LASTNAME = 'Willia'
** Target Length > Source Length **
> EVAL String (6 characters)
STRING = '123456'
> EVAL TableA (3 characters)
TABLEA = 'aaa'
> EVAL String=TableA
STRING=TABLEA = 'aaa '
** Using %SUBSTR **
> EVAL BigDate
BIGDATE = '1994-10-23'
> EVAL String=%SUBSTR(BigDate 1 4)
STRING=%SUBSTR(BIGDATE 1 4) = '1994 '
** Substring Target Length > Substring Source Length **
> EVAL string = '123456'
STRING = '123456' = '123456'
> EVAL LastName='Williamson'
LASTNAME='Williamson' = 'Williamson'
> EVAL String = %SUBSTR(Lastname 1 8)
STRING = %SUBSTR(LASTNAME 1 8) = 'Willia'
** Substring Target Length < Substring Source Length **
> EVAL TableA
TABLEA = 'aaa'
> EVAL String
STRING = '123456'
> EVAL String=%SUBSTR(TableA 1 4)
Substring extends beyond end of string. ** Error **
> EVAL String
STRING = '123456'
Figure 103. Examples of Changing the Values of Fields based on DBGEX
Chapter 11. Debugging Programs 209