IBM大型机

终于回到武汉，谢谢大家在这几天在我不在德时候对对我的帮助，非常的感谢。

王路今天去北京面试，再此祝他一路顺风、旅途愉快！

今天去中科院软件所面试，呵呵，希望那地方能带给好运。
该看的东西还没有看完，觉得过程挺麻烦的，而且时间特别紧，所有的事情一天全部搞定，包括体检，英语，笔试，面试，上机。还是有些紧张的，呵呵。

今天是国耻日，昨天和邢彬还有其他同学特意去露天电影院看了“东京审判“。感触还是蛮大的。
第一当时的中国虽然抗战胜利了，但是国际地位还是特别的低。第二对中国当时的外交官，法官，检查人员特别的佩服和敬仰，是他们用自己的行动，为中国人争会来本来属于我们的东西。
对电影的描写手法也觉得特别的新颖，以一个日本家庭为背景，反映了当时日本社会的状况。不过觉得曾志伟在里面演一名日本兵觉得怪怪的。可能是受他拍的“无间道“等电影的影响吧。

     感觉好多天都没写博客了，开学了，的确挺忙的，先是课外劳动一周，接着就是两周的课程设计，好多事情要作啊，大机方面的事情就耽误了一下。博客现在也不热闹了，王路还时不时说一下。昨天大家商量了一下本周的事情，争取在月底把作的工作都联系起来，有的文档也要写的。大家努力啊！

今天早上我们几个人做了个简短的讨论，商议了一下这个月我们的任务。
正如以前说的开学了，大家都很忙，考研，学业。。。。。。压力都很大的。大家肯定大部分精力是不会放在比赛上了。但是我们一定能坚持到最后的，将系统完成，写个perfect presentation。

开学差不多两个星期了，我们的blog，变的不是那么热闹了。大家现在都很忙，都很紧。学校的课程还很多，我们的比赛的东西还远没有弄好。最近两周我们有很多的课程设计要做。
这个星期周末我们将对九月份下半期的一些竞赛的事项安排一下，便于以后事情的开展。不管多么忙，我们一定会尽最大的努力，将我们的竞赛进行到底。
到了十月份，我们用于竞赛的时间，将进一步缩水，因为到那时将进入考研准备的最后阶段了，又有学校课程学业的压力，大家到时将忙的更加不可开交的，所以虽然九月份还只有一半，我们一定要对大机竞赛多做些事情的。

劳动了几天了，每天跑到主校区去搞学校环境，其实没多少活的，但是还是觉得挺累的。大四了，同学们都在为将来做准备，考研的，找工作的，一批一批的，各人志向不同，都有自己的生活，祝愿大家过好现在的每一天。晚上整理一下文档，还有许多事情要做……

