This is the job I use to get similar info .... User can be "*", "(=)" or any specific usercode between parenthesis ...
?BEGIN JOB WFL/PDIR/CODEVERSION (
STRING USR OPTIONAL DEFAULT = "(=)");
%FAMILY DISK = DISK ONLY;
STRING S1, S2, MYPK;
SUBROUTINE CODEINFO (STRING PK);
BEGIN
IF USR = "*" THEN
S2 := "SYSTEM"
ELSE
S2 := "ALLUSR";
S1 := USR & "= ON " & PK & " SHOW NAME,FILEKIND,CODEV,EXEC " &
"SELECT FILEKIND = =CODE= SORT +CODEV" &
":TABBED """ & PK & "_" & S2 & "_CODEV.TXT""" ON MYPK;
%DISPLAY (S1);
RUN *SYSTEM/PDIR (S1);
END;
MYPK := "DISK";
CODEINFO ("SPARE");
?END JOB.