Изменять идентификатор пользователя в статистике ISPF члена PDS программно

Question

Я пытаюсь изменить значение идентификатора пользователя модуля в PDS.

Это можно сделать в интерактивном режиме в ISPF, используя опцию меню 3.5 (в нестандартной настройке ISPF).

Я хочу сделать это с помощью программы Rexx.

Answer 1

Вероятно, будет лучше использовать сервис ISPF LMMSTATS.

//TSOBATCH EXEC PGM=IKJEFT01,DYNAMNBR=40,PARM='ISPSTART CMD(%GENDIAG)'
//ISPPROF  DD DSN=&&T,DISP=(,PASS),SPACE=(CYL,(10,10,10),RLSE),       
//            DCB=(SYS1.PARMLIB)                                     
//ISPMLIB  DD DSN=SYS1.SISPMENU,DISP=SHR                             
//ISPPLIB  DD DSN=SYS1.SISPPENU,DISP=SHR                             
//ISPSLIB  DD DSN=SYS1.SISPSENU,DISP=SHR                             
//         DD DSN=SYS1.SISPSLIB,DISP=SHR                             
//ISPTLIB  DD DSN=SYS1.SISPTENU,DISP=SHR                             
//SYSPROC  DD DSN=&SYSUID..GENDIAG,DISP=SHR                           
//SYSTSPRT DD SYSOUT=*                                               
//SYSPRINT DD SYSOUT=*                                               
//SYSOUT   DD SYSOUT=*                                               
//SYSIN    DD DUMMY,DCB=BLKSIZE=80                                   
//SYSTSIN  DD DUMMY,DCB=BLKSIZE=80
/**********************************************************************/
/* RESET ISPF STATS TO USERID ISPF_USERID                     */
/**********************************************************************/
ISPFSTATS:PROCEDURE                                                     
PARSE ARG ISPF_DSN,ISPF_MEMBER,ISPF_USERID                             
ADDRESS ISPEXEC                                                         
"LMINIT DATAID(DATAID) DATASET('"ISPF_DSN"') ENQ(SHR)"                 
"LMOPEN DATAID("DATAID")"                                               
"LMMSTATS DATAID("DATAID") MEMBER("ISPF_MEMBER"),USER("ISPF_USERID")"   
 LMMSTATS_RC=RC                                                         
"LMFREE DATAID("DATAID")"                                               
RETURN LMMSTATS_RC               

Я вставил JCL и код вместе отсюда, http://ibmmainframeforum.com/viewtopic.php?f=18&t=1772, предоставленный пользователем ehrocha.

Вы должны найти в бесплатном доступе от IBM в Интернете руководство по сервисам Interactive System Productivity Facility (ISPF) для вашей версии z/OS. Там вы найдете полную документацию LMMSTATS и все другие доступные услуги ISPF.