目前在金融计算领域，核心计算机系统大多使用运行ＯＳ/３９０操作系统的ＩＢＭ系列大型机，而ＯＳ/３９０环境下最重要的子系统便是ＪＥＳＪｏｂ Ｅｎｔｒｙ Ｓｕｂｓｙｓｔｅｍ，作业登录子系统，系统中所有作业的调度、输入输出信息等均是通过ＪＥＳ进行管理的。ＪＥＳ的优点是效率高、灵活性强，缺点则是过于专业化。因此，使ＪＥＳ实现可编程化，就成为所有需要进行ＪＥＳ操作的应用核心问题。从传统上讲，这需要使用汇编语言编写ＪＥＳ Ｅｘｉｔ等方式去改变ＪＥＳ的运作，同时提供相应的应用程序编程接口ＡＰＩ，Ａｐｐｌｉｃａｔｉｏｎ Ｐｒｏｇｒａｍｍｉｎｇ Ｉｎｔｅｒｆａｃｅ。但这种做法不仅工程浩大，同时还由于涉及ＯＳ/３９０核心子模块的修改，可能使得ＪＥＳ无法运作，甚至导致整个主机系统瘫痪。因此，许多相关的应用便由于遇到ＪＥＳ信息采集的难题而半途而废。对此，本文介绍一种采用高级语言ＲＥＸＸ，通过调用ＳＤＳＦＳｙｓｔｅｍ Ｄｉｓｐｌａｙ ａｎｄ Ｓｅａｒｃｈ Ｆａｃｉｌｉｔｙ，系统显示和搜索工具）服务程序实现ＪＥＳ信息采集的方法。
_ueditor_page_break_tag_
一、关于ＲＥＸＸ ｆｏｒ ＯＳ/３９０
ＲＥＸＸ（ＲＥｓｔｒｕｃｔｕｒｅｄ ｅＸｔｅｎｄｅｄ ｅＸｅｃｕｔｏｒ，重构扩展执行语言）是一种高级语言，是一种类似ＰＬ/Ｉ的通用编程语言，它包含常用的ＩＦ、ＳＥＬＥＣＴ、ＤＯ ＷＨＩＬＥ、 ＬＥＡＶＥ等语句以及若干内置函数，尤其适合编制命令过程、用户自定义宏、个人计算以及应用程序的原型。就ＲＥＸＸ ｆｏｒ ＯＳ/３９０而言，语言本身除提供了如数值计算、字符处理、流程控制等功能外，还提供了调用其他运行于ＯＳ/３９０环境下的程序的功能。正是由于这种调用功能的存在，便产生了以可编程方式执行包括可访问ＪＥＳ在内的ＳＤＳＦ等程序的可能性。

二、关于ＳＤＳＦ
ＳＤＳＦ在ＯＳ/３９０中是一个标配的用于访问ＪＥＳ的工具，通常我们在主画面的面板中可以看到调用它的途径。通过ＳＤＳＦ，用户可以查看并处理ＪＥＳ中各种队列（输入、输出等）中的作业，配置打印机以及实现控制Ｉｎｉｔｉａｔｏｒ等功能。用户通常需要采集位于输出队列中的作业的输出结果，而通过ＳＤＳＦ，用户可以看到一个作业的状态是尚未运行、正在运行还是运行完成。一旦运行完成或作业出现错误而中断，由用户作业写出的或者系统给出的相关信息，都将记录在ＳＹＳＰＲＩＮＴ、ＳＹＳＯＵＴ等输出段中供用户察看。

三、ＪＥＳ信息采集的具体实现
以下从应用层的角度，介绍ＲＥＸＸ是如何调用ＳＤＳＦ服务程序与ＪＥＳ实现交互的。

１．调用语句及调用参数
要使用ＲＥＸＸ进行程序的调用，需要用到相应的ＬＩＮＫＰＧＭ命令，调用格式为ＡＤＤＲＥＳＳ ＬＩＮＫＰＧＭ“程序名参数”，例如：
ＡＤＤＲＥＳＳ ＬＩＮＫＰＧＭ ″ＳＤＳＦ ＰＡＲＭ″
本语句说明需要调用名为ＳＤＳＦ的程序，并且需要带入参数，参数的内容放在ＰＡＲＭ变量中。相应的程序需要位于系统默认搜索的可执行程序库中，否则将返回无效环境或程序错误。由于调用的是ＳＤＳＦ程序，根据其要求，应该带入的参数为输出虚拟屏幕的行数以及列数，例如：
ＰＡＲＭ１＝ ″/＋＋２０５００″
该语句说明在调用时希望将输出的虚拟屏幕设置为２０（行）×５００（列）的格式。

