Como todos sab�is el sistema calcula el identificador de nivel de formato de registro con la siguiente informaci�n: nombre del formato de registro, nombre de los campos, longitud total del formato de registro, n�mero de campos en el formato de registro, atributos de los campos y orden de los campos en el registro. Este identificador no es exactamente �nico ya que como se indica en el manual podr�a darse el caso de que para ficheros con muchos campos (no se indica cuantos) se generaran identificadores iguales para dos ficheros con estructura distinta. �Alguien sabe como se calcula este identificador? Lo he estado buscando pero no he encontrado nada al respecto. Desde mi 'ignorancia' matem�tica, �dados unos valores como se puede calcular un identificador unico para cada una de las combinaciones posibles? Durante la busqueda si que he encontrado como generar UUID (Universal Unique Identifier), que entiendo que servir�a como identificador �nico, pero no basado en unos datos dados.
2. OBTAINING A UNIQUE IDENTIFIER ID (A FOLLOW-UP TO "OBTAINING THE SYSTEM TIME IN MILLISECONDS <http://www.as400network.com/resources/ClubTech/index.cfm?fuseaction=ShowNewsletterIssue&ID=9602>") In the last issue, I provided two techniques for obtaining the system time, including milliseconds, one in RPG and one in CL. The RPG item was reprinted from NEWS/400 Tech Corner and used the QWCCVTDT API. Several readers pointed out - in what seemed like just a few milliseconds after I sent out the newsletter :) - that the code below is a far simpler alternative: DTimeStamp S Z C Time TimeStamp The thrust of the Tech Corner item was that having the system time in milliseconds gives you a unique identifier, which is not true, as you can easily execute the above code and obtain identical millisecond times. The solution to finding a unique identifier is to use a Universal Unique Identifier (UUID), a 128-bit value that is guaranteed to be unique. The following RPG IV template is for OS/400's GENUUID() MI instruction, which generates a UUID: H Option( *NoSrcStmt ) DftActGrp( *No ) ** D UUID_template Ds D UtBytPrv 10u 0 Inz( %Size( UUID_template )) D UtBytAvl 10u 0 D 8a Inz( *Allx'00' ) D UUID 16a ** D GenUuid PR ExtProc('_GENUUID') D UUID_template * Value ** C Callp GenUuid( %Addr( UUID_template )) ** C Return If you're interested in a more technical explanation of UUIDs, check out <http://www.ics.uci.edu/~ejw/authoring/uuid-guid/draft-leach-uuids-guids-01.txt> . Vicente Garc�a Valero Departamento de sistemas Cer�mica SALONI S.A. [EMAIL PROTECTED] begin 600 winmail.dat M>)\^(BP0`0:0"``$```````!``$``0>0!@`(````Y`0```````#H``$(@`<` M&````$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`06``P`.````T@<"`!H` M$0`!``$``@`*`0$@@`,`#@```-('`@`:`!$``0`!``(`"@$!"8`!`"$```!% M1#A%,#4P,D%#,T,V,C0Q.$4Y-D8U1#(X,45$,4,W1@!4!P$$@`$`%P```$ED M96YT:69I8V%D;W)E<R#Z;FEC;W,`0PD!#8`$``(````"``(``0.0!@"\#0`` M+0````,``H`((`8``````,````````!&`````%*%``#S%0``'@`#@`@@!@`` M````P````````$8`````5(4```$````%````."XP-``````#``2`""`&```` M``#`````````1@`````!A0````````L``(`((`8``````,````````!&```` M``.%````````"P`%@`@@!@``````P````````$8`````#H4````````#``&` M""`&``````#`````````1@`````0A0````````,`!H`((`8``````,`````` M``!&`````!&%`````````P`'@`@@!@``````P````````$8`````&(4````` M```>``B`""`&``````#`````````1@`````VA0```0````$`````````'@`) M@`@@!@``````P````````$8`````-X4```$````!`````````!X`"H`((`8` M`````,````````!&`````#B%```!`````0`````````"`0D0`0```%`(``!, M"```0PT``$Q:1G5Y920/`P`*`')C<&<Q,C4&,@#X"V!N9S,P.)XR`?<"I`/C M`@!C:`K`X'-E=#`@!Q,"@P!0_P-4$,D';0*##E`0;PA5![+-`H!]"H`(R"`[ M"6\.,)8U`H`*@78(D'=K"X#T9#0,8&,`4`L#"[45H:D$8"!T!'!O!"!S#*'( M)V4Y!``@90,@`)!(<W1E`,`@8P=`8_9U"V`;\FD!``(P!I`-X*YA&R`%P`$` M(`,`=AP!>QY!`A!R`,`;`!XR"7!G;QQ!`V`<H`(@(!T!`)!GOG4(D`(P'E`+ M@!\#8P"@8"=F,VXZ'F`#<&+?"7`>,0,@'P\#8"PB2"!P\QLQ'+!M<!LP)#`) M``\@\&ET=60:\0&0'K(B[_\C]2'A)4`$D!]C)30;\`.@SR:_(^4?0`408G4; M``0@\23+('D@!;`=<2N]*73Q'[8N($4<41U=(E`;\/T;X7@`T`&0!X`A$BA" M`P#W!:`LD!R0<0I0(#$:T1$@W2%!9!W1*64#@74F<25@]&1R&Y%D')`T@!$1 M&_)]'+!S'V,R$@JQ')`=P6A7*)$E$2!1;1F@:"P(*%\P,3*H'.``<"N!*3*2 M9_\)\`20-A$#H!UK!Y$@P0=`_P>1-@,;(C9;!Y`@`!F@)@!O.^(<00N``9`N M"J(*@2?P8F9!;"#3&U(R.!RW\2\?/R!,&N`V@#T2'?'>("M@!/``<$*Q<"B2 M,#'=0D)N($$@`$*B;AWP')"_)G$[`4-P,,`NT#YD1`>0X1Y!;6D@)R#`(E`Z M`;DAP&$G,Y$<81N1,1V@WQRP)#`^PC2`&R)U(E`$(.YV!T`Z\S)6<`I0*-,< MT_\%P$DP'5U),#&B-@,=X1R0WTDP-)$DT350,D)B"X`AL?\"(#N2&S`K4#N! M0?!%Y3V1_R$2'0%"X3(1-($`D#(#0_R#,E,YI2!554E$-_"^51YR$1`F<5/1 M,A))'77]!)`I)#`R$AV""?!"L3(2_1$@<AD`-$4R4QUL,58D,/U#=F(U4$*B M*7%),S2`*X,/2.(^5EN7"S!S8C$P/P%`&V!<P@PP$@(+\#0@`C(NX$]"5$%) M3AU><$<18%-@7H!1544!5-!$14Y4249)9$527U%<;`N`'E`H`5[01D],3$]7 M+<154!,P3R`B"-``01,<\%XI5$A?0%-94TA414T3,$E-7T%.!07026#@25-% M0T\D3D0%\#QH`D!P.J@O+W=E0"XU4#1<T$DYP'1W!;!K+C)1+TL[`0AA8P>0 M+T,*0&+R5`60:"\943"09D`$4#0_9D+P93"Q3K$]4W4W4'<'P7,[@`)`!)!) M"P00"E`F4Y`].38P?#(^8:$!0!SP(E!@82*N*0H@`4!@0TD#H'1"0=]-\05` M!`$*4"0P230``V#_&0`!`"8A9@`:\&>!5(,\,;D%L6]B`9`+@`N`9VQC_'-Y M'%(#,&!#':`'@"0PO0N`8PI`,O!OP4:@;&!`>Q$@($%D)8%K4@N`!_!0IUZP M0R%RUD-,+N!40D'W<U(E\'!W=TX!"7!MD#X1AVWQ`U('L$574R]EH?\3,&>! M%:$$H!8!<Y)H<28A`4)!45=#0U941/)4$6!022[@8#0&8%0!?T4C'?!4$30! M=C0(8`5`+?US$G<0\`5`$2`<<&WQ8$#Z:QY0:D+P!4`V,0?18#3_<@HK$`&` M%@%M<!$@`C![L^=L<CG`:[email protected]?`!L</]\<6QR!:`>03^@"0!]]AO1OS8Q M"L$`D"50.X!X$6QIP?=$T!V@'I`Z6^H,T`%`#-`(.34Y#,$Q.3$X(0S!,C@W M-PS!,SAD,S8,P30WAB`,P34,-S49@`S0-C<Q,QT,P3>(L`Y0#-`X-C-?$A$4 M@AJ!>6`'<5,PT7#I!@`@6CYD0Q,S$S.*LW];[USU789T@FQP/5!LT6_^9FQC M=WIU`W6R@9,0\!D`_V_,<0)S$GX?!"`?T!Z0+('_"&!]H4R!,A(=9@20)#!\ M4/\V88,B(E"`,3U0;4%.`922_V`T0Q$;\#50`Q`LH#"0!9#_*W".PAY0`:!M ML((%<Y-O8_\=51RQ<?IPF5MA8$)@-'2"_S5@"D!HPAKQ-D$RX6_!E-__D%*0 M\1K@:'%]H5/88#14?Y]3L5.!58$<D`X@."U.8/\%0$F!,B&!DQO1.U%0,VWR M_T+!,3%@0Y]D=&0"$'(@:3#S;[)S4DE6;E>Q@R+5;Q)/=Q,G!"!'7X!3 M<OXH.5!C\(+&`(`]0TZQE@;_.:0<8(-"4W*$_X8/AQ^(+SN)/Q%02%X@!3!. ML2@@L"I.;U-FX(JP;05`%3E01`&`03#`1W)P9[.#M$$^9"HJ3Z938U\-J*=$ M!"&V)G1">71V4%;@H_`PE+`14&Q`>L&S@"53:7IELX"VG.8I:Z"WND%V`R"X MM+86%C@<D+D3*C\`;'@G;ZGAM5>V=*/P-AR0M8]'+0GP52#@)B!07_!%>$&X M86]C*"=?JC4G=[WLMMBU\%:DD[\=BZ!#G0=`;(KPP"6Y04%D-##WN;^U;XN@ M4A$P"'`+D(R_[8W,28]@E)$G(I%V,CL!_W92<R$<D`1@(I%N9)M2,)!_"U&$ MDB!1CU%3<B6!-G%C_FMPE7O"8:9DR@W@6V`9H`1I+@F`=2]^96HX=R]A*W`W M4'8A9R_*=<!A+2#19"\T,']!IBT[@`#0:"W2PG/3`U'48#`Q+@S0=&K+(+^= M!1GJ/F4#T+[0U@!6#>#](0-'"L``X#1CPY$HD3YE_F+6`$9`"K$PU!]C'#40 ML#\^<Q6@!)!'\D:@,Q%30>=@\%Z`!@`N03Y6:\#6`.QV9]BQ!S!`5#$"(-%P M+S)16XO7&!:!`.$@`P`F```````#`#8```````L``@`!````'@!P``$````7 M````261E;G1I9FEC861O<F5S(/IN:6-O<P```@%Q``$````6`````<&^WLDT M.;X>B;381]FDX\75#,'+O```0``Y`)!/1LG>OL$!`P#Q/PH,```>`#%``0`` M``\```!624-%3E1%($=!4D-)00```P`:0``````>`#!``0````\```!624-% M3E1%($=!4D-)00```P`90``````#`/T_Y`0```,`@!#_____`@%'``$````X M````8SU%4SMA/2`[<#U#15)!34E#02!304Q/3DDL.VP]3E1-04E,+3`R,#(R M-C$V,#$P,5HM.30P,P`"`?D_`0```%\`````````W*=`R,!"$!JTN0@`*R_A M@@$`````````+T\]0T5204U)0T$@4T%,3TY)+"!3+D$N+T]5/5-!3$].22]# M3CU214-)4$E%3E13+T-./59)0T5.5$4@1T%20TE!```>`/@_`0````\```!6 M:6-E;G1E($=A<F/M80``'@`X0`$````/````5DE#14Y412!'05)#24$```(! M^S\!````7P````````#<IT#(P$(0&K2Y"``K+^&"`0`````````O3SU#15)! M34E#02!304Q/3DDL(%,N02XO3U4]4T%,3TY)+T-./5)%0TE0245.5%,O0TX] M5DE#14Y412!'05)#24$``!X`^C\!````#P```%9I8V5N=&4@1V%R8^UA```> M`#E``0````\```!624-%3E1%($=!4D-)00``0``',!R2?E_4OL$!0``(,$1E MA,G>OL$!'@`]``$````!`````````!X`'0X!````%P```$ED96YT:69I8V%D M;W)E<R#Z;FEC;W,``!X`-1`!````.P```#PS-S@P0T)$,#,Q0S!$,C$Q0CDV M-S`P-C`Y-#4W,#,Q,T-$,S5%1D!N=&UA:6PN4T%,3TY)+E-*33X```L`*0`` M````"P`C```````#``80ZX8I7P,`!Q!*"````P`0$``````#`!$0`````!X` M"!`!````90```$-/34]43T1/4U-!0NE)4T5,4TE35$5-04-!3$-53$%%3$E$ M14Y4249)0T%$3U)$14Y)5D5,1$5&3U)-051/1$5214=)4U123T-/3DQ!4TE' M54E%3E1%24Y&3U)-04-)\TXZ3D\``````@%_``$````[````/#,W.#!#0D0P M,S%#,$0R,3%".38W,#`V,#DT-3<P,S$S0T0S-45&0&YT;6%I;"Y304Q/3DDN (4TI-/@``H.`= ` end _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]?body=LEAVE
