Fortlaufende Felder bestücken - Ist das abkürzbar?

[dholtmann]

Hallo *all,

ich habe Folgendes:

     c                   if        digits = 1     c                   eval      AFeld1 =  %subst($$_Var:1:byteleng)
     c                   eval      pointer = %addr(AFeld1)
     c                   elseif    digits = 2
     c                   eval      AFeld2 =  %subst($$_Var:1:byteleng)
     c                   eval      pointer = %addr(AFeld2)

     c                   elseif    digits = 3
     c                   eval      AFeld3 =  %subst($$_Var:1:byteleng)
     c                   eval      pointer = %addr(AFeld3      
           .... 

     c                   elseif    digits = N
     c                   eval      AFeldN =  %subst($$_Var:1:byteleng)
     c                   eval      pointer = %addr(AFeldN)

     c                   endif

Dabei ist mein Problem, dass AFeld1-N auch immer in seiner Länge um 1 wächst.
Gibt es eine Möglichkeit dies trotzdem als Schleife zu fassen?
Während des Tippens kam mir folgende Idee:

     D Index           s              2S 0 inz(1)
     D AFeld           S             63A   dim(63) varying
      /free
           for Index = 1 by 1 to 63;
            %len(AFeld(Index)) = Index;
            AFeld(Index) = %subst($$_Var:1:byteleng);
            pointer = %addr(AFeld(Index));
           endfor;

Würde das gefahrlos funktionieren?

[Fuerchau]

63A dim(63) heißt, dass du 63 Felder á 63 Bytes hast.

1A dim(63) sind dann 63 x 1 Byte. Allerdings kannst du mit %subst auch auf der linken Seite arbeiten, also %subst(...) = 'BlaBla'.

Was ist das Ziel des Ganzen?

[dholtmann]

ich benötige von Länge 1-63 je ein Feld.
Je nach Durchlauf muss ich dann eins davon füllen.
ich möchte mir halt sparen 63 mal zu sagen: wenn X = 1...N dann füll Feld1...N.
Bei gleicher Feldgröße wären Dimensionen definitiv eine Lösung.

Besonders frage ich mich ob:

%len(AFeld(Index)) = 40;
pointer = %addr(AFeld(Index));

das den gleichen Pointer liefert wie:

pointer = %addr(AFeld40);
(AFeld40 definiert als Alpha mit 40 Zeichen)

[Fuerchau]

Was willst du dann mit dem Pointer?
Dieser verweist nur auf den Speicher.
Was sich dahinter verbirgt, definierst du wiederum mit deiner based-DS und diese Definition entscheidet über den Inhalt ab dem Pointer bzw. ggf. einen MCH-Fehler.

Daher noch mal die Frage: was ist das Ziel des Ganzen?

Für Funktionen und Prozeduren übergibt man Werte und Zeichen. Die Maximalausprägung wird per Deklaration festgelegt und bei CONST/VALUE erfolgt auch eine Typanpassung.
Was also willst du mit solchen Konstrukten (außer Fingerübungen) tatsächlich erreichen?

[dholtmann]

Mein letztendliches Ziel ist es, eine packed Zahl auszulesen.

D $$_Var        S            100A   Based(Pointereins)
D Feld5          S                5P 0 Based(pointer)
D AFeld5        S                3A

c                   eval      AFeld5 =  %subst($$_Var:1:byteleng)
c                   eval      pointer = %addr(AFeld5)

So bekomme ich den Wert in mein Feld5. Das funktioniert auch super.
Aber ich würde mir gerne sparen, für jede Größe ein einzelnes Feld zu definieren.

[BenderD]

... wenn man denn meint das so machen zu wollen, dann würde ich das in eine Subprocedure huddle2packed auslagern, die kriegt einen Parameter huddle 32 alfa varying und gibt result als 63 packed zurück. In der procedure braucht man nur den huddle per memcopy an die richtige Stelle zu kopieren (%length beachten!) und mit return zurückgeben.

D*B

[Pikachu]

Mal was als Diskussionsgrundlage ...

D                 DS                                                   
DAFELD                          32A                                    
DFELD                           63P 0 OVERLAY(AFELD)                   
DVAR              S            100A   INZ(X'123456789D1234')           
DSTART            S              3P 0 INZ(3)                           
DDIGITS           S              3P 0 INZ(5)                           
DLEN              S              3P 0 INZ                              
DMSG              S             52A   INZ                              
D                                                                      
C     DIGITS        ADD       1             LEN                        
C                   DIV(H)    2             LEN                        
C                   MOVEL     *ALLX'00'     AFELD                      
C                   EVAL      %SUBST(AFELD:%SIZE(AFELD)-LEN+1:LEN) =   
C                             %SUBST(VAR:START:LEN)                    
C                   EVAL      MSG = %CHAR(FELD)                        
C     MSG           DSPLY     '*REQUESTER'                             
C                   SETON                                        LR