２．被调用的程序
可以调用的程序为ＩＳＦＡＦＤ或ＳＤＳＦ，两者功能类似，但有少许不同。ＳＤＳＦ是传统的访问ＪＥＳ的程序而ＩＳＦＡＦＤ较ＳＤＳＦ而言，有以下特点：
（１）命令字符不需要以成功的ＦＩＮＤ为前提；
（２）支持功能键（ＰＦ Ｋｅｙｓ）；
（３）输出结果必须用ＡＦＤ ＲＥＦＲＥＳＨ命令刷新；
（４）可以输出在使用ＳＤＳＦ情况下被解释后输出的属性字节（例如某个数入场的颜色、输入条件等）；
（５）支持以/为开头/为结尾的注释。
具体是使用ＳＤＳＦ还是ＩＳＦＡＦＤ，由用户根据自身的需要进行选择。对于初次以程序调用方式访问ＪＥＳ的用户而言，建议采用ＳＤＳＦ，因为ＳＤＳＦ的输出与用户在ＴＳＯ/Ｅ画面中得到的结果是完全一致的。

３．输入输出
ＳＤＳＦ程序的运行，除了指定虚拟屏幕大小参数以外，还需要预先申明ＩＳＦＩＮ和ＩＳＦＯＵＴ这两个文件。
（１）输入文件ＩＳＦＩＮ
作为ＳＤＳＦ的输入，该文件主要用来存放模拟用户实际使用ＳＤＳＦ环境时输入的各种命令的列表。例如，在ＳＤＳＦ中需要输入“ｏｗｎｅｒ ｕｓｅｒ００１”再限制只输出以ｊｏｂ开头的作业“ｐｒｅ ｊｏｂ”，输入文件中包括这两行内容即可。同时，需要在ＲＥＸＸ中使用ＡＬＬＯＣ指令说明该输入文件，具体语句格式如：
″ＡＬＬＯＣ ＤＤＩＳＦＩＮＮＥＷ ＲＥＵＳＥ ＵＮＩＴ３３９０″，
″ＲＥＣＦＭＦＢ ＬＲＥＣＬ８０ ＢＬＫＳＩＺＥ２７９２０ ＳＰＡＣＥ１ ＴＲＡＣＫＳ″
语句中需要注意的是文件记录的格式应该设置为ＲＥＣＦＭＦＢ，即定长块的格式；同时设置记录长度为ＬＲＥＣＬ８０，即每行８０个字符。
（２）输出文件ＩＳＦＯＵＴ
作为ＳＤＳＦ的输出，该文件主要用来存放使用ＳＤＳＦ时输出的虚拟屏幕的内容。例如，由ＳＤＳＦ输出一个标准的ＳＤＳＦ屏幕，则输出到ＩＳＦＯＵＴ文件当中的内容也就是用户直接使用ＳＤＳＦ所看到的内容。和输入文件一样，在ＲＥＸＸ中也需要使用ＡＬＬＯＣ指令说明该输出文件，具体语句格式如下例：
″ＡＬＬＯＣ ＤＤＩＳＦＯＵＴ ＮＥＷ ＲＥＵＳＥ ＵＮＩＴ３３９０″
″ＲＥＣＦＭＦＢＡ ＬＲＥＣＬ３０１ ＢＬＫＳＩＺＥ２７９９３ ＳＰＡＣＥ１ ＣＹＬ″      
语句中需要注意的是文件记录的格式应该设置为ＲＥＣＦＭＦ，Ｂ，Ａ，即定长块、包含打印控制符的格式；同时设置记录长度为ＬＲＥＣＬ３０１，即每行输出３０１个字符（根据输出的最长行的大小决定）。另外，如果在调用ＳＤＳＦ时带入的虚拟屏幕尺寸参数小于输出文件中定义的值时，输出文件的内容将自动换行，导致内容错位。

４．ＡＰＩ的封装
为给ＲＥＸＸ语言提供编程接口，用户可以直接通过编制ＲＥＸＸ代码，形成函数或子程序，供其他模块调用。模块化是ＡＰＩ实现的推荐方式，一个相对独立的功能可以封装为一个单独的ＲＥＸＸ子程序，存在于程序库中，随时被上级模块调用并返回其执行的结果。一个模块或子程序实现一个特定的功能，这样的逻辑思路以及所实现的功能都相当清晰，便于调用者进行操作以及对可能的后续模块功能进行修正等。

