Greetings,

I am using FOCMAP, on FOCUS for z/OS, to print a member listing of my focexec library.

I can successfully print member name, create date, and change date.

I'd like to also print the TSO Id of the person who last made a change.

I can't seem to find TSO Id in the FOCMAP MFD.

Can I print TSO Id using FOCMAP?

Regards,
Dave

i Know that David opened a case with Customer Support for this, but I'm posting here, for other input. The best I can see is that FOCMAP does not have the userid available, but does (through DEFINE) have the create date, etc. Now another MASTER SYSFILES (which goes against the allocation for MASTER does have USERID. So, this is what I did:
DYNAM ALLOC F FOCMAP DA focexeclibrary SHR REU
DYNAM ALLOC F FEX1 DA focexeclibrary SHR REU
DYNAM CONCAT F MASTER FEX1
DEFINE FILE FOCMAP
ICDATE/A4 = UTTRNL || UNNL;
ILDATE/A5 = UMODATR || USIZE;
CDATE/P7 = CHKPCK(4,ICDATE,0,CDATE);
LDAT1/P7 = CHKPCK(4,ILDATE,0,LDAT1);
CRDATE/I6YMD = GREGDT(CDATE,CRDATE);
LTDATE/I6YMD = GREGDT(LDAT1,LTDATE);
USERID/A100=' ';
END
DEFINE FILE SYSFILES
CRDATE/I6YMD=000101;
LTDATE/I6YMD=000101;
MEMBER/A8 = FILENAME;
END
TABLE FILE FOCMAP
PRINT MAX.CRDATE MAX.LTDATE MAX.USERID/A8
BY MEMBER
MORE
FILE SYSFILES
WHERE PHNAME CONTAINS 'FOCEXEC'
END

Noreen,

I tried your code in Focus 7.11 and get the following errors. Does this not work in 7.11? When I change the focmap.userid define to be A8 from a100 and take out the where clause I get this to run. I can see the member names but the userid is blank.

Thanks
PTFS APPLIED TO RELEASE 7.1.1
FROM PTFTABLE LOCATED IN SYS1.FOCLIB

COUNT PTF NUM CREATED APPLIED SUPERSEDED BY PUT LEVEL
----- ------- ------- ------- ------------- ---------
1) 179491 20010608 20010815 ...... ......
2) 185775 20010815 20010815 ...... ......
3) 191271 20011012 20011028 ...... ......
4) 193887 20011112 20020108 ...... ......


(FOC258) FIELDNAME OR COMPUTATIONAL ELEMENT NOT RECOGNIZED: PHNAME
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
ERROR AT OR NEAR LINE 24 IN PROCEDURE FOCMAP1 FOCEXEC
(FOC957) FORMAT MISMATCH FOR THE FIELD: USERID

DYNAM ALLOC F FOCMAP DA TEMP.FEX.TXT SHR REU
DYNAM ALLOC F FEX1 DA TEMP.FEX.TXT SHR REU
DYNAM CONCAT F MASTER FEX1
DEFINE FILE FOCMAP
ICDATE/A4 = UTTRNL || UNNL;
ILDATE/A5 = UMODATR || USIZE;
CDATE/P7 = CHKPCK(4,ICDATE,0,CDATE);
LDAT1/P7 = CHKPCK(4,ILDATE,0,LDAT1);
CRDATE/I6YMD = GREGDT(CDATE,CRDATE);
LTDATE/I6YMD = GREGDT(LDAT1,LTDATE);
USERID/A100=' ';
END
DEFINE FILE SYSFILES
CRDATE/I6YMD=000101;
LTDATE/I6YMD=000101;
MEMBER/A8 = FILENAME;
END
TABLE FILE FOCMAP
PRINT MAX.CRDATE MAX.LTDATE MAX.USERID/A8
BY MEMBER
MORE
FILE SYSFILES
WHERE PHNAME CONTAINS 'FOCEXEC'
END

Sorry, I missed the 7.1.1 part. I was in 7.3. They really beefed up SYSFILES in there, but still using the MASTER library. The PHNAME that I was using is in that MASTER, and it is the fully qualified dataset name of the library (in my case FOCEXEC.DATA). I don't think you can get at the USERID in 7.1.1, or at least I couldn't find it (anyone else?)