Ahlanummerischen Zähler in RPG oder ILERPG

[loeweadolf]

Hallo dt3tj,

gerade so etwas habe ich vor einigen Tagen programmiert. Ich brauchte einen 5-st. Zähler für eine Warenstück-Nr., der aber mehr als 99999 unterschiedliche Nr. bilden können muss.

Ich habe im Programm eine zusammenhängende Tabelle eingerichtet, angefangen bei 0 und endend bei Z.

D NR1 S 1 DIM(32) CTDATA PERRCD(1)
D NR2 S 1 DIM(32) ALT(NR1)

Ich habe einige Buchstabenm rausgelassen, wie I, O, Q und U, damit keine Verwechselungen entstehen können.

Mit der am weitesten rechts stehenden Ziffer angefangen jeweils die Tabelle durchsuchen und den dazugehörgen 2. Wert ermitteln. Diesen 2. Wert einsetzen. Ist der gefundene Wert = -0-, dann dasselbe wiederholgen mit einern Stelle weiter links, usw.

Tabelle
01
12
23
34
....
XY
YZ
Z0

Geht im Grunde genommen ganz einfach.


mfg. Ludger

[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