Sending data is aplhabetic size 7 (value 3000), I wantated
this value to be stored in database, which is defined as
s9(7)v9(2)comp-3.
Answer Posted / guest1
In the above answer the group contains a PIC clause. It
wrong. Group item should not contain any PIC clause.
01 ws-in-alpha pic x(7).
01 ws-in-numeric redefines ws-in-alpha.
05 ws-data pic 9(7)v99.
01 ws-actual-data pic s9(7)v99 comp-3.
In procedure division,
move ws-in-numeric to ws-actual-data.
| Is This Answer Correct ? | 6 Yes | 0 No |
Post New Answer View All Answers
What are the pertinent COBOL
What is the default value(s) for an initialize? What keyword will allow for an override of the default?
What is a scope terminator give example?
What are the different rules of SORT operation?
What is the Purpose of POINTER Phrase in STRING command in COBOL?
Difference between array and sub-script ?
Give some examples of command terminators?
What is the problem of ordered sequential files access?
how do you reference the variable unblock file formats from cobol programs
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
What is link edit in cobol?
if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
How do u write test cases?
What kind of error is trapped by on size error option?