EDTWRD kann es da wohl doch leider nicht (COBOL ist da halt flexibler).
Du musst dir wohl eine eigene Funktion basteln.