Mainframe is Back » JCL http://www.ibmmainframe.cn Everything about Mainframe: 中文大型机资讯网 Sun, 25 Sep 2011 16:32:00 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 【原创下载】JCL实用指南V2.00 http://www.ibmmainframe.cn/2011/06/%e3%80%90%e5%8e%9f%e5%88%9b%e4%b8%8b%e8%bd%bd%e3%80%91jcl%e5%ae%9e%e7%94%a8%e6%8c%87%e5%8d%97v2-00/ http://www.ibmmainframe.cn/2011/06/%e3%80%90%e5%8e%9f%e5%88%9b%e4%b8%8b%e8%bd%bd%e3%80%91jcl%e5%ae%9e%e7%94%a8%e6%8c%87%e5%8d%97v2-00/#comments Sat, 18 Jun 2011 04:22:41 +0000 MIB Admin http://www.ibmmainframe.cn/?p=819

在建党90周年之际，特奉上重大更新之JCL实用指南V2.00

DSE101 JCL Handbook (7194)

更新内容如下：

  1. Update – JCL5.1
  2. Add – 3.3.7创建RACF TSO ID
  3. Add - 3.4 SMPE 相关

在不久的将来，本站将提供全SOURCE JCL下载，以XMIT格式，可直接上传MF使用，敬请期待并时刻保持关注！

相关文章

]]> http://www.ibmmainframe.cn/2011/06/%e3%80%90%e5%8e%9f%e5%88%9b%e4%b8%8b%e8%bd%bd%e3%80%91jcl%e5%ae%9e%e7%94%a8%e6%8c%87%e5%8d%97v2-00/feed/ 0 DSE 大型机实用指南系列第一弹 JCL Handbook http://www.ibmmainframe.cn/2010/05/dse101-jcl-handbook/ http://www.ibmmainframe.cn/2010/05/dse101-jcl-handbook/#comments Wed, 12 May 2010 16:03:27 +0000 MIB Admin http://www.ibmmainframe.cn/?p=447

欢迎下载与点评DSE101 JCL Handbook (7194)

已更新：

Global Update 多个PDS中的字符串

Batch执行RXX

TERSE等

相关文章

]]> http://www.ibmmainframe.cn/2010/05/dse101-jcl-handbook/feed/ 2 JCL Utility 之 IDCAMS删除Data Set(Deleting Cataloged Data Sets) http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/#comments Thu, 04 Dec 2008 03:05:59 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/   [ Read More ]]]>

IDCAMS Utility中，还提供了一个’DELETE’命令，用于删除Cataloged Data Set。在删除Data Set的同时，对Data Set进行uncatalog操作。’DELETE’可以操作的包括：

1. Sequential Data Set 2. Partitioned Data Set 3. Partitioned Data Set中的member

‘DELETE’命令的语法：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
  DELETE data-set-name
  DELETE data-set-name(member)
