Alternative zu *ENTRY PLIST

[malzusrex]

erklärt doch mal bitte eine unwissenden wie man *entry in den D-Bestimmungen darstellt

C     *ENTRY        PLIST                                         
C                   PARM                    OBJ               4 0 
C                   PARM                    FOLG              6 0 

tschau ronald

[Fuerchau]

Definition Procedure-Interface

D                      PI
D OBJ                        4p  0
D FOLG                       6p  0

[B.Hauser]

Hallo Ronald,

die Entry PList entspricht dem Procedure Interface:

D Ersatz für *Entry PLIST
D MyPGM           PI                  
D   OBJ                          4  0   
D   FOLG                         6  0 

Die Felder (hier OBJ und FOLG) sind durch das Procedure Interface definiert.

Zusätzlich benötigst Du noch einen Prototyp, in dem die Parameter-Felder mit der gleichen Art, Länge und in der gleichen Reihenfolge hinterlegt sein müssen.
Feld-Namen müssen im Prototyp nicht angegeben werden.
Werden Feldnamen angegeben werden diese ignoriert, d.h. in mehreren Prototypen kann der gleiche Name mit unterschiedlicher Definition verwendet werden.
Der Prototyp muss in jedem Programm, das das Programm oder die Prozedur über CALLP aufruft eingebunden werden.

D Prototyp       
D MyPGM           PR                              ExtPGM(MYPGM)                  
D   OBJ                          4  0   
D   FOLG                         6  0 

Übrigens, am 12./13.Feburar findet von Common aus in Mannheim ein 2-tägiger RPG-Workshop statt.
Prototyping ist nur eines von vielen Themen.
Bei Interesse informier Dich doch mal unter:


Common Deutschland

Birgitta

[malzusrex]

dank euch beiden. wieder was gelernt

danke ronald

[Fuerchau]

Bei der Übergabe von Strukturen (DS) ist das mit dem PI etwas komplizierter, die einfachere Version ist dann wieder *ENTRY (nur geht das leider bei Prozeduren wieder nicht).

Meine Lösung lautet dann:

d MyProg PI
d MyDs 1

d MyDsPtr s *
d MyOrigDs ds based(MyDsPtr)
d Field1 ....

c/free
MyDsPtr = %adr(Myds)
/end-free

Oder hast du eine bessere Lösung Birgitta ?

[BenderD]

Hallo Baldur,

das mit der Dummy Deklaration mit der Länge 1 gefällt mir nicht, entweder
würde ich da LIKE nehmen oder * (Pointer) mit value, ansonsten, wie skizziert. LIKEDS habe ich nicht probiert, was da passiert, aber LIKEDS ist eh' Waffenschein pflichtig, sobald man embedded SQL verwendet; der PreCompiler ist halt Sch...(denkste, soll schlecht heissen)

Dieter Bender