Ahlanummerischen Zähler in RPG oder ILERPG

[B.Hauser]

Hallo,

schau Dir mal den folgenden Artikel an. Ich denke das ist genau das was Du suchst.
TechTip: Generate Unique Strings

Birgitta

[dd3tj]

Hallo Zusammen,

Hier das ergebniss vom RPG

H Y
*
E RA 36 36 1
*
I DS
I 1 4 FLDNUM
I 1 1 ERG1
I 2 2 ERG2
I 3 3 ERG3
I 4 4 ERG4
*
C MOVEL*ZEROS FLDNUM
*
C 1 DO 1000000 X 90
*
C X DIV 36 R1 90
C MVR A 90
C A ADD 1 YA 90
C MOVELRA,YA ERG4
*
C R1 DIV 36 R2 90
C MVR B 90
C B ADD 1 YB 90
C MOVELRA,YB ERG3
*
C R2 DIV 36 R3 90
C MVR C 90
C C ADD 1 YC 90
C MOVELRA,YC ERG2
*
C R3 DIV 36 R4 90
C MVR D 90
C D ADD 1 YD 90
C MOVELRA,YD ERG1
*
C ENDDO
*
C SETON LR
**
0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ


Danke an alle die geholfen haben

Ihr könnt natuürlich den code benutzen

mfg

dd3tj

Thibaut Foucart