/*

 

删除Data Set的例子：

DELETE MIB.TEMP.DATA

删除member的例子：

DELETE MIB.PGM.LOAD(COMPIT)

PURGE:

在使用’DELETE’命令时，还可以使用’PURGE’参数。使用’DELETE’时，默认情况是’NOPURGE’。添加’PURGE’参数后，即不管现在Data Set的状态是什么，都进行删除操作。

使用’PURGE’参数删除的一个例子：

//SYSIN DD *

DELETE data-set-name -

PURGE

ERASE:

在使用’DELETE’命令时，还可以添加’ERASE’参数，即在删除Date Set之后，使用二进制的’0’来覆盖 Data Set所占用的磁盘空间。也就是所谓的完全删除。

使用’ ERASE’参数删除的一个例子：

//SYSIN DD *

DELETE data-set-name -

ERASE

即在删除’ data-set-name’后,’ data-set-name’所占用的DASD空间，会被二进制的’0’所覆盖。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/feed/ 0 JCL Utility 之 IDCAMS重命名Data Set(Renaming Data Sets) http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/#comments Thu, 04 Dec 2008 01:47:09 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/   [ Read More ]]]>

IDCAMS的另一个常用功能就是Data Set的重命名。Data Set的重命名使用’ALTER’命令来完成。’ALTER’可以重命名操作的Data Set，除了Sequential Data Set外,还可以操作Partitioned Data Set，以及对Partitioned Data Set中member的重命名。

使用’ALTER’命令重命名Data Set的语法:

ALTER old-data-set-name NEWNAME(new-data-set-name)

其中’ old-data-set-name’和’ new-data-set-name’既可以是’ Partitioned Data Set’，也可以是’ Sequential Data Set’。

使用’ALTER’命令重命名member的语法：

ALTER data-set-name(old-member) NEWNAME(data-set-name(new-member))

以下是一个在JCL中使用’ALTER’命令的例子：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ALTER MIB.TEMP.DATA NEWNAME(MIB.TEST.DATA)
ALTER MIB.PGM.LOAD(COMP) NEWNAME(MIB.PGM.LOAD(COMPIT))
/*

在以上的JCL中，分别将名为’MIB.TEMP.DATA’的Data Set重命名为了名为’ MIB.TEST.DATA’的Data Set。

在第二个’ALTER’命令中，将名为’ COMP’的member，重命名为了’ COMPIT’。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/feed/ 0 JCL Utility 之 IDCAMS输出Data Set http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/#comments Wed, 03 Dec 2008 09:48:53 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/   [ Read More ]]]>

IDCAMS的另一个实用功能就是输出Data Set中的记录。具体的JCL如下所示：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//ddname DD DSN=…
//*在DD段中定义要输出的Data Set
//SYSIN DD *
  PRINT -
  INFILE(ddname) -
  CHAR
/*

在以上的JCL的命令控制部分，除了INFILE的定义外，还添加了一个’CHAR’参数。’CHAR’参数用来控制输出记录的形式，’CHAR’表示以字符形式输出Data Set中的记录。除了’CHAR’之外，还有其他参数，如下表所示：

参数名称 参数功能
CHAR 此参数控制Data Set以字符形式输出
hexadecimal 此参数控制Data Set以16进制形式输出
DUMP 此参数控制Data Set同时以字符和16进制形式输出

下面是一个以16进制输出Data Set的语句：

PRINT INFILE(DDIN) HEX

COUNT和SKIP参数在输出Data Set中，依然可以使用，用于控制输出Data Set的记录。如下面的JCL例子，输出
’DDIN’ Data Set的前100行记录，并且跳过前10行记录不输出：

PRINT INFILE(DDIN) HEX COUNT(100) SKIP(10)

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/feed/ 0 JCL Utility 之 IDCAMS复制数据集 http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/#comments Wed, 03 Dec 2008 09:15:36 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/   [ Read More ]]]>

IDCAMS这个utility主要功能是通过JCL来操作Data Set和VSAM文件的。以下JCL的一个STEP，就是IDCAMS常用的使用方法：

//stepname EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//*以上的SYSPRINT会把IDCAMS的信息都输出，输出到JOB LOG中
//ddname DD DSN=…
//*在以上的DD段中，有些JCL需要定义一个DD段，来定义输入Data Set。有些JCL需要定义两个DD段，在定义了
//*输入Data Set的同时，定义输出Data Set。
//SYSIN DD *
//*命令语句
/*

功能一：复制一个Sequential Data Set

使用REPRO命令来完成复制功能，该命令可以用于复制Sequential Data Set，或者复制Partitioned Data Set的member。具体复制方法如下面的JCL所示：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//in-ddname DD DSN=…
//out-ddname DD DSN=…
//SYSIN DD *
REPRO -
INFILE(in-ddname) -
OUTFILE(out-ddname)
/*

如上的JCL所示，上面的JCL用于复制两个Sequential Data Set。

另外，IDCAMS还提供了两个有趣的参数，使用这两个参数，可以有选择地复制Data Set中的记录。这两个参数分别是COUNT和 SKIP，可以在复制的时候添加。

COUNT参数的使用方法如下所示：

REPRO -
INFILE(in-ddname)-
OUTFILE(out-ddname) -
COUNT(n)

以上JCL添加了COUNT参数，在复制的过程中，会只复制 ‘in-ddname’的前n行记录。

SKIP参数的使用方法如下所示：

REPRO -
INFILE(in-ddname)-
OUTFILE(out-ddname) -
SKIP(n)

以上JCL添加了SKIP参数，在复制的过程中，在复制‘in-ddname’的时候，会跳过前n行记录，即不复制‘in-ddname’的前n行记录。

下面是一个COUNT和SKIP参数共同使用，来控制复制记录的例子：

REPRO INFILE(INDD) OUTFILE(OUTDD) COUNT(100) SKIP(4)

上面的JCL会复制INDD的前100行记录，并且略过前4行记录进行复制。复制后的结果会保存在OUTDD中。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/feed/ 0 [JCL Return Code]返回码SE37 http://www.ibmmainframe.cn/2008/09/jcl-return-code%e8%bf%94%e5%9b%9e%e7%a0%81se37/ http://www.ibmmainframe.cn/2008/09/jcl-return-code%e8%bf%94%e5%9b%9e%e7%a0%81se37/#comments Fri, 26 Sep 2008 02:12:56 +0000 Raymond http://www.ibmmainframe.cn/?p=387   [ Read More ]]]>

今天干活，跑一条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

ISPF compass

选择compress。压缩后，再次执行JCL，操作正常。

相关文章

]]> http://www.ibmmainframe.cn/2008/09/jcl-return-code%e8%bf%94%e5%9b%9e%e7%a0%81se37/feed/ 0 [JCL]JCL的续行问题 http://www.ibmmainframe.cn/2008/08/jcljcl%e7%9a%84%e7%bb%ad%e8%a1%8c%e9%97%ae%e9%a2%98/ http://www.ibmmainframe.cn/2008/08/jcljcl%e7%9a%84%e7%bb%ad%e8%a1%8c%e9%97%ae%e9%a2%98/#comments Wed, 20 Aug 2008 02:07:25 +0000 Raymond http://www.ibmmainframe.cn/?p=330

今天在JCL的续行问题上犯了一个小错误，在这share一下JCL中的续行问题。
JCL只允许在参数区和说明区有续行，当需要续行时，在当前行的第71列前必须将某个参数或某个子参数以及参数后的逗号写完整，且下一行第1、2列为“//”，第3列为空格，续行的内容只能从4~16列开始，如从16列后开始，将被认为是注释语句。下面是一个续行的例子：
//DATA DD DSN=SYS1.PARMLIB，
// DISP=OLD

相关文章

]]> http://www.ibmmainframe.cn/2008/08/jcljcl%e7%9a%84%e7%bb%ad%e8%a1%8c%e9%97%ae%e9%a2%98/feed/ 0 [TSO Command] 如何使用TSO命令列出Data Set中的所有Member http://www.ibmmainframe.cn/2008/04/tso-command-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8tso%e5%91%bd%e4%bb%a4%e5%88%97%e5%87%badata-set%e4%b8%ad%e7%9a%84%e6%89%80%e6%9c%89member/ http://www.ibmmainframe.cn/2008/04/tso-command-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8tso%e5%91%bd%e4%bb%a4%e5%88%97%e5%87%badata-set%e4%b8%ad%e7%9a%84%e6%89%80%e6%9c%89member/#comments Fri, 25 Apr 2008 09:47:15 +0000 Raymond http://www.ibmmainframe.cn/?p=305   [ Read More ]]]>

        查看数据集中的member相对来说，比较简单，使用TSO/ISPF中的3.4即可列出其中的member，但是当一个Data Set中member数非常多，并且我们想对这些member进行操作的时候，就不能使用这种手工的方式了。在这里，跟大家share一个TSO的命令： listd

listd的语法： listd ‘Data Set Name’ members (注：其中Data Set Name是你要显示member的那个Data Set)

下面，具一个实例跟大家分享一个这个命令：

JCL程序如下所示：

//LISTMEM  JOB ,’RAYMOND’,CLASS=A,MSGCLASS=H,
//             NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//* LIST MEMBERS OF DATA SET
//LISTMEM1 EXEC PGM=IKJEFT01,REGION=4096K
//SYSTSPRT DD   SYSOUT=*
//SYSUADS  DD   DSN=SYS1.UADS,DISP=SHR
//SYSLBC   DD   DSN=SYS1.BRODCAST,DISP=SHR
//SYSTSIN  DD   *
 LISTD ‘A.B.C’ MEMBERS
/*
//

这样就会对应列出Data Set (A.B.C)中的所有member 了。

相关文章

]]> http://www.ibmmainframe.cn/2008/04/tso-command-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8tso%e5%91%bd%e4%bb%a4%e5%88%97%e5%87%badata-set%e4%b8%ad%e7%9a%84%e6%89%80%e6%9c%89member/feed/ 0 JCLs about VSAM http://www.ibmmainframe.cn/2007/05/jcls-about-vsam/ http://www.ibmmainframe.cn/2007/05/jcls-about-vsam/#comments Wed, 09 May 2007 14:13:00 +0000 billrain http://www.ibmmainframe.cn/2007/05/09/jcls-about-vsam/   [ Read More ]]]>

1, How to delete and define a cluster?

首先确认要创建的CLUSTER不存在，然后DEFINE一个CLUSTER，包括DATA和INDEX
//step1 EXEC PGM=IDCAMS
//SYSIN DD *
“DELETE ID.DEMO.SAMPLE

“SET MAXCC=0

“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)
/*

注：“表示空格

相关文章

]]> http://www.ibmmainframe.cn/2007/05/jcls-about-vsam/feed/ 0 JCL about GDG http://www.ibmmainframe.cn/2007/01/jcl-about-gdg/ http://www.ibmmainframe.cn/2007/01/jcl-about-gdg/#comments Mon, 22 Jan 2007 14:01:00 +0000 billrain http://www.ibmmainframe.cn/2007/01/22/jcl-about-gdg/   [ Read More ]]]>

1. 创建一个GDG，包括base和model:

//STEP1 EXEC PGM=IDCAMS
//GDGMODEL DD DSN=ST023.TEST.GDGMDL,

DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(0)),
DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)

//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),

DISP=(NEW,CATLG,DELETE), SPACE=(TRK,(5,5)),
DCB=ST023.TEST.GDGMDL

//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
/*

相关文章

]]> http://www.ibmmainframe.cn/2007/01/jcl-about-gdg/feed/ 0