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: 2455 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: 3051 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 |
|
|
|