RE: GENERATE UNIQUE() and CPYTOIMPF -- RPG400-L

Looking at the DB2 LUW docs....

It appears DB2 LUW does have a function that converts from a string hexadecimal representation to the
actual hex value...VARCHAR_BIT_FORMAT()

But it only works with 16 byte GUIDs have a string representation of
xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx

So your view would need to put out a 36 character field formatted as shown above.

Then the DB2 guys would need to substring the 13 bytes they need from the results returned by
VARCHAR_BIT_FORMAT().

HTH,

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wilt, Charles
Sent: Tuesday, June 24, 2008 1:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: GENERATE UNIQUE() and CPYTOIMPF

Mike,

I'd be willing to bet that CPYTOIMPF simply isn't designed to work with a
FOR BIT DATA column.

You might try submitting a DCR, but I wonder how exactly would that
work???

Other options:
1) Don't use CPYTOIMPF, it's a poor solution particularly if the other DB
is internal to your company.
Instead, consider using a ODBC/OLE/JDBC link back to the System I and
accessing the data directly.

2) Create a view that uses the HEX() function to convert the GUID field
into something the CPYTOIMPF
can handle. But this would mean that the other system will need to be
able convert it from hex string
binary data...a quick look at the System I SQL manual doesn't appear to
show a function that would
reverse the HEX() results.

HTH,

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-

bounces@xxxxxxxxxxxx]

On Behalf Of MKirkpatrick@xxxxxxxxxxxxxxxxx
Sent: Tuesday, June 24, 2008 12:27 PM
To: RPG programming on the AS400 / iSeries
Subject: GENERATE UNIQUE() and CPYTOIMPF

Thank Birgitta. That is what I was looking for. Now my next issue.

After I have inserted the rows with the GUIDs, I then use CPYTOIMPF to
export this table. The CPYTOIMPF completes normally but I have a few

recs

where the GUID column now has extra characters (in the csv file). This
causes an issue when someone on the PC side uses the IMPORT DB2 command.

I

believe this is due to the fact that the GUID column has a double quote

in

it. I have tried different combinations of the STRDLM and STRESCCHR

parm

on the CPYTOIMPF with no luck.

Does anyone have any suggestions on what STRDLM and STRESCCHR

combination

to use, or is this is even the issue? Thanks.

rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/19/2008 10:15:47 PM:

Hi,

Too fast last time!

I assume the column was defined with CHAR(13) FOR BIT DATA, because

the

column must be filled with an unique value where the timestamp is

encrypted.

Since V5R4 SQL provides a scalar function GENERATE_UNIQUE(): The
GENERATE_UNIQUE function returns a bit data character string 13 bytes

long

(CHAR(13) FOR BIT DATA) that is unique compared to any other execution

of

the same function.

The result of the function is a unique value that includes the

internal

form

of the Universal Time, Coordinated (UTC) and the system serial number.

The

result cannot be null.

This function differs from using the special register CURRENT

TIMESTAMP

in

that a unique value is generated for each instance of the function in

an

SQL

statement and each row of a multiple row insert statement or an insert
statement with a fullselect. The timestamp value that is part of the

result

of this function can be determined using the TIMESTAMP function with

the

result of GENERATE_UNIQUE as an argument.

Example:
INSERT INTO MYTABLE (FLD1, FLD2, FLD3)
VALUES(Generate_Unique(),'ABC', 123);

SELECT Timestamp(Fld1), Fld1

From MyTable;

May be that's what you are looking for!

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."

(Les

Brown)

"If you think education is expensive, try ignorance." (Derek Bok)

"What is worse than training your staff and losing them? Not training

them

and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im

Auftrag von MKirkpatrick@xxxxxxxxxxxxxxxxx
Gesendet: Thursday, June 19, 2008 20:46
An: RPG400-L@xxxxxxxxxxxx
Betreff: CHAR for BIT DATA fld

I have a column defined as CHAR FOR BIT DATA or CHAR(13) CCSID 65535

NOT

NULL. Why? Because this is the way it is defined in another table

from

DB2 (Windows) that I am trying to duplicate/populate. W/in my RPG

pgm,

the following stmt generates the correct data: CREDGUID =
x'20080618090909123456202020';

My problem is I need to use a variable (TIMESTAMP + 3 chars) part of

the

value used to populate the CREDGUID column. I have tried stringing
together using the '+' char but when the data gets into the column it

is

truncated because the working variable is larger than the result
(CREDGUID). I also tried using the HEX SQL BIF without success.

Any ideas or suggestions would be greatly appreciated. Thanks.

This email and any files transmitted with it are confidential and

intended

solely for the use of the individual or entity to whom they are

addressed.

Unless you are the addressee (or authorized to receive for the

addressee),

you may not use, copy or disclose to anyone this email or any

information

contained in this email. If you have received this email in error,

please

advise the sender by replying to this email, and delete this email
immediately. Please note that any views or opinions presented in this

email

are solely those of the author and do not necessarily represent those

of

Western Dental Services, Inc. Finally, the recipient should check

this

email and any attachments for the presence of viruses. Western Dental
Services, Inc. accepts no liability for any damage caused by any virus
transmitted by this email.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,

unsubscribe, or

change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This email and any files transmitted with it are confidential and

intended

solely for the use of the individual or entity to whom they are

addressed.

Unless you are the addressee (or authorized to receive for the

addressee),

you may not use, copy or disclose to anyone this email or any

information

contained in this email. If you have received this email in error,

please

advise the sender by replying to this email, and delete this email
immediately. Please note that any views or opinions presented in this
email are solely those of the author and do not necessarily represent
those of Western Dental Services, Inc. Finally, the recipient should
check this email and any attachments for the presence of viruses.

Western

Dental Services, Inc. accepts no liability for any damage caused by any
virus transmitted by this email.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the sender that the
message was misdirected. After replying, please delete and otherwise
erase it and any attachments from your computer system. Your assistance
in correcting this error is appreciated.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.