|
Thanks, I'm getting a UUID now but after testing several times in a--
row (calling via command line from fresh each time) I've noticed only
the first
8 characters are random whilst the rest are the same for each call and
not randomized
On Tue, 19 Apr 2022 at 15:00, Magne Kofoed <magne.kofoed@xxxxxxxxx> wrote:
Hi,residentialsleeper@xxxxxxxxx
try using your original code and add this:
dcl-pr cvthc ExtProc('cvthc');
result char(65534) options(*varsize);
source char(32767) options(*varsize);
resultSize int(10) value;
end-pr;
dcl-c upper 'ABCDEF';
dcl-c lower 'abcdef';
dcl-s str char(32);
cvthc(str:uuid:%size(str));
pUuid = %xlate(upper:lower:%subst(str:1:8) + '-'
+ %subst(str:9:4) + '-'
+ %subst(str:13:4) + '-'
+ %subst(str:17:4) + '-'
+ %subst(str:21:12));
tir. 19. apr. 2022 kl. 15:35 skrev issemDan <
UUID_template:
Thanks for the reply but when I run this I am getting a “templatenot
value
valid for instruction” error message. Reason code is X’0000’wrote:
On Tue, 19 Apr 2022 at 14:20, Magne Kofoed
<magne.kofoed@xxxxxxxxx>
get
**freeresidentialsleeper@xxxxxxxxx
ctl-opt Option(*NoSrcStmt) DftActGrp(*No);
dcl-pr crtuuidr extpgm('CRTUUIDR');
pUuid char(36);
end-pr;
dcl-pr GenUuid ExtProc('_GENUUID');
UUID_template pointer Value;
end-pr;
dcl-pr cvthc ExtProc('cvthc');
result char(65534) options(*varsize);
source char(32767) options(*varsize);
resultSize int(10) value;
end-pr;
dcl-pi crtuuidr;
pUuid char(36);
end-pi;
dcl-ds UUID_template;
UtBytPrv uns(10) Inz( %Size(UUID_template));
UtBytAvl uns(10);
Version char(1) Inz(x'04');
*N char(7) Inz( *Allx'00' );
UUID char(16);
Reply char(1);
end-ds;
dcl-c upper 'ABCDEF';
dcl-c lower 'abcdef';
dcl-s str char(32);
GenUuid( %Addr( UUID_template )); cvthc(str:uuid:%size(str));
pUuid = %xlate(upper:lower:%subst(str:1:8) + '-'
+ %subst(str:9:4) + '-'
+ %subst(str:13:4) + '-'
+ %subst(str:17:4) + '-'
+ %subst(str:21:12)); *inlr = *on;
tir. 19. apr. 2022 kl. 15:03 skrev issemDan <
:
I have read some past posts regarding this however, I can't
seem to
returnedthis to work. I have been using the _GENUUID function and the
wayUUID
field displays garbage characters.
I'm on version 7.2. Am I doing something wrong or is there a
better
to
generate a UUID? I need in following example format:
123e4567-e89b-12d3-a456-426614174000
See below code:
D UUID_template Ds
D UtBytPrv 10u 0 Inz( %Size(
))affiliate
affiliaterelatedD UtBytAvl 10u 0
D 8a Inz( *Allx'00' )
D UUID 16a
D GenUuid PR ExtProc('_GENUUID')
D UUID_template * Value
GenUuid( %Addr( UUID_template ));
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman
/listinfo/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVK
MLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NaVCg1CN$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NY7Z-NAF$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any
subscription
questions.
Help support midrange.com by shopping at amazon.com with our
relatedlink:--
https://urldefense.com/v3/__https://amazon.midrange.com__;!!Cq
VFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DR
Qy55rAH3NTuLn12k$
This is the RPG programming on IBM i (RPG400-L) mailing list To
post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman/l
istinfo/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw4
2NlM_77dZ4ykD8_P2p6DRQy55rAH3NaVCg1CN$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NY7Z-NAF$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
questions.
Help support midrange.com by shopping at amazon.com with our
relatedlink:--
https://urldefense.com/v3/__https://amazon.midrange.com__;!!CqVF
ughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55
rAH3NTuLn12k$
This is the RPG programming on IBM i (RPG400-L) mailing list To
post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman/lis
tinfo/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM
_77dZ4ykD8_P2p6DRQy55rAH3NaVCg1CN$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NY7Z-NAF$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
--questions.--
Help support midrange.com by shopping at amazon.com with our
affiliate
link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!CqVFug
hQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3
NTuLn12k$
This is the RPG programming on IBM i (RPG400-L) mailing list To post
a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman/listi
nfo/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77d
Z4ykD8_P2p6DRQy55rAH3NaVCg1CN$ or email:
RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NY7Z-NAF$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
Help support midrange.com by shopping at amazon.com with our
affiliate
link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!CqVFughQ
-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NTuL
n12k$
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman/listinf
o/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4yk
D8_P2p6DRQy55rAH3NaVCg1CN$ or email:
RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!CqVFughQ-RE!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NY7Z-NAF$ .
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!CqVFughQ-R
E!29WE633g3yiF1VeiWTV7aKyBcVKMLw42NlM_77dZ4ykD8_P2p6DRQy55rAH3NTuLn12k
$
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
