p_ErrorCode ist eine Struktur:

d p_ErrorCode ds
d p_errProv 10I 0 inz(%size(p_errorCode))
d p_errAvail 10I 0 inz
d p_errMsgId 7
d p_errRes 1
d p_errMsgDta 128