Nein musst du nicht. Wenn du allerdings an die Feldinhalte willst, kannst du relativ simple Definitionen verwenden:

dcl-pi *n;
myds char(2000);
end-pi;

dcl-s pDS pointer;
dcl-ds MyDS likeds(xxxx) based(pDS);

pDS = %addr(myds); // Setzen Basispointer von Parameter