DEVD abfragen über API

[stoerfang]

D  RVAR1          S          32766A              
D  RVLEN1         S             10I 0 INZ(32766) 
D  FORM1          S              8A              
D  CFGN1          S             10A              
D  ERR1           S          32766A              


 
D GETDD           PR                  ExtPgm('QDCRDEVD')
D                            32766A   OPTIONS(*varsize) 
D                               10I 0 CONST             
D                                8A   CONST             
D                               10A   CONST             
D                            32766A   options(*varsize) 

Ist vielleicht mein Aufruf falsch ?
FORM1 = DEVD0600 und CFGN1 = Einheit