JCL作业模板

IBM南昌实训上机报告
二00七年十二月十四日
课程名称：大型机实验名称：实践三：JCL
班组：大型机一班A组姓名：吴以林（A2）
主机：192.168.13.2：3271 用户：192.168.13.4 CN0002
索引
一、作业过程中产生的主要问题 ........................................................................ 错误！未定义书签。

二、作业正常过程及详细步骤............................................................................ 错误！未定义书签。

任务一：生成PDS或SDS ......................................................错误！未定义书签。

1.1：生成SDS：..................................................................... 错误！未定义书签。

1.2：建立PDS ........................................................................ 错误！未定义书签。

任务二：流内PROC和CATLOG PROC ...................................错误！未定义书签。

2.1、流内过程（Instream procedure）调用：......................... 错误！未定义书签。

2.2、编目过程（cataloged procedures）调用......................... 错误！未定义书签。

任务三：使用COND，至少给出3种MAXCC情况的输出结果.....错误！未定义书签。

3.1：SET MAXCC=8，COND=(4,LT,STEP1)结果MAXCC=8: . 错误！未定义书签。

3.2SET MAXCC=0，COND=(4,GT,STEP1),最终MAXCC=0.错误！未定义书签。

3.3SET MAXCC=4,COND=(4,NE,STEP1)使得MAXCC=4 .. 错误！未定义书签。

任务四、生成GDG .................................................................错误！未定义书签。

任务五：使用SORT ...............................................................错误！未定义书签。

任务六：使用COND ..............................................................错误！未定义书签。

任务七：使用IEBCOPY ..........................................................错误！未定义书签。

三、个人总结与心得............................................................................................ 错误！未定义书签。

一、作业过程中产生的主要问题
○1．MAXCC的理解．现理解为maximum cond code表最大返回码．系统默认为０（正常）＼４（警告）＼８（错误）＼１６（严重错误）；
○2．在任务四ＧＤＧ生成过程中，SYSOUT和SYSPRINT的使用错误很隐蔽，在此问题上花费了大量时间，后在老师指导和查看IDCAMS相关ＤＤ语句使用后解决；
○3．在任务七使用IEBCOPY过程中，将目标设为了SDS,导致ＳＤＳ被破坏，返回码虽为0,但结果却没成功，将DSN=CN0002.WYL.COPYOUT设为PDS,操作成功。

二、作业正常过程及详细步骤
任务一：生成PDS或SDS
1.1：生成SDS：
1.1.1编辑好JCL语句，建立起JOB，并进行提交：
1.1.2。

在命令行中输入TSOＳＤＳＦＳＴ查看信息，用？对作业进行选择，键入Ｓ查看详细信息：
返回码为００００，说明成功执行。

其他信息：
1.1.3。

对SDS 进行编辑，验证结果：
1.2：建立PDS
1.2.1。

编辑ＪＣＬ语句，并提交ＪＯＢ：
1.2.3。

对建立的PDS ，进行编辑，验证其是否能正常使用：
任务二：流内PROC和CATLOG PROC
2.1、流内过程（Instream procedure）调用：2.1.1编辑作业，进行提交：
修改DSN为已存在的DS，详细如下：
2.1.2通过主菜单，TSO SDSF ST查看信息，如下可知成功
2.1.3由上可知，Executing code 要置于Instream procedure 之后。

2.2、编目过程（cataloged procedures ）调用
2.1.1建立所编目的过程，将其置于一个PDS 下，在调用过程中，此PDS 将作为一个Lib ，
以供作业访问。

cataloged procedures顺序数据集以cataloged procedures名作为其文件名：
2.2.2。

编辑好JOB语句，指明所要调用的cataloged procedures的PDS的位置，以供系统搜索到所需要的cataloged procedures。

2.2.3。

将JOB文件提交处理：
2.2.4。

用TSO SDSF ST查看作业处理信息：
2.2.5。

由下信息可知，返回码为0000，作业成功处理：
2.2.6。

验证作业的执行情况，由下可知作业实现了其功能：
任务三：使用COND，至少给出3种MAXCC情况的输出结果
3.1：SET MAXCC=8 COND=(4,LT,STEP1)结果：执行第一步，依据COND使用第二步不执行，不建立文件。

最终MAXCC=8: 3.1.1编辑ＪＣＬ提交作业：
3.1.2按CTRL可看到MAXCC=8
3.1.3查看详细情况：符合猜想。

3.2 SET MAXX=0 COND=(4,GT,STEP1),让其执行STEP2,最终MAXCC=0.
3.2.1编辑ＪＣＬ提交作业：
3.2.2按CTRL可看到MAXCC=0
3.2.3查看详细情况：由下可知，符合猜想：
3.３SET MAXX=4,COND=(4,NE,STEP1)使得STEP2执行，MAXCC=4
3.3.1编辑ＪＣＬ提交作业：
3.3.2按CTRL可看到MAXCC=4
3.3.3查看详细情况：由下可知，符合猜想：
任务四、生成GDG
4.2。

用TSO SDSFＳＴ查看ＪＯＢ执行信息：
4.3。

由上可知，返回码为０，执行成功，现在来查看验证：
任务五：使用SORT
5.1。

先生成两个SDS以供操作，SORTIN中有待排序的内容，SORTOUT内容为空：
5.3。

查看作业状态，进行检查：
5.4。

返回码显示，执行成功，现在验证结果：
5.5。

分析：SORT FORMA T=CH,FIELDS=(1,3,A,4,2,D)即以字符格式排列，主规则是从第一个字节开始，头三个字节以升序排列。

如果主规则遇到情况相同，则从第4个字节开始以长度为2的规则进行排列。

任务六：使用COND
6.2按CTRL可看到MAXCC=8
6.3查看详细情况：符合猜想。

6.4。

分析：
４确实小于8，所以第二步没有被执行。

所以其ＭＡＸＣＣ＝８。

任务七：使用IEBCOPY
7.1。

建立COPY所需文件：
7.3。

查看作业信息：
7.4。

验证结果，查看目标文件状态：
○1在建立ＳDS和PDS过程中，主要的设置在space的设置上。

在目录空间的分配上;流内PROC和CATLOG PROC它们都在先存在的条件下进行调用；
○2在JCL中，流内PROC一定要先声明定后，才能被其后的EXEC语句调用，而CATLOG PROC的调用，先要让ＪＥＳ搜索到被调用的CATLOG PROC；
○3COND用于对先前作业步执行的返回码（return code）进行测试，以决定是否执行本作业步。

它不会异常中止，只会产生跳过作业步，MAXCC个人理解为MAC COND CODE最大返回码。

系统默认为０（正常）＼４（警告）＼８（错误）＼１６（严重错误）；
○4ＧDG中存在绝对和相对世代编号，在编程中，使用相对世代编号。

０为当前世代编号，＋１为下一代，－１为上一代；
○5常用实用程序：IEBGENER 程序用来建立数据集；DFSORT 程序用于数据排序，SORT 排序的关键在其规则FIELDS的设置上，IEBCOPY 程序用于拷贝或合并多个分区数据集或
扩展分区数据集，IEBCOPY操作对象可以用COPY命令进行指定。