Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 2 Answers
- 6109 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / 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 |
Answer / mvramesh
01 ws-in-data Pic X(7)
05 ws-numeric Pic x (4) value '3000'
05 ws-filler Pic x (1) value '.'
05 ws-decimial pic x (2) value '00'
01 WS-Temp-CHAR PIC X(6)
05 ws-num Pic x (4)
05 ws-dec Pic x (2)
01 WS-TEMP-NUM redefines WS-Temp-char pic 9(4)V9(2)
01 WS-OUT-Data PIC S9(7)V9(2) comp-3
move ws-numeric to ws-num
move ws-decimal to ws-dec
move ws-temp-num to WS-OUT-data
here is the logic, there may be syntax errors. need to modify based on the format of input data.
| Is This Answer Correct ? | 2 Yes | 4 No |
BY seeing a program how can we say that it is static call or dynamic call
Hi all, I have a following requirement to write the cobol program. I have to load the 129 variables from input sequential file which are in excel sheet to the cobol inernal table. and after loading into table i have to compare this data with the business file. here compare means controlling the data whether the format(numeric,alpha) is same in the business file and in the table??? i have the same data in input and business file. could anyone please give me any idea of the logic?// i have all the 129 different variables(129rows,1 column)is there .
I want ALL ERROR codes in VSAM
3 Answers American Express, TCS,
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How to delete a front spaces in a data-name/variable in cobol Example:- 01 data-name-1 PIC x(20) value " cobol language". 01 data-name-2 PIC x(20). MOVE data-name-1 to data-name-2. would like the value of data-name-2 is "cobol language".
How to execute a set of JCL statements from a COBOL program?
How do define Dymanic array in cobol how do u define single demensional arry and multidymensional arry in ur cobol.
How is sign stored in a comp-3 field?
Define in-line perform?
what is soc7 abend?how u can trace it?
consider the fallowing 77 stat pic 9. 88 male value 1,2,3. 88 female value 4 through7. what will be the value of stat a) set male to true. b) set female to true.
Can you please let me know the centre name of INS certification in Kolkata.
COBOL 
