IBM AS/400 manual Changing the Value of Fields, = Abcdef

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 sh shift-in.

¹ Hexadecimal literals should be in quotes, 'xpreceded'.by an

¹Numeric literals should not be in quotes.

Note: You cannot assign a figurative constant to a field using the EV command. Figurative constants are not supported by the EVAL debu command.

Figure 103 shows some examples of changing field values based on the Figure 105 on page 212. Additional examples are also provided in the 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 Programs209