没有合适的资源？快使用搜索试试~ 我知道了~

首页JCL Coding Examples

JCL Coding Examples

4星 · 超过85%的资源需积分: 9 29 下载量 102 浏览量更新于2023-03-03 评论收藏 211KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

试读

64页

70页的JCL实例，不仅可以全面了解JCL的语法，更包括了编译COBOL，MAP，CICS，DB2，汇编等IBM大型机上程序的实例。使你可以全面了解IBM大型机上JCL的广泛使用。

资源详情

资源评论

资源推荐

raw.doc 1

Chapter 4

The basics of Job Control Language

Figure 4-5

JOB statement examples

//PAY40B1 JOB MMA2AB14

//PAY40B2 JOB (MMA-001,'06/11/02',206),MENENDEZ,MSGCLASS=A

//PAY40B3 JOB ,MENENDEZ,MSGCLASS=A

//PAY40B4 JOB MSGCLASS=A,MSGLEVEL=(0,0),NOTIFY=MM01

A member named JOBCARD that contains a generic JOB statement

//MM01XXXX JOB 36512,'R MENENDEZ',

// MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=MM01

Figure 4-7

Five JOB statements that use the programmer name parameter

//MM01A JOB 36512,RMENENDEZ

//MM01B JOB ,R.MENENDEZ

//MM01C JOB ,'R MENENDEZ'

//MM01D JOB 36512,'O''Brien'

//MM01E JOB ,DEPT-10

Two ways to code the NOTIFY parameter

//MM01A JOB 36512,LOWE,NOTIFY=MM01

//MM01B JOB 36512,LOWE,NOTIFY=&SYSUID

Figure 4-8

A JOB statement with both the MSGCLASS and MSGLEVEL parameters

//MM01A JOB 36512,'R MENENDEZ',MSGCLASS=X,MSGLEVEL=(0,0)

raw.doc 2

Figure 4-9

An EXEC statement that executes program PAY5B10 in step PAYLIST

//PAYLIST EXEC PGM=PAY5B10

An EXEC statement that passes a parameter value of LINECT=0050 to

program IEBDG

//DATAGEN EXEC PGM=IEBDG,PARM='LINECT=0050'

An EXEC statement that passes three parameters to program HEWL

//LINKED EXEC PGM=HEWL,PARM='LET,MAP,XREF'

Figure 4-10

A DD statement that allocates an existing data set

//INVMAST DD DSNAME=MM01.INVNTORY.MASTER,DISP=SHR

A DD statement that allocates a new data set and catalogs it

//INVMAST DD DSNAME=MM01.ACCOUNT.MASTER,DISP=(NEW,CATLG),

// UNIT=SYSDA,VOL=SER=MPS8BV,

// SPACE=(CYL,(10,2)),

// DCB=(DSORG=PS,RECFM=FB,LRECL=100)

Figure 4-12

The data set is allocated for shared access, and the normal and abnormal

dispositions default to KEEP

DISP=SHR

The new data set is cataloged if the job step ends normally; otherwise, it’s

deleted

DISP=(,CATLG,DELETE)

Figure 4-13

A DD statement that uses the UNIT and VOLUME parameters

//INVMAST DD DSNAME=MM01.INVNTORY.MASTER,DISP=(NEW,CATLG),

// UNIT=SYSDA,VOL=SER=MPS8BV,...

raw.doc 3

Figure 4-15

A DCB parameter for a sequential file with fixed-length records of 133

bytes

DCB=(DSORG=PS,RECFM=F,LRECL=133)

DD parameters for a file with variable-length records up to 500 bytes long

RECFM=VB,LRECL=500

Figure 4-16

Example 1

//INVTRAN DD *

A00101005995CH445

A00103010030CH445

A00272001950CJ550

Example 2

//SYSUT1 DD DATA

//STEP1 EXEC PGM=INV1040

//INVLSTA DD SYSOUT=A

//INVLSTB DD SYSOUT=A

Example 3

//SYSIN DD DATA,DLM=##

//INVTRAN DD *

A00101005995CH445

A00103010030CH445

A00272001950CJ550

Figure 4-17

The data set identified by the ddname of SYSPRINT is a JES SYSOUT file

with a an output class of A

//SYSPRINT DD SYSOUT=A

The INVRPT data set is a JES SYSOUT file with an output class that

defaults to the output class specified by MSGCLASS in the JOB statement

//INVRPT DD SYSOUT=*

raw.doc 4

Figure 4-18

The JCL for the transaction-posting application

//MM01PT JOB 36512,'M MURACH',MSGCLASS=A,MSGLEVEL=(1,1),

// NOTIFY=MM02

//POST EXEC PGM=CM3000

//CUSTTRAN DD DSNAME=MM01.CUSTOMER.TRANS,DISP=SHR

//CUSTMAST DD DSNAME=MM01.CUSTOMER.MASTER,DISP=SHR

//ERRTRAN DD DSNAME=MM01.CUSTOMER.TRANS.ERRS,DISP=SHR

//TRANJRNL DD SYSOUT=*

//TRANSUM DD SYSOUT=*

//ERRLIST DD SYSOUT=*

raw.doc 5

Figure 4-19

The JCL for the report-preparation application

//MM01RP JOB 36512,'A PRINCE',MSGCLASS=X,MSGLEVEL=(1,1),

// NOTIFY=MM03

//SORT1 EXEC PGM=SORT

//SYSOUT DD SYSOUT=*

//SORTIN DD DSNAME=MM01.ACCOUNT.MASTER,DISP=SHR

//SORTOUT DD DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(NEW,KEEP),

// UNIT=SYSDA,VOL=SER=MPS800,

