what is clile code get last digit in numarice value






what is clile code get last digit in numarice value..

Answer / 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




More IBM AS400 AllOther Interview Questions

what is the maximum number of subfiles that can specified in a display file ?

1 Answers   IBM,


what is full form for dds?

0 Answers   IBM,


How to increase 3 days from my current date in RPG Program?

3 Answers   Mind Tree,


Pgm A is invoked through HTTP. It is in Activtion group QILE. Pgm A calls Pgm B and Pgm C. Pgm B is in activation group TEMPACTGRP. Pgm A ends in error. Pgm A is called again. But it gives an error that TEMPACTGRP still exists and files are present in QTEMP. What is the cause and how will u fix?

1 Answers  


what is a query can be run in which mode?

0 Answers   IBM,






Q1. How to use signature in service program and ILE.? Q2.what is use of signature and binder language and what is the relation between them?

2 Answers   CTS,


when are the referential constraints executed?

0 Answers   IBM,


what is the command to know how many lf are related to a pf?

0 Answers   IBM,


what is the syntax for plist?

0 Answers   IBM,


how to get the cursor position?

0 Answers   IBM,


What are all the different types of access path?

1 Answers  


what is a composite key?

1 Answers   IBM,






Categories