５．应用实例
通过ＳＤＳＦ采集作业运行时间，实例中包含总控模块部分代码、ＧＥＴＩＮＦＯ、ＧＥＴＲＴＩＭＥ模块以及执行总控模块的ＪＣＬ语句。
（１）总控模块
总控模块从参数文件中取得需要在ＪＥＳ输出队列中察看执行时间的作业名，交给ＧＥＴＩＮＦＯ模块，从而得到相关该作业的ＪＯＢＩＤ、进入系统日期时间、结束日期时间、返回码等信息。通过ＰＡＲＳＥ ＶＡＲ语句将各种信息分别赋值到相应变量中等待处理，并完成显示或记录到文件等必要的操作。
核心代码如下：
Ｒ＝ＧＥＴＩＮＦＯＪＯＢＮＡＭＥ /*调用GETINFO模块*/
PARSE ＶＡＲ Ｒ ＪＯＢＮＡＭＥ１ ＪＯＢＩＤ ＲＤＴＩＭＥ ＲＤＤＡＴＥ ＥＮＤＴＩＭＥ ＥＮＤＤＡＴＥ ＭＡＸＲＣ
（２）ＧＥＴＩＮＦＯ模块
本模块实现访问ＳＤＳＦ并返回某作业名在队列中最后一次运行后产生的ＪＯＢＩＤ、进入系统日期时间、结束日期时间、返回码等信息。模块中分配了ＩＳＦＩＮ、ＩＳＦＯＵＴ，并采用直接将ＱＵＥＵＥ中的内容写入ＩＳＦＩＮ的方式。
/*REXX /
ＰＡＲＳＥ ＡＲＧ ＪＯＢＮＡＭＥ  /*取得作业名作为参数*/
DO ＷＨＩＬＥ ＬＥＮＧＴＨＪＯＢＮＡＭＥ＜８ＪＯＢＮＡＭＥ＝ＪＯＢＮＡＭＥ｜｜″ ″ＥＮＤ              
ＱＵＥＵＥ ″ＳＴ″
ＱＵＥＵＥ ″ＰＲＥ ″    
ＱＵＥＵＥ ″ＯＷＮＥＲ ″
ＱＵＥＵＥ ″﹖″
ＱＵＥＵＥ ″Ｆ ＇″ＪＯＢＮＡＭＥ″＇ ＬＡＳＴ″
ＱＵＥＵＥ ″″ /*ＱＵＥＵＥ的结束*/
 ″ＡＬＬＯＣ ＤＤＩＳＦＩＮ  ＮＥＷ ＲＥＵＳＥ ＵＮＩＴ３３９０″
