Cobol Makro in RPG4 umschreiben

[MederA]

Hallo,

ich möchte ein Cobol Makro in RPG4 umschreiben. Dabei bin ich auf ein Problem gestoßen, was mir auch die Kollegen nicht beantworten konnten:

Folgendes soll Umgeschrieben werden:

 01 USER-AREA                              PIC  X(32000).         


 01  ABC-USER-AREA  REDEFINES USER-AREA.    


       02         DDA-REC.                                              
      
        03         DDA-SEQUENZ-AREA.                                   
             05        DDA-SDADIUB.                                      
                                 
                 06        FILLER          PIC  X(01).                          
                
                 06        DDAPFMA      PIC  9(03).

Kann mir hier vielleicht jemand dazu helfen?

Das unter der 01er Stufe von ABC-USER-AREA wird eine DS.. das weis ich, aber ich bin ein wenig Aufgeschmissen, was nun das 32.000 Alphanumerische Feld angeht.

Liebe Grüße
Andrea

[KingofKning]

Ich will ja nix sagen, aber Dein Redefine hat nur 4 Stellen. Da fehlt doch noch entweder ein occurs oder sonst was. So gibt das nichts. (Schon in Cobol nicht)

GG 4481

[Fuerchau]

Gehen tut sowas schon, auch in COBOL, da man nicht alles redefinieren muss.
RPGLE:

dcl-ds DDA_SDADIUB qualified template;
filler char(1);
DDAPFMA zoned(3, 0);
endds;

dcl-ds DDA_SEQUENZ_AREA quliefied template;
DDA_SDADIUB likeds(DDA_SDADIUB);
endds;

Nun, den DDA-REC spare ichmir auf.

dcl-ds USER_AREA qualified char(32000);
ABC_USER_AREA likeds(DDA_SEQUENZ_AREA);
endds;

Die Ansprache der Felder ist dann etwas komplizierter:
USER_AREA.ABC_USER_AREA.DDA_SDADIUB.DDAPFMA

Nun kann man sich das aber auch etwas einfacher machen (alte Syntax):
d USER_AREA ds
d AreaData 32000

d UserAreaPtr s * inz(USER_AREA)

d DDA_SDADIUB ds qualified based(UserAreaPtr)
d filler 1
d DDAPFMA S 3 0

[KingofKning]

Ich habe nicht gesagt das das nicht geht, sondern das das nichts gibt.

Macht ja keinen Sinn ein Feld mit 32.000 Stellen zu definieren und dann nur 4 zu benutzen.
Ich hätte dann der Ordnunghalber ein Filler mit Pic X(31996) erwartet.

Aber egal irgendeinen Sinn mag es haben.

[MederA]

Danke schön!

@KingofKning Danke für die Anmerkung Es ist nur ein Ausschnitt der Ganzen Sache.. Wäre einfach zu viel Code geworden und es ging mir nur um den Abschnitt, wie ich den Rest dann mit drunter häng weis ich

[Pikachu]

Probier's mal so:

D                 DS                                          
DUSERAREA                    32000A                           
DABCUSERAREA                          OVERLAY(USERAREA)       
DDDAREC                               OVERLAY(ABCUSERAREA)    
DDDASEQUENZAREA                       OVERLAY(DDAREC)         
DDDASDAIUB                            OVERLAY(DDASEQUENZAREA) 
DFILLER                          1A   OVERLAY(DDASDAIUB)      
DDDAPFMA                         3S 0 OVERLAY(DDASDAIUB:*NEXT)