Re: AW: V7R1 Field Procedures

Isn't a B (binary) type defined as 2 or 4 or 8? The number of bytes? Not the number of digits? I'd recommend 5i 0. That's what the Data Type Compatibility chart says in the Run-Time Library Reference. Both int and long int are 10i 0.

C's short COULD be 2B 0 - but the binary type is not recommended anymore hardly at all. Whoever wrote the examples is probably from an old time school - hasn't read a modern RPG manual.

5B 0 is nonsense to my understanding. Maybe it was a typo. Hit the 5 instead of 2 on the keypad.

And I agree about the varying-length declaration - even a renowned expert in this country used that method in code he wrote in 2005 and it is still available online. Maybe they only know COBOL - you have to use this kind of thing there for varying-length fields. It is also a way to use varying-length fields - kind of - internally and use the data part only for calling APIs. But even that is handled by RPG pretty nicely, unless you use pointers by value. Yuk!

HTH
Vern

On 3/18/2011 8:21 AM, Birgitta Hauser wrote:

Hi Jon,

you may check the following paper
Encryption enhancements: Field procedure support in DB2 for i 7.1
http://www.ibm.com/developerworks/data/library/techarticle/dm-1101encryptenh
ance/index.html

Even though I'm not very happy about the RPG example.
It seems to me being translated row by row from the C code.
I'm no C expert, but it seems to me C's short data type is not the same as
2B 0.
Also defining varying lengths fields as follows looks rather strange (and
not correct either) to me.

D En_Lob_Ds Ds Qualified
D Len 5B 0
D Data 1 dim(512)
D
D De_Lob_Ds Ds LikeDs(En_Lob_Ds)
D
D En_VChar_Ds Ds Qualified
D Len 2B 0
D Data 1 dim(512)

But I haven't found any time yet to test the sample code.

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 Jon Sinner
Gesendet: Friday, 18. March 2011 01:29
An: RPG400-L@xxxxxxxxxxxx
Betreff: V7R1 Field Procedures

The boss had decided that he wants to encrypt a couple of fields in our
customer master file. I have been reading the SQL programming manual and
found field procedures which seams to be the process to use. The manual has
a sample program written in "C" (I think), anyway I don't understand the
sample program.

Has anyone written a program that is called as a field procedure and if so
would you be willing to share the program?

Thanks

Jon