Da DSTQ's ja "veraltet" sind, wirds da wohl nichts neueres geben außer
WRKDSTQ OUTQ(*PRINT)
CPYSPLF
und dann auf die Ausgabedatei per SQL mit Where und Substrings zuzugreifen.