DTAARA *LDA?

[RaMai]

Sorry, ist wohl zu warm heute oder so was in der Art
Ich denke jetzt hab ich es verstanden.
Ich brauche nur eine lokale DTAARA - ich leg nur die Felder von mehreren DS drueber...
z.B.
PGM A benoetigt
1 6 Feld A
7 14 Feld B
PGM B benoetigt
1 4 Feld C
5 6 Feld D

Dann mache ich eine DS
mit allen Feldern und fuelle vor dem Call was ich gerade benoetige, richtig?

Gruss Ralf

[B.Hauser]

Hallo Ralf,

Deine Lösung funktioniert, solange:
sich numerische, alphanumerische und Datums/Zeitfelder sich nicht überlagern. Dadurch könnten ungültige Werte in die numerischen oder Datums- und Zeitfelder gelangen, was dann zu einem Programm-Abbruch führt.

Besser wäre es, 3 unterschiedliche Datenstrukturen zu definieren und vor Programm-Aufruf die benötigte Datenstruktur in die *LDA, die mit einem einzigen Feld mit 1024A definiert wurde, auszugeben.

D LDA            UDS                  dtaara(*LDA)           
D  LDAInhalt                  1024                           
                                                             
D DSParPgm1       DS                  Qualified              
D   Par1                        50A                          
D   Par2                        15S 0                        
D   Par3                          D                          
                                                             
D DSParPgm1       DS                  Qualified              
D   Par1                        11S 3                        
D   Par2                        30A  
 *------------------------------------------------------                        
 /Free   
      //Füllen Datenstrukturen für Parameterübergabe
      in LDA;                                                
      Clear LDAInhalt;                                       
      Select;                                                
      When Bedingung = 1;                                    
           LDAInhalt = DSParPGM1;                            
           Out LDA;                                          
           CallP Pgm1;                                       
      When Bedingung = 2;                                    
           LDAInhalt = DSParPGM2;      
           Out LDA;                    
           CallP Pgm2;                 
      EndSL;                           
      Out LDA;                         
 /End-Free 

Birgitta

[RaMai]

Danke Birgitta, wieder was gelernt.
Alle DS sind bei mir alpha, werde trotzdem deine Loesung verwenden - ich finde dadurch ist der Code lesbarer.

Gruss Ralf

[camouflage]

Es gäbe noch einen Weg,
Holzhackermethode halt.

Leg die Datenbereiche innerhalb der LDA
fest.

1-99 = PGM1
101-200 = PGM2
...

Hat den Vorteil beim Debuggen, dass Du gleich alle übergebenen Werte in der LDA
siehst und zwischenspeichern muss man auch nicht

[Fuerchau]

Bei einer Neukonzeption von Parameterübergaben würde ich die *LDA nicht mehr nehmen sondern Aufrufparameter.
Dies ist auf jeden Fall sicherer und flexibler.

Bei "alten" Programmen muss man meist nehmen was gerade da ist.

[camouflage]

Da geb ich Dir recht Fuerchau.