Free software training Videos

Free software training Videos
https://www.youtube.com/user/VLRTraining

List Of Best WebSites

Monday 26 November 2012

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                                       

No comments:

Post a Comment