如何利用GTF追踪结果调试大型机？

GTF（General Trace Facility）是一款非常好的工具，能让你在大型机上的工作更轻松愉快。首先，GTF可以追踪和记录所有类型的系统事件，并提供详细的诊断数据，以便你查找那些很隐蔽的bug。当然，它的追踪结果报告也非常地让人头昏脑胀，很不容易找出用于调试程序的必要信息。不过，我们可以通过一个小小的REXX程序，再结合一个不是很传统的调试工具，就可以从大堆的GTF追踪数据中摘出简要的信息来。

　　利用GTF追踪SVC 　　GTF还有一个非常有用的功能，就是获取SVC（supervisor call）指令。SVC指令是问题程序用于访问系统服务的指令。试想，假如我们系统的响应时间有些……

查看全文

我们一直都在努力坚持原创.......请不要一声不吭，就悄悄拿走。

我原创，你原创，我们的内容世界才会更加精彩！

【所有原创内容版权均属TechTarget，欢迎大家转发分享。但未经授权，严禁任何媒体（平面媒体、网络媒体、自媒体等）以及微信公众号复制、转载、摘编或以其他方式进行使用。】

微信公众号

TechTarget

官方微博

TechTarget中国

取消回复

　　利用GTF追踪SVC

　　GTF还有一个非常有用的功能，就是获取SVC（supervisor call）指令。SVC指令是问题程序用于访问系统服务的指令。试想，假如我们系统的响应时间有些问题，我们怀疑原因可能是某个应用在不断发出操作系统等待，而没有使用CICS应用程序接口（API）。利用GTF可以追踪这些SVC等待以及这些服务调用的指令地址。根据这些指令地址我们可以快速精准地找到发出非CICS等待的那个程序。

　　如下是GTF的一些参数例子。值得注意的是，几年前GTF的参数是从控制台获得的。我们看下面的文本中，SVCP是为了告诉GTF在它后面的JOBNAMEP才是实际参数。因此，SVCP参数指向的是SVC项；SVC项会指定被追踪的SVC的数量。同样，JOBNAMEP指的是被追踪的JOBNAME。

　　TRACE=SVCP,JOBNAMEP
　　
　　SVC=(1) JOBNAME=(CICSPROD),END

　　GTF追踪的格式

　　IBM的IPCS（Interactive Problem Control System）可以把GTF的追踪数据格式变得更规范些。下面粘贴的是截取的一部分例子，我们可以清晰看到很多有用信息。

　　**** GTF TRACING ENVIRONMENT ****
     　　Release: SP7.0.9   FMID: HBB7740   System name: SYSP
     　　CPU Model: 2097 Version: 00 Serial no. 015EFF

　　SVC..... 001 ASCB.... 00FC0880 CPU..... 0002     JOBNAME. CICSPROD OLD-PSW. 078D0001 95113178
             　　 TCB..... 00A98E00 MODN.... DFHKETCB R15... F918ABD8 R0... 00000001 R1... 1E19D328
              　　PLIST... 1E19D328
          　　GMT-01/27/2010 18:27:46.321507 LOC-01/27/2010 12:27:46.321507

　　 SVC..... 001 ASCB.... 00FC0880 CPU..... 0001     JOBNAME. CICSPROD OLD-PSW. 078D0001 95112F3C
             　　 TCB..... 00AF8680 MODN.... DFHKETCB R15... BE06CECE R0... 00000001 R1... EA99C000
              　　PLIST... 15703128 000408B8 0022AB64 00054C8C 80054BE4
          　　GMT-01/27/2010 18:27:46.321775 LOC-01/27/2010 12:27:46.321775

　　这样，我们就得到了大量的诊断信息。但问题是我们还要区分由CICS系统代码发出的waits（等待）与应用程序发出的SVC。如果用比较蛮干的方法，可能就只有一条一条地阅读每一行追踪，并匹配PSW（Program Status Words）与CICS的负载模块。不过，这个方法可能要耗费不少时间。

　　利用REXX和Excel浓缩GTF追踪数据

　　幸好，利用一个小REXX程序就可以将GTF追踪结果转化为CSV文件（command separated value），然后导入到Excel。下面是一个REXX程序范本：

　　/* REXX */
　　parse arg input

　　"del 'user01.gtfsvc.csv'"                    /* Delete and reallocate output file */
　　"alloc fi(csvout) da('user01.gtfsvc.csv') unit(sysda) space(15 15)",
     　　 "track new catalog lrecl(60) blksize(18000) recfm(f b) release"
　　csvout.1 = "SVC,Job Name,PSW,TCB"            /* Write column headers */
　　"execio 1 diskw csvout (stem csvout."

　　"EXECIO 1 DISKR gtfin (stem gtfin."          /* Top of input loop */
　　do while(rc = 0)
　　 if index(gtfin.1, 'SVC.....') > 0 then,   /* Beginning of an entry */
    　　 do
       　　 firstWord = 2
        　　 if word(gtfin.1, 1) = '1' then,     /* Deal with page ejects */
          　　 do
             　　 firstWord = 3
          　　 end
         　　svc = word(gtfin.1, firstWord)      /* Get SVC, job name and PSW */
         　　jobname = word(gtfin.1, firstWord+6)
        　　 psw = word(gtfin.1, firstWord + 8) || ' ' || word(gtfin.1, firstWord+9)
       　　 "EXECIO 1 DISKR gtfin (stem gtfin." /* Get next line for TCB address */
       　　 if word(gtfin.1, 1) = '1' then,     /* Again with the page ejects? */
        　　    do
            　　   tcb = word(gtfin.1, 3)
          　　 end
        　　 else,
         　　   do
             　　 tcb = word(gtfin.1, 2)
         　　   end
       　　 csvout.1 = svc || ',' || jobname || ',' || psw || ',' tcb
      　　   "execio 1 diskw csvout (stem csvout." /* Build and write output */
   　　   end
　　 "EXECIO 1 DISKR gtfin (stem gtfin."         /* Get next line */
　　end

　　queue                                          /* It's all over, go home */
　　address tso
　　"execio * diskr gtfin (finis)"
　　"execio * diskW csvout (finis)"
　　"free fi(csvout)"

　　注：这段代码并不是通用的，有可能不适用你的GTF报告。

　　这段代码中有个参数是DD语句的名字，指向一个包含GTF报告的数据集。本代码将把输出的CSV文件放到数据集userid.GTFSVC.CSV。输出的CSV文件包含四栏，分别是SVC number、job name、发出SVC的指令的PSW和威胁的TCB（任务控制块）。在CSV文件中，第一行是标题标签。

　　然后，将CSV文件导入Excel就是件容易的事了。最终的电子数据表如下图所示：

如何利用GTF追踪结果调试大型机？