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 is the difference between Call and a Link?
Can we change the password using ALTER? anyone tried and changed?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
i want a program using by if, evaluate , string, unstring, perform, occurs?
What is redefines clause in COBOL?
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
How do you get the data to code the BMS macro?
What type of SDLC u followed? Why?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
How arrays can be defined in COBOL?
i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc
Write a program to enter and display the names of students in a class using the occurs clause.
Write down the divisions of cobol program?
Explain how you can characterize tables in cobol?
What kind of error is trapped by on size error option?