PDA

View Full Version : Arrayelemente



JonnyRico
06-04-06, 10:23
Hi,

kann mir vielleicht mal kurz jemand auf die Sprüge helfen, wie ich Arrayelemente bereits bei der Initaisierung vorneheme? Ich will nicht jedes Element gleich initalisieren.

Gruß

Sascha

Frank Hildebrandt
06-04-06, 10:35
Hier ein kleines Beispiel




d TABKEY S 4S 0 Dim(32) CTData PerRcd(1)
d TABDSC S 8 Dim(32) Alt(TABKEY)

Das hier muss ans Ende der Quelle gestellt werden.

** Table of Function Key Values
0049F1
0050F2
0051F3
0052F4
0053F5
0054F6
0055F7
0056F8
0057F9
0058F10
0059F11
0060F12
0063AUTOENT
0177F13
0178F14
0179F15
0180F16
0181F17
0182F18
0183F19
0184F20
0185F21
0186F22
0187F23
0188F24
0189CLEAR
0241ENTER
0243HELP
0244ROLLDOWN
0245ROLLUP
0246PRINT
0248HOME

JonnyRico
06-04-06, 10:38
Hi,

danke. Ich hatte fast befürchtet das es nicht schöner geht. Danke.

Gruß

Sascha

B.Hauser
06-04-06, 12:08
Es geht aber auch anders:



D DSWochenTag DS
D 10A inz('Montag')
D 10A inz('Dienstag')
D 10A inz('Mittwoch')
D 10A inz('Donnerstag')
D 10A inz('Freitag')
D 10A inz('Samstag')
D 10A inz('Sonntag')
*
D FGWochentag 10A Dim(7) Overlay(DSWochentag)


Birgitta

JonnyRico
06-04-06, 12:13
Oh :eek:

Ja das sieht doch schon nen bissel hübscher aus. Danke für den Tip.

Gruß

Sascha