in ibmi ,as400 ,there is a cl source code like this 0001.00 PGM 0002.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(6) 0003.00 DCL VAR(&PROFILE) TYPE(*CHAR) LEN(10) 0004.00 CHGJOB LOG(4 0 *MSG) LOGCLPGM(*YES) 0005.00 DSPUSRPRF USRPRF(&PROFILE) 0006.00 SNDMSG MSG(&MSG) TOUSR(&PROFILE) 0007.00 ENDPGM do the following changes The &PROFILE variable must be your user profile. The &MSG variable must be “Hello World”. Add a command of your choice. then create a program that will successfully execute. Test the program interactively. and i changed it like this 0001.00 PGM 0002.00 DCL VAR(HELLOWORLD) TYPE(*CHAR) LEN(6) 0003.00 DCL VAR(USER009) TYPE(*CHAR) LEN(10) 0004.00 CHGJOB LOG(4 0 *MSG) LOGCLPGM(*YES) 0005.00 DSPUSRPRF USRPRF(USER009) 0006.00 SNDMSG MSG(HELLOWORLD) TOUSR(USER009) 0007.00 ENDPGM
in ibmi ,as400 ,there is a cl source code like this
0001.00 PGM
0002.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(6)
0003.00 DCL VAR(&PROFILE) TYPE(*CHAR) LEN(10)
0004.00 CHGJOB LOG(4 0 *MSG) LOGCLPGM(*YES)
0005.00 DSPUSRPRF USRPRF(&PROFILE)
0006.00 SNDMSG MSG(&MSG) TOUSR(&PROFILE)
0007.00 ENDPGM
do the following changes
The &PROFILE variable must be your user profile.
The &MSG variable must be “Hello World”.
Add a command of your choice.
then create a program that will successfully execute.
Test the program interactively.
and i changed it like this
0001.00 PGM
0002.00 DCL VAR(HELLOWORLD) TYPE(*CHAR) LEN(6)
0003.00 DCL VAR(USER009) TYPE(*CHAR) LEN(10)
0004.00 CHGJOB LOG(4 0 *MSG) LOGCLPGM(*YES)
0005.00 DSPUSRPRF USRPRF(USER009)
0006.00 SNDMSG MSG(HELLOWORLD) TOUSR(USER009)
0007.00 ENDPGM
i want to know is my change right ?what code should i add to make it run and test it ?

Trending now
This is a popular solution!
Step by step
Solved in 2 steps









