Interested to Buy Any Domain ? << Click Here >> for more details...
01 var1 pic s9(9)v99.
01 var2 pic x(30).
procedure division.
move 12345.99 to var1.
move12345.99 to var2.
display var1.
display var2.
what is the output?
- 2 Answers
- 9683 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / john benito
Will abend.
Pic clause is not allowed in 01 level.
| Is This Answer Correct ? | 3 Yes | 28 No |
Post New Answer View All Answers
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
How do get the result of your program directly on your pc?
For rewrite, why is it mandatory that file needs to be opened?
what is amode(24), amode(31), rmode(24) and rmode(any)?
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
What is the difference between perform … with test after and perform … with test before?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
Write down the divisions of cobol program?
what is search and searchall?what is the diffrence between them?give an best example?
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
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 ?
how can i see junk values in dclgen or in hostvariable of comp ?
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
