MVSFORUMS.com

ramanajeem

Hi,

Is there any function that converts integer to actual value?

My requirement is

- Unload Integer field XXXX from a table to flat file.
- Using XXXX, I need to fetch a YYYY variable field from another table. But I could not fetch a value from another table as variable XXXX is stored in binary form in flat file. So, Can anyone provide their inputs to fetch the value?

Thanks in advance.

kolusu · Posted: Wed Sep 13, 2006 7:25 am Post subject:

ramanajeem,

shekar123 · Posted: Wed Sep 13, 2006 7:26 am Post subject:

ramanajeem,

Say you are trying to unload to a flat file the following three colums, u can use CHAR function for column XXXX to display in readable format in your SYSREC DD statement.

ramanajeem · Posted: Wed Sep 13, 2006 8:19 am Post subject:

Hi Kolusu and Shekar123,

Thanks for your reply.

This is my actual requirement.

one table has 4 columns and the 1st column(XXXX) is an INTEGER type. Now I have to insert a new column with type TS to this table as a 1st Cloumn. I am follwing these steps to complete my task.
- Unload the data.
- While unloading Input flat file will be created with complete table data.
- Write a program to read INPUT flatfile. Read record by record from INPUT flat file, get the value of 1st column which is in INTEGER type in table and in binary format in flat file. I am getting an error while reading another table to fetch TS value using 1st column value which in binary format.

Thanks

kolusu · Posted: Wed Sep 13, 2006 8:39 am Post subject:

ramanajeem,

shekar123 · Posted: Wed Sep 13, 2006 8:40 am Post subject:

Kolusu,

Can we not do this by the following steps ?

1.Alter the table by adding a new column of type TIMESTAMP.
2.Unload the Table data to a Flat file
3.Run a SORT utility to fill in the first column with TIMESTAMP values in the flat file.
4.Load the table with the flat file which will have the new altered table structure.
_________________
Shekar
Grow Technically

kolusu · Posted: Wed Sep 13, 2006 8:48 am Post subject:

ramanajeem · Posted: Wed Sep 13, 2006 8:57 am Post subject:

Hi all,

Sorry for the confusion. TS stands for Timestamp.

Thanks

ramanajeem · Posted: Wed Sep 13, 2006 9:07 am Post subject:

Hi,

Is there any way that I can fetch a value from a table using the value stored in Binary format in flatfile?

Thanks

kolusu · Posted: Wed Sep 13, 2006 9:11 am Post subject:

ramanajeem,

Why do you keep asking the same question over and over? Your question answered in the 2nd post it self? You are not clear with your requirements and ask the question over and over

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

ramanajeem · Posted: Wed Sep 13, 2006 9:44 am Post subject:

Hi Kolusu,

It would be great if you could help me on this.

I have flat file with 3073 Characters as shown below. Using the data available in IN-FILE, I need to build OUT-FILE. Please remeber that IN-FILE data is in flat file in binary format. Now using the value available WS-IN-FIELD1(In Binary format), I need to read another table to fetch a value for WS-OUT-FIELD1-TS to build OUT-FILE. But while fetching the value I am reciving an SQL error.

01 WS-UNLOADED-FLAT-REC.
05 WS-IN-FIELD1 PIC S9(9) COMP.
05 WS-IN-FIELD2 PIC S9(9) COMP.
05 WS-IN-FIELD3-LEN PIC S9(4) COMP.
05 WS-IN-FIELD3-TXT PIC X(60).
05 WS-IN-FIELD3-TXT-NI PIC X(1).
05 WS-IN-FIELD4-TXT-SZ PIC S9(4) COMP.
05 WS-IN-FIELD4-TXT PIC X(3000).

01 WS-LOAD-FLAT-REC.
05 WS-OUT-FIELD1-TS PIC X(26) COMP.
05 WS-OUT-FIELD1 PIC S9(9) COMP.
05 WS-OUT-FIELD2 PIC S9(9) COMP.
05 WS-OUT-FIELD3-LEN PIC S9(4) COMP.
05 WS-OUT-FIELD3-TXT PIC X(60).
05 WS-OUT-FIELD3-TXT-NI PIC X(1).
05 WS-OUT-FIELD4-TXT-SZ PIC S9(4) COMP.
05 WS-OUT-FIELD4-TXT PIC X(3000).

I am using following query to fetch a value.

EXEC SQL
SELECT FIELD_TS
INTO :WS-OUT-FIELD1-TS
FROM TABLE
WHERE COLUMN = :WS-IN-FIELD1
END-EXEC.

I hope I put my query little clear this time.

Thanks in advance.