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

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.