what is clile code get last digit in numarice value

Answer Posted / remya

DCLF FILE(DSP) RCDFMT(RECDSP)
DCL VAR(&X) TYPE(*DEC) LEN(2 0)
DCL VAR(&Y) TYPE(*DEC) LEN(2 0)

L1:SNDRCVF RCDFMT(RECDSP)
CHGVAR VAR(&X) VALUE(95)
CHGVAR VAR(&Y) VALUE((&X/10)*10)
CHGVAR VAR(&Y) VALUE(&X-&Y)
GOTO CMDLBL(L1)

Is This Answer Correct ?    2 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

what is term cua , saa?

964


Difference Between Skip Before & Space Before?

674


what is the use of jdftval in join logical file?

1120


in conjunction with which statements can orxx and andxx conditions be used ?

1145


Explain The Keywords Edtcde & Edtwrd?

844






the maximum number of subfiles that can defined in a rpg program for one display file is ___ .

2186


Why we are not able to perform insert delete and update operation in Join logical file?

937


which cl command can be used at program execution to redirect the file named in an rpg program?

713


any one have give AS400 study material? pls pass it to gopalsai789@gmail.com

1233


http default port 80 is used by some other production http service. How can I create an http instance on another port to run cgidev2 and my future cgi developments?

595


what does defn do?

616


define data structure?

1030


how would you design the process for a nightly, high volume check producing process that needs to select only records that are flagged to be processed?

947


define subsystem?

1037


how can a message from a message file appear as a constant on the screen?

945