[JCL Return Code]返回码SE37
今天干活，跑一条JCL，遇到了一个SE37的返回码。觉得这个返回码大家应该经常能遇到，所以就拿到这里来跟大家share一下。
问题描述：
出现问题的step那部分JCL功能很简单，就是把一个PDS中的member复制到另一个PDS中去。所以就不附加JCL了。我执行JCL之后，系统给的提示是：
12.50.28 JOB00348 -JOB Name STEP2 *SE37 71 .00 .00 .0 7095 1 0 0 0 0
在JOB LOG中，除了这个信息外，没有其他的信息。于是在IBM Library中查找返回码的信息，得到的结果是：
E37
Explanation: The error occurred when an output operation was requested. The data set was on a direct access or magnetic tape device. This system completion code is accompanied by message IEC032I. Refer to the explanation of message IEC032I for complete information about the task that was ended and for an explanation of the return code (rc in the message text) in register 15.
根据上面的解释，问题是输出文件用的PDS空间不够所导致的。
问题解决：
可以考虑重新建立一个空间更大的PDS，但是更简单的方式是对现有的PDS进行压缩。具体操作在ISPF 3.4中，如下图所示：
ISPF compass
选择compress。压缩后，再次执行JCL，操作正常。
[JCL]JCL的续行问题
今天在JCL的续行问题上犯了一个小错误，在这share一下JCL中的续行问题。
JCL只允许在参数区和说明区有续行，当需要续行时，在当前行的第71列前必须将某个参数或某个子参数以及参数后的逗号写完整，且下一行第1、2列为“//”，第3列为空格，续行的内容只能从4~16列开始，如从16列后开始，将被认为是注释语句。下面是一个续行的例子：
//DATA DD DSN=SYS1.PARMLIB，
// DISP=OLD
JCLs about VSAM
1, How to delete and define a cluster?
首先确认要创建的CLUSTER不存在，然后DEFINE一个CLUSTER，包括DATA和INDEX
//step1 EXEC PGM=IDCAMS
//SYSIN DD *
“DELETE ID.DEMO.SAMPLE
“DEFINE CLUSTER (NAME(ID.NAME.NAME) -
“ “VOL(ID) –
“ “IXD KEYS(06 0) -
“ “RECSE(80 80)
“…
“ “DATA (NAME(ID.NAME.DATA) -
“…
“ “INDEX (NAME(ID.NAME.INDEX) -
/*
2, How to use REPRO and PRINT?
REPRO 用于讲一个FLAT FILE的DS的内容拷贝到一个VSAM DS里
PRINT 用于在SDSF里面查看一个VSAM文件的内容，因为一个VSAM是不能直接浏览的
//step2 EXEC PGM=IDCAMS
//IN1 DD DSN=ORININAL,DISP= –目标文件–
//OUT1 DD DSN=*.DEMO.SAPMLE,DISP=SHR –VSAM文件–
//SYSIN DD *
“REPRO INFILE(IN1) -
““““`OUTFILE(OUT1)
“PRINT INFILE(OUT1) -
““““`CHARACTER
/*
3, How to use VERIFY?
用于检查一个VSAM文件的完整性
//SYSIN DD *
“VERIFY DATASET(*.DEMO.SAMPLE)
/*
注：“表示空格
JCL about GDG
1. 创建一个GDG，包括base和model:
//STEP1 EXEC PGM=IDCAMS
//GDGMODEL DD DSN=ST023.TEST.GDGMDL,
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG (NAME(ST023.TEST.GDG) LIMIT(100) –THIS IS GDG BASE!–
/*
2. 在GDG中创建DS：
//STEP2 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=ST023.TEST.ORIGINAL,DISP=SHR
//SYSUT1 DD DSN=ST023.TEST.GDG(+1),
//SYSPRINT DD SYSOUT=*
3. 删除GDG，删除其中的DS先：
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ST023.TEST.GDG.*
DELETE ST023.TEST.GDGMDL
/*
//STEP4 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ST023.TEST.GDG GDG
/*
Null Statement
Null Statement
Null Statement Format
The last statement in a job is a null statement. It has slashes in positions 1 and 2 and blanks in positions 3 through 80.
Format:
//
联络订阅