″ＲＥＣＦＭＦＢ ＬＲＥＣＬ８０ ＢＬＫＳＩＺＥ２７９２０ ＳＰＡＣＥ１ ＴＲＡＣＫＳ″      
″ＡＬＬＯＣ ＤＤＩＳＦＯＵＴ ＮＥＷ ＲＥＵＳＥ ＵＮＩＴ３３９０″
″ＲＥＣＦＭＦＢＡ ＬＲＥＣＬ３０１ ＢＬＫＳＩＺＥ２７９９３ ＳＰＡＣＥ１ ＣＹＬ″      
″ＥＸＥＣＩＯ  ＤＩＳＫＷ ＩＳＦＩＮ ＦＩＮＩＳ″
/将ＱＵＥＵＥ中内容写入ＩＳＦＩＮ /
ＰＡＲＭ１＝ ″ / ＋＋２０５００″    /设置虚拟屏幕大小/
ＡＤＤＲＥＳＳ ＬＩＮＫＰＧＭ ″ＳＤＳＦ ＰＡＲＭ１″  
/*调用SDSF*/
"ＥＸＥＣＩＯ  ＤＩＳＫＲ ＩＳＦＯＵＴＳＴＥＭ ＴＭＰＬＩＮＥ． ＦＩＮＩＳ″  
/*将ＩＳＦＯＵＴ读到数组中以备处理*/
FREE ＤＤＩＳＦＩＮＩＳＦＯＵＴ″
ＬＩＮＥ１＝１０３ＬＩＮＥ２＝１０４ /*这个值与ＰＡＲＭ值有关*/
LENJOBID=8;LENMAXRC=10;LENRDTIME=8;LENRDDATE=8;LENENDTIME=8  
ＬＥＮＥＮＤＤＡＴＥ＝８ＬＥＮＪＯＢＮＡＭＥ＝８
ＰＯＳＪＯＢＮＡＭＥ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＪＯＢＮＡＭＥ″
/*取得作业名列*/
ＰＯＳＪＯＢＩＤ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＪＯＢＩＤ″)
/*取得ＪＯＢＩＤ列*/
ＰＯＳＭＡＸＲＣ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＭＡＸ－ＲＣ″
/*取得返回码列*/
ＰＯＳＲＤＴＩＭＥ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＲＤ－ＴＩＭＥ″)
/*取入系统时间列*/
POSRDDATE=INDEX(TMPLINE.LINE1,"RD-DATE")
/*取入系统日期列*/
ＰＯＳＥＮＤＴＩＭＥ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＥＮＤ－ＴＩＭＥ″)
/*取结束时间列*/
ＰＯＳＥＮＤＤＡＴＥ＝ＩＮＤＥＸＴＭＰＬＩＮＥ．ＬＩＮＥ１″ＥＮＤ－ＤＡＴＥ″)
/*取结束日期列*/
ＲＤＴＩＭＥ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＲＤＴＩＭＥＬＥＮＲＤＴＩＭＥ      
ＩＦ ＬＥＮＧＴＨＲＤＴＩＭＥ＝７ＴＨＥＮ ＲＤＴＩＭＥ＝″０″｜｜ＲＤＴＩＭＥ                    ＲＤＤＡＴＥ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＲＤＤＡＴＥＬＥＮＲＤＤＡＴＥ      
ＥＮＤＴＩＭＥ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＥＮＤＴＩＭＥＬＥＮＥＮＤＴＩＭＥ    
ＩＦ ＬＥＮＧＴＨＥＮＤＴＩＭＥ＝７ ＴＨＥＮ ＥＮＤＴＩＭＥ＝″０″｜｜ＥＮＤＴＩＭＥ                
ＥＮＤＤＡＴＥ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＥＮＤＤＡＴＥＬＥＮＥＮＤＤＡＴＥ    
ＭＡＸＲＣ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＭＡＸＲＣＬＥＮＭＡＸＲＣ      
ＪＯＢＩＤ＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＪＯＢＩＤＬＥＮＪＯＢＩＤ      
ＪＯＢＮＡＭＥ１＝ＳＴＲＩＰＳＵＢＳＴＲＴＭＰＬＩＮＥ．ＬＩＮＥ２ＰＯＳＪＯＢＮＡＭＥＬＥＮＪＯＢＮＡＭＥ
/*根据各个列位置以及长度,取出相应的值*/
Ａ＝ＪＯＢＮＡＭＥ１ ＪＯＢＩＤ ＲＤＴＩＭＥ ＲＤＤＡＴＥ ＥＮＤＴＩＭＥ ＥＮＤＤＡＴＥ ＭＡＸＲＣ      
ＲＥＴＵＲＮ Ａ /*返回总控模块*/
本模块为实际执行ＳＤＳＦ的模块，从应用级实现了通过ＲＥＸＸ采集ＪＥＳ信息的目的，通过对ＱＵＥＵＥ内容进行编程，可以实现对ＪＥＳ的可编程化访问。
（３）执行时间计算模块ＲＸＧＲＴＩＭＥ
/* ＲＥＸＸ /
/* ｔｈｉｓ ｒｏｕｔｉｎｅ ｒｅｔｕｒｎｓ ｔｈｅ ｅｘｅｔｉｍｅ ｏｆ ａ ｊｏｂ /
/* ｉｎ ｔｈｅ ｆｏｒｍａｔ ｏｆ ｄａｙｓｈｏｕｒｓｍｉｎｕｔｅｓｓｅｃｏｎｄｓ /
PARSE ＡＲＧ ｒｄｄａｔｅ ｒｄｔｉｍｅ ｅｎｄｄａｔｅ ｅｎｄｔｉｍｅ                                 ｉｆ ｒｄｄａｔｅ＝″″ ｜ ｒｄｔｉｍｅ＝″″ ｜ ｅｎｄｄａｔｅ＝″″ ｜ ｅｎｄｔｉｍｅ＝″″ ｔｈｅｎ ｒｅｔｕｒｎ ″ＥＲＲＯＲ″
ｉｆ ｒｄｄａｔｅ＞ｅｎｄｄａｔｅ ｜ ｒｄｄａｔｅ＝ｅｎｄｄａｔｅ ＆ ｒｄｔｉｍｅ＞ｅｎｄｔｉｍｅ ｔｈｅｎ ｄｏ            
ｒｅｔｕｒｎ ″ＵＮＫＮＯＷＮ″
ｅｎｄ                                                                     ｉｆ ｌｅｎｇｔｈｒｄｔｉｍｅ＝７ｔｈｅｎ ｒｄｔｉｍｅ＝″０″｜｜ｒｄｔｉｍｅ                             ｉｆ ｌｅｎｇｔｈｅｎｄｔｉｍｅ＝７ ｔｈｅｎ ｅｎｄｔｉｍｅ＝″０″｜｜ｅｎｄｔｉｍｅ
ｙ１＝ｓｕｂｓｔｒｒｄｄａｔｅ３２
ｙ２＝ｓｕｂｓｔｒｅｎｄｄａｔｅ３２
ｄ１＝ｓｕｂｓｔｒｒｄｄａｔｅ６３
ｄ２＝ｓｕｂｓｔｒｅｎｄｄａｔｅ６３
    ｈ１＝ｓｕｂｓｔｒｒｄｔｉｍｅ１２
ｈ２＝ｓｕｂｓｔｒｅｎｄｔｉｍｅ１２
ｍ１＝ｓｕｂｓｔｒｒｄｔｉｍｅ４２
ｍ２＝ｓｕｂｓｔｒｅｎｄｔｉｍｅ４２
ｓ１＝ｓｕｂｓｔｒｒｄｔｉｍｅ７２
ｓ２＝ｓｕｂｓｔｒｅｎｄｔｉｍｅ７２
ｂａｓｅｄａｙ１＝ＤＡＴＥ＇Ｂ＇ｙ１｜｜ｄ１＇Ｊ＇
ｂａｓｅｄａｙ２＝ＤＡＴＥ＇Ｂ＇ｙ２｜｜ｄ２＇Ｊ＇
ｄａｙｓ＝ｂａｓｅｄａｙ２－ｂａｓｅｄａｙ１
ｈｏｕｒｓ＝ｄａｙｓ２４＋ｈ２－ｈ１
ｍｉｎｓ＝ｈｏｕｒｓ６０＋ｍ２－ｍ１
ｓｅｃｓ＝ｍｉｎｓ６０＋ｓ２－ｓ１
ｍｉｎｓ＝ｓｅｃｓ ％ ６０
ｈｏｕｒｓ＝ｍｉｎｓ ％ ６０
ｄａｙｓ＝ｈｏｕｒｓ％ ２４
ｈｏｕｒ１＝ｈｏｕｒｓ－２４ｄａｙｓ
ｍｉｎ１＝ｍｉｎｓ －６０ｈｏｕｒ１
ｓｅｃ１＝ｓｅｃｓ －６０ｍｉｎｓ
ｊｏｂｅｘｅｔｉｍｅ＝ｓｅｃ１″ ｓｅｃｏｎｄｓ″
ｉｆ ｍｉｎ１＞０ ｔｈｅｎ ｊｏｂｅｘｅｔｉｍｅ＝ｍｉｎ１″ ｍｉｎｕｔｅｓ ″｜｜ｊｏｂｅｘｅｔｉｍｅ                ｉｆ ｈｏｕｒ１＞０ ｔｈｅｎ ｊｏｂｅｘｅｔｉｍｅ＝ｈｏｕｒ１″ ｈｏｕｒｓ ″｜｜ｊｏｂｅｘｅｔｉｍｅ                ｉｆ ｄａｙｓ＞０ ｔｈｅｎ ｊｏｂｅｘｅｔｉｍｅ＝ｄａｙｓ″ ｄａｙｓ ″｜｜ｊｏｂｅｘｅｔｉｍｅ            ｒｅｔｕｒｎ ｊｏｂｅｘｅｔｉｍｅ  
需要注意的是，由于ＳＤＳＦ中返回的作业时间均为Ｊｕｌｉａｎ日期（如２００４．３６６代表２００４年１２月３１日），其他格式的日期要转换为Ｊｕｌｉａｎ日期，一致后才能进行相应的计算。具体的日期转换需要使用ＤＡＴＥ函数。
（４）执行以上ＲＥＸＸ程序的ＪＣＬ样例
//ＥＸＥＪＯＢ１  ＪＯＢ ＇ＡＣＣＯＵＮＴＤＥＰＴＢＬＤＧ＇＇ＰＲＯＧＲＡＭＭＥＲ ＮＡＭＥ＇        
//ＣＬＡＳＳ＝ＢＭＳＧＣＬＡＳＳ＝ＸＭＳＧＬＥＶＥＬ＝１１ＮＯＴＩＦＹ＝＆ＳＹＳＵＩＤ        
//ＲＵＮ ＥＸＥＣ ＰＧＭ＝ＩＫＪＥＦＴ０１ＤＹＮＡＭＮＢＲ＝３０ＲＥＧＩＯＮ＝６０Ｍ        
//ＳＹＳＥＸＥＣ ＤＤ ＤＳＮ＝ＲＥＸＸ所在库ＤＩＳＰ＝ＳＨＲ  
//ＳＹＳＴＳＰＲＴ ＤＤ ＳＹＳＯＵＴ＝
//ＳＹＳＴＳＩＮ  ＤＤ   *
%总控模块名称
/*
//
通过在ＯＳ/３９０环境中提交ＪＣＬ，可以执行总控模块，从而达到解析ＪＥＳ输出队列内容、统计作业运行时间的目的。

四、结束语
本文通过对ＲＥＸＸ、ＳＤＳＦ以及相关ＪＥＳ访问方式的简要描述，以一个采集作业运行时间的事件为例，介绍了从应用级进行ＪＥＳ可编程化及其信息采集的方法。希望以这种抛砖引玉的方式，使广大主机技术人员更积极地参与到金融计算系统的技术革新中，不断寻求新的思路，解决实际工作中遇到的难题，进一步提高我国金融计算系统的技术应用水平。

http://www.fcc.com.cn/magazine/shownews.asp?newsid=710

开学了。我们第一周劳动。以前总是看见学长们劳动，我总是想着还远着呢！可是how time flies ，现在轮到我们了。大四了！大学的最后一年。在这一年里面，我们要经历很多，又到了一个人生的转折的地方。好多人都想着考研。我们有个同学成绩很好，他说他要去找工作，很多人会吃惊的说一句：“你找工作！”其实我觉得这个没什么好奇怪的，每个人都有自己的想法，自己认为正确的路。只要认认真真地坚持不懈的走下去，一定会达到预期的目的。
这几天我们在忙劳动，用在比赛的时间可以说很少，接下来的时间我们的事情还很多，要继续将系统完成，完成文档。。。。。。