Wie declariere ich folgende DS im free

[ExAzubi]

Hallo zusammen,

ich habe eine DS im D-Karten Format, die ich gerne im free definieren möchte, allerdings weiß ich nicht wie ich das angehe?

     D                 DS
     D SATZ                         128A   DIM(9999)
     D  ARTNR                        10A   OVERLAY(SATZ:*NEXT)
     D  AVK01                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK02                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK03                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK04                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK05                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK06                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK07                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK08                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK09                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK10                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK11                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK12                         9  0 OVERLAY(SATZ:*NEXT)
     D  AVK                            9  0 DIM(12) OVERLAY(SATZ:11)
     D  BEST                          9  0 OVERLAY(SATZ:*NEXT)
     D  AUFB1                         9  0 OVERLAY(SATZ:*NEXT)
     D  AUFB2                         9  0 OVERLAY(SATZ:*NEXT)
     D  AUFBG                         9  0 OVERLAY(SATZ:*NEXT)

Mit dem Schlüsselwort Pos klappt das nicht so richtig

Danke an alle Helfenden!

David

[B.Hauser]

Warum verwendest Du nicht wie gehabt OVERLAY?
Pos benötigts Du nur wenn Du eine komplette Daten-Struktur überlagern willst.
Für das Überlagern von einzelnen Feldern kann weiterhin OVERLAY verwendet werden:

 DCL-DS *N;
   Satz     Char(128) Dim(9999);
      ArtNr Char(10)  Overlay(Satz: *Next);
      AVK01 Packed(9) Overlay(Satz: *Next);
    .... usw.
 END-DS;

Birgitta

[ExAzubi]

weil ich beim umwandeln folgenden Fehler bekomme

RNF3467: Der erste Parameter für das Schlüsselwort OVERLAY ist ungültig; das Schlüsselwort wird ignoriert.

[ExAzubi]

Denke habe den Fehler gefunden :| das END-DS war eine stelle zu weit links, dadurch wurde es nicht erkannt und somit war die ganze DS-Deklaration für den ....

Trotzdem danke.

[malzusrex]

Ich hätte da noch eine Frage dazu.
Wenn ich die DS nachbaue...

  dcl-ds *N;                                                    
         Satz                dim(9999);                         
          ArtNr              Char(10)  Overlay(Satz:*Next);     
          Avk01              Packed(9)  Overlay(Satz:*Next);    
          Avk02              Packed(9)  Overlay(Satz:*Next);    
          Avk03              Packed(9)  Overlay(Satz:*Next);    
          Avk04              Packed(9)  Overlay(Satz:*Next);    
          Avk05              Packed(9)  Overlay(Satz:*Next);    
          Avk06              Packed(9)  Overlay(Satz:*Next);    
          Avk07              Packed(9)  Overlay(Satz:*Next);    
          Avk08              Packed(9)  Overlay(Satz:*Next);    
          Avk09              Packed(9)  Overlay(Satz:*Next);    
          Avk10              Packed(9)  Overlay(Satz:*Next);    
          Avk11              Packed(9)  Overlay(Satz:*Next);    
          Avk12              Packed(9)  Overlay(Satz:*Next);    
           AVK               Packed(9) Dim(12) Overlay(Satz:11);
          Best               Packed(9)  Overlay(Satz:*Next);    
          Aufb1              Packed(9)  Overlay(Satz:*Next); 
          Aufb2              Packed(9)  Overlay(Satz:*Next); 
          AufbG              Packed(9)  Overlay(Satz:*Next); 
  end-ds; 

Bekomme ich beim Wandeln folgenden Fehler:

    18            AVK               Packed(9) Dim(12) Overlay(Satz:11);          
======>                                                       aaaa               
*RNF3733 20 a      000412  Eine Feldgruppe darf eine andere Feldgruppe nicht     
                           überlagern; das Schlüsselwort OVERLAY wird ignoriert. 

Gruß
Ronald

[ExAzubi]

Ja den Fehler bekam ich auch, aber da er schon beim ersten Overlay gestreikt hat, ist dieser mir nicht sofort aufgefallen.

David

[Fuerchau]

Eigentlich müsstest du bereits beim 1. Format den Fehler bekommen haben.
Eine 2-stufige (oder mehr) geht nur per Qualified, da der Name sonst nicht ansprechbar ist.
Oder wie soll der Compiler die Variable AVK ansprechen?

Erlaubt ist ja nur Struktur(n).Feld(m), AVK(n)(m) geht nicht.

Also benenne die Struktur selber SATZ mit qualiefied und DIM(9999), lass das Overlay einfach weg und definiere dann die Felder.