Answer / madhusudhan

For the above answer posted by Narendra, there are 19
People who told yes, but did they test this or verify.
Create a Char variable of Lenth 5 and Numeric variable of
lenth 5 and see the result .
D Num1 S 5 P 0
D Char1 S 5 A INZ('ABCDE')
C MOVE Char1 Num1
C Num1 DSPLY

Num1 will not give a Decimal Data error , instead it gives
the values Num1 = 12345. If you use eval
C EVAL Num1 = Char1
Eval will fail during compilation itself.
As per my analysis , Decimal Data error occurs when junk
values or special characters are passed to Numeric
variable. ( Ex : !, @ , #.$) . For testing Intialize the
above variable Char1 with atleast one special character and
just see the result.

This is only one example which i have given , and i heard
that during Parameter passing also this occurs , but dont
know in which scenerio , if anyone knows more on Decimal
Data error, kindly plz post.

Answer / narendra

If you have defined any field as numeric and the value
being inserted into that field is character then system
will throw the message "decimal data error".

Answer / priya

Decimal data error occurs primarily when numeric field receives invalid values/numbers. The same goes for the case of parameter passing.

When the file is opened by a program and the record containing the invalid data is read, you will not get an error.

But if the field containing the invalid data is read in the program, and some arithematic operation is performed with that value it gives decimal data error.
For eg by being the Factor1 of a MOVEx operation, or either factor in an ADD, SUB, DIV, MULT etc., or on the right-hand side of an EVAL, or if it is involved in a WRITE or UPDATE operation -- then it will be checked, and then the program will fail.

Answer / arun

for abv to Mr.Madhusudhan

"Parameter passing also this occurs in cl prog"


bcoz if we pass the parameters in different formates then
it will occurs data decimal error

plz say if i am incorrect

Answer / venkat

suppose if i declare data area with the length of 8 char
and i am receiving that data area as data structure and if i give only 7 char value. if i compile the program program will compile but if you call that program it will throw the error as decimal data error 

Answer / sulthan

Divide by '0'

Q. HOw can read multimember file through RPG/400 and CL/400 Actully i know that we can Read multimember file in RPG through EXEFILE and EXEMBR and in cl through OVRDBF and MEMBER(3)....But i want to read 3 members by CL Program And RPG/400 program.Please write the coding(Program) for both RPG/400 and CL/400 programs? 2.What are the full forms(stands) of EXEFILE and EXEMBR?

5 Answers   CTS,

1.What is the difference between regular join logical file and non join logical file? 2.what are the nessasary keywords for non join logical file

3 Answers   ANZ,

How to create a data queues?

1 Answers  

I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.

0 Answers   HSBC,

What is the difference between production library and test library ?

1 Answers  

What is file access opcodes?

0 Answers   IBM,

How can we sort an array?

1 Answers  

what are necessary keywords to code message subfile?

1 Answers   IBM,

if dspatr(pc) and csrloc were specified for a format, which keyword would have priority?

1 Answers   IBM,

What is the purpose of USROPN keyword?

1 Answers   CTS,

How many secondary files allowed in a program?

1 Answers  

during input operation which indicator position is seton if there is a record lock?

1 Answers   IBM,