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
how to pick up the changed records every time in a subfile after the first change made ?
what is join logical file?
What is the use of jdftval in as400?
how to define global parameter in ile ?
Write a logic program for knowing the repeated number of a vowels in a given program?
what is term cua , saa?
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.
What is difference between rename and prefix?
What Is Default Data Type (if You Define Decimals '0') In Physical File?
what keyword must be used with protect keyword ?
How to avoid using indicators in ile ?
How to reverse the string in rpg
Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP
which of the cl command can be used to determine which logical files are dependent on a specific file?
where will control be passed after the execution of the *pssr subroutine if the factor2 of the endsr is blank ?