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?
Answers were Sorted based on User's Feedback
Answer / kingshuk
var1:0000123459I
If we move 12345.99 to var2 it will give a compilation error.
It should be move '12345.99' to var2.Then
var2:12345.99
| Is This Answer Correct ? | 16 Yes | 4 No |
Answer / john benito
Will abend.
Pic clause is not allowed in 01 level.
| Is This Answer Correct ? | 3 Yes | 28 No |
if a>b continue display x. dispaly y. end-if display 1 display 2. display 3. what should be my output ?
What is wrong with the following data declaration? 01 W-DATE PIC X(6). 05 DD PIC 99. 05 MM PIC 99. 05 YY PIC 99. (a) Nothing is wrong. (b) Under W-DATE all level 05 items are having a PIC 99 but level 01 has PIC X(6). (c) PIC can't be specified for a group item. (d) DD, MM, and YY are invalid datanames.
what is soc7 abend?how u can trace it?
record length in spool?
What is mean by maxcc
In a COBOL program, 2 tables TABLE1 and TABLE2 are defined that are indexed by INDEX1 and INDEX2 respectively. Can we use INDEX1 with TABLE2 and INDEX2 with TABLE1?
what is Reentrancy and Quasi-reentrancy?
what are the control characters used in reports
How to use the same COBOL program in Batch and CICS on lines? explain with an example
What is comp-1 and comp-2?
What is the figurative constant in cobol?
what is the maximum error code in mainframe