a pic s9(4) comp
b pic s9(4) comp-3
c ????????????????
d ????????????????
move a to c
add a+B giving d.
what is ur declaration for c,d?
- 4 Answers
- 8060 Views
- I also Faced
- E-Mail Answers
Answer Posted / abhay
C should be declared as S9(04)
D should be declared as s(05)
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
What is amode(24)?
How do you get the data to code the BMS macro?
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
What are declaratives and what are their uses in cobol?
What are the different rules for performing sort operation?
what is difference between cobol and cobol/400
Write a program to explain size error.
What is rmode(any) ?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How arrays can be defined in COBOL?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
Program A (Normal COBBAT) calling a B Program (DB2COBOL, COBBATDB which is using a VSAM file. its a dynamic call. How we will handle VSAM file decleration in our from JCL from where we are running A PGM. And should we have PLAN for A pGM also. if possible can some one post a sample JCL. Thanks for help in advance.
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
Can we redefine the field of x(200) to less than 200?
