Updating a table(ispf) using rexx

This is a simple rexx code, to update a row in ispf table.
lets say the table name is "sample" & it has three columns "id" & "name" & "age"
id name age
001 agent001 20
002 agent002 21
003 agent003 23

if u want to know the change the age of person with id = '001' from '20' to '30'. then this is a simple code..
/*REXX*/
TDSN = "aaa.dsn"
ID = '001'
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS ISPEXEC "LIBDEF ISPTLIB"
ADDRESS ISPEXEC "LIBDEF ISPTABL"
ADDRESS ISPEXEC "LIBDEF ISPTLIB DATASET ID ('"TDSN"') UNCOND"
ADDRESS ISPEXEC "LIBDEF ISPTABL DATASET ID ('"TDSN"') UNCOND"TNAME = "SAMPLE"
ADDRESS ISPEXEC "TBCLOSE "TNAME
ADDRESS ISPEXEC "TBOPEN "TNAME
ADDRESS ISPEXEC "TBTOP "TNAME
ADDRESS ISPEXEC "TBSCAN "TNAME" ARGLIST ( ID )"
ADDRESS ISPEXEC "TBGET " TNAME
age = '30'
ADDRESS ISPEXEC "TBput " TNAME
ADDRESS ISPEXEC "TBCLOSE "TNAME
ADDRESS ISPEXEC "LIBDEF ISPTLIB"
ADDRESS ISPEXEC "LIBDEF ISPTABL"


after the execution of this program the resulting table will be like :
id name age
001 agent001 30
002 agent002 21
003 agent003 23