|
View previous topic :: View next topic
|
| Author |
Message |
Vijay_Sirisha
New User
Joined: 06 Jun 2018
Posts: 8
Location: USA
|
|
|
|
I have an input field 01 WS-A X(07) VALUE '5.95).
I am trying to convert this field to and insert as is in a database field. The format of the database field is S9(08)V9(04) COMP-3.
Can someone suggest me, how can i achieve this? |
|
| Back to top |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Please search before posting. About 10 topics belw yours is one with a nearly identical title. (And I didn't even have to use the search function!) |
|
| Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010
Posts: 3109
Location: NYC,USA
|
|
|
|
Use Nic’s suggestions going forward that will help.
This is a quick DB2 solution since you said you need to insert into DB( which I assumed it’s DB2). If that’s correct then this topic needs to move to DB2 section.
| Code: |
01 WS-B pic s9(08)v9(04) comp-3.
EXEC SQL
SET DEC(:WA:A,12,4) = :WS-B
END-EXEC
IF SQLCODE = 0
Continue
Else
Error
END-IF |
|
|
| Back to top |
|
|
|
|
