Extname wird nicht benötigt sondern nur der Typ "psds":

dcl-ds PgmDs psds qualified ;
PgmName *proc ;
Status *status ;
end-ds ;

Alle anderen Felder lassen sich auch wieder per subf definieren.
Aber einfacher ist es tatsächlich, wenn man bereits eine externe Struktur der PSDS zur Verfügung hat.