local data area in as400

0001.00 PGM                                                        
0002.00              DCL        VAR(&NAME) TYPE(*CHAR) LEN(30)     
0003.00              CHGDTAARA DTAARA(*LDA) VALUE('THIS IS MY NEW ')
0004.00              RTVDTAARA  DTAARA(*LDA (1 30)) RTNVAR(&NAME)  
0005.00              SNDUSRMSG &NAME                               
0006.00 ENDPGM                                                     

output

Job 430806/CHVRAMESH/QPADEV001L changed by JOBMANAGER.
THIS IS MY NEW