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
how to move the records from file to array table. give with code example
if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need
how do you reference the rrds file formats from cobol programs
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
What is the difference between comp and comp-3?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What is amode(24)?
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
What is length is cobol?
What are declaratives and what are their uses in cobol?
What is the Purpose of Pointer in the string?
What are the different data types in cobol?
What is the use of intialize verb?