->
>Here's most of it. You'll have to take care of your own initializing and
>looping,
>but the basic parts are here. (This is good for 1296 combinations, as
opposed
>to your 100 and 256 for decimal and hex. Suitable changes to the constant
and
>the IfGT value can make this good for an almost arbitrary number of
>identifiers.)
>
>
>DKeySq1 S 2P 0
>DKeySq2 S 2P 0
>DKeySq1AL S 1
>DKeySq2AL S 1
>DKeySqAL S 2
>DSEQVAL C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ-
>D 0123456789'
> *
>C Add 1 KeySq2
>C KeySq2 IfGT 35
>C Move 00 KeySq2
>C Add 1 KeySq1
>C EndIf
> *
>C Move CurDat CurDatAL
>C Move CurTim CurTimAL
>C Eval KeySq1AL = %SubSt(SEQVAL:(KeySq1+1):1)
>C Eval KeySq2AL = %SubSt(SEQVAL:(KeySq2+1):1)
>C MoveL(P) KeySq1AL KeySqAL
>C Move KeySq2AL KeySqAL
>
>Peter H. Coffin
>phcoffin@us.ibm.com
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>
Thanks Peter,
I think this is exactly what I needed. One other question.. Is there a
reason we go from ABC...789, instead of 012...XYZ ? The later seems to be
more logical as with hex.
Just an observation,
Tony
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