// SPACE=(CYL,(1,1)),

// DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//SORTWK01 DD UNIT=SYSDA,VOL=SER=MPS800,

// SPACE=(CYL,(1,1))

//SYSIN DD *

SORT FIELDS=(16,5,CH,A,1,5,CH,A)

//AR7100 EXEC PGM=AR7100

//ARSORT DD DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(OLD,DELETE),

// UNIT=SYSDA,VOL=SER=MPS800

//CUSTMAST DD DSNAME=MM01.CUSTOMER.MASTER,DISP=SHR

//DUNNING DD DSNAME=MM01.DUNNING.FILE,DISP=(NEW,KEEP),

// UNIT=SYSDA,VOL=SER=MPS800,

// SPACE=(CYL,(1,1)),

// DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//AR7200 EXEC PGM=AR7200

//DUNNING DD DSNAME=MM01.DUNNING.FILE,DISP=OLD,

// UNIT=SYSDA,VOL=SER=MPS800

//ATB DD SYSOUT=*

//OVERDUE DD SYSOUT=*

//SORT2 EXEC PGM=SORT

//SYSOUT DD SYSOUT=*

//SORTIN DD DSNAME=MM01.DUNNING.FILE,DISP=(OLD,DELETE),

// UNIT=SYSDA,VOL=SER=MPS800,

//SORTOUT DD DSNAME=MM01.DUNNING.FILE.SORT,DISP=(NEW,KEEP),

// UNIT=SYSDA.VOL=SER=MPS800,

// SPACE=(CYL,(1,1))

// DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//SORTWK01 DD UNIT=SYSDA,VOL=SER=MPS800,

// SPACE=(CYL,(1,1))

//SYSIN DD *

SORT FIELDS=(43,2,CH,A,1,5,CH,A,50,5,CH,A)

//AR7300 EXEC PGM=AR7300

//DUNSORT DD DSNAME=MM01.DUNNING.FILE.SORT,DISP=(OLD,DELETE),

// UNIT=SYSDA,VOL=SER=MPS800

//XREF DD SYSOUT=*

//STMTS DD SYSOUT=*

剩余63页未读，继续阅读

wclj10011001

2013-11-12

JCL例子，初学时可以参考

org.springframework:spring-jcl:jar:6.0.2 failed to transfer from https://repo.maven.apache.org/maven2 during a previous attempt. This failure was cached in the local repository and resolution is not reattempted until the update interval of central has elapsed or updates are forced. Original error: Could not transfer artifact org.springframework:spring-jcl:jar:6.0.2 from/to central (https://repo.maven.apache.org/maven2): transfer failed for https://repo.maven.apache.org/maven2/org/springframework/spring-jcl/6.0.2/spring-jcl-6.0.2.jar

这个错误表示Maven在从Maven中央仓库下载spring-jcl 6.0.2时失败了。可能是由于网络连接问题或中央仓库的问题导致的。解决这个问题的方法有以下几种： 1. 检查你的网络连接是否正常，尝试重新构建你的项目。 2. ...

//JOBNAME JOB ... //STEP1 EXEC PROC=PROC1，在PROC1里又调用STEP EXEC PROC=PROC2，如何替换PROC2里的DD

要在 JCL 中替换 PROC2 中的 DD（数据定义）语句，可以在 PROC1 中使用 JCL 的符号替换功能。以下是一个示例： ```jcl //JOBNAME JOB ... //STEP1 EXEC PROC=PROC1 ``` 在上面的示例中，`STEP1` 步骤调用了一个名...

cobol 文件排序怎么做

在 IBM Enterprise COBOL for z/OS 编译器中，可以使用 JCL 和 SYSIN DD 参数来指定 SORT verb 的输入和控制语句。以下是一个示例 JCL 控制文件： //SORTJOB JOB (ACCT#), 'SORT JOB',MSGCLASS=X,MSGLEVEL=(1,1), ...

log4j-core的依赖

5. log4j-jcl：这是log4j与JCL（Jakarta Commons Logging）的适配器，使得使用JCL的应用程序可以使用log4j作为底层日志实现。 6. log4j-web：这是log4j在Web应用程序中的支持，提供了在Web容器中加载log4j配置的...

spring3.x整合cxf2.7.12的maven依赖，并说出这些jar包的作用

以下是Spring 3.x整合CXF 2.7.12的Maven依赖配置： ```xml  <groupId>org.springframework <artifactId>spring-core ...- `jcl-over-slf4j`：SLF4J的JCL适配器，用于将JCL日志转发到SLF4J中。

chris98276

粉丝: 3
资源: 3

上传资源快速赚钱

我的内容管理收起

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

会员权益专享

JCL Coding Examples

评论3

会员权益专享

最新资源

JCL Coding Examples

评论3

IBM大型机JCL 程序入门范例

First JCL Sample-经典JCL例子

JCL错误代码汇总

jcl语言及实用程序教程

jcl2.8+jvcl3.5

Cobol中JCL相关文档

如何自动保存jcl log 为数据集

cobol jcl代码

jcl log 写到一个数据集

delphi jcl控件

springmvc5.3.9对应的jcl-over-slf4j的版本

富士通JCL 怎么创建VSAS文件

jcl sysprint 日志内容写到一个数据集

Jcl sysprint写到数据集

jcl write log detail to dataset

//JOBNAME JOB ... //STEP1 EXEC PROC=PROC1，在PROC1里又调用STEP EXEC PROC=PROC2，如何替换PROC2里的DD

cobol 文件排序怎么做

log4j-core的依赖

spring3.x整合cxf2.7.12的maven依赖，并说出这些jar包的作用

会员权益专享

最新资源