IBM Mainframe COBOL程序编译与链接编辑

需积分: 46 3 下载量 127 浏览量 更新于2024-09-07 2 收藏 2KB TXT 举报
"该资源是关于使用JCL（Job Control Language）编译和链接编辑COBOL程序的示例。JCL是IBM大型机系统中用于控制作业流程的语言。在这个例子中，作业（JOB）首先调用IGYCRCTL程序进行编译，然后通过HEWL程序进行链接编辑。整个过程涉及到了多个DD语句来定义数据集和处理参数。" 在大型机环境中，COBOL是一种常用的编程语言，用于开发商业应用。JCL则是控制这些应用程序在IBM主机系统上运行的关键工具。在这个JCL脚本中，我们看到了两个主要步骤： 1. 编译步骤： - `//COMPLIE JOB` 开头的段落定义了一个名为CBLCL的作业，它将执行COBOL程序的编译。`EXEC PGM=IGYCRCTL` 指定了编译器程序IGYCRCTL，用于处理COBOL源代码。 - `SYSPRINT` 和 `SYSLIN` 数据集分别用于输出编译报告和生成的加载模块。 - `SYSIN` 数据集指定了要编译的COBOL源代码所在的DSN（数据集名称）。 2. 链接编辑步骤： - 在编译成功后，作业继续执行链接编辑器程序HEWL，确保编译后的模块能正确连接成可执行程序。这里有两个`LKED EXEC PGM=HEWL` 部分，可能是为了处理不同条件下的链接编辑，如COBOL程序未找到或已找到的情况。 - `SYSLMOD` 数据集定义了最终的加载模块存储位置，而 `SYSLIN` 会使用之前编译产生的加载模块。 此外，脚本中的其他DD语句如 `SYSUT1` 至 `SYSUT7` 通常用于编译过程中产生的临时或辅助数据集，例如错误信息、诊断信息等。`CLASS`, `MSGCLASS`, `MSGLEVEL` 参数则用于控制作业的日志级别和通知设置。 这个JCL脚本展示了如何在IBM大型机系统上编译和链接编辑一个名为`SAMPLE`的COBOL程序。每个步骤涉及的数据集定义和参数配置都是JCL中不可或缺的部分，它们确保了作业的正确执行并管理了所需的输入和输出。对于那些需要在大型机环境中处理COBOL程序的人来说，理解和编写这样的JCL脚本至关重要。

Oracle JOB 用法小结

2009-11-13 上传
Oracle JOB 用法小结 2007-6-20 11:51:36 Oracle JOB 用法小结 　　一、设置初始化参数 job_queue_processes 　　sql> alter system set job_queue_processes=n;（n>0） 　　job_queue_processes最大值为1000 　　 　　查看job queue 后台进程 　　sql>select name,description from v$bgprocess; 　　 　　二，dbms_job package 用法介绍 　　包含以下子过程： 　　 　　Broken()过程。 　　change()过程。 　　Interval()过程。 　　Isubmit()过程。 　　Next_Date()过程。 　　Remove()过程。 　　Run()过程。 　　Submit()过程。 　　User_Export()过程。 　　What()过程。 　　 　　1、Broken()过程更新一个已提交的工作的状态，典型地是用来把一个已破工作标记为未破工作。 　　这个过程有三个参数：job 、broken与next_date。 　　 　　PROCEDURE Broken (job　　　 IN binary_integer, 　　　　　　　　　　　Broken　　IN boolean, 　　　　　　　　　　　next_date IN date :=SYSDATE) 　　 　　job参数是工作号，它在问题中唯一标识工作。 　　broken参数指示此工作是否将标记为破——TRUE说明此工作将标记为破，而FLASE说明此工作将标记为未破。 dl.bitsCN.com网管软件下载 　　next_date参数指示在什么时候此工作将再次运行。此参数缺省值为当前日期和时间。 　　job如果由于某种原因未能成功之行，oracle将重试16次后，还未能成功执行，将被标记为broken重新启动状态为broken的job，有如下两种方式; 　　a、利用dbms_job.run()立即执行该job 　　　 sql>begin 　　　 sql>dbms_job.run(:jobno) 该jobno为submit过程提交时返回的job number 　　　 sql>end; 　　　 sql>/ 　　b、利用dbms_job.broken()重新将broken标记为false 　　　 sql>begin 　　　 sql>dbms_job.broken (:job,false,next_date) 　　　 sql>end; 　　　 sql>/ 　　2、Change()过程用来改变指定工作的设置。 　　这个过程有四个参数：job、what 、next_date与interval。 　　 　　PROCEDURE Change (job　　　　IN binary_integer, 　　　　　　　　　　　What　　　 IN varchar2, 　　　　　　　　　　　next_date　IN date, 　　　　　　　　　　　interval　 IN varchar2) 　　 　　此job参数是一个整数值，它唯一标识此工作。 　　What参数是由此工作运行的一块PL/SQL代码块。 　　next_date参数指示何时此工作将被执行。 　　interval参数指示一个工作重执行的频度。 dl.bitsCN.com网管软件下载 　　 　　3、Interval()过程用来显式地设置重执行一个工作之间的时间间隔数。这个过程有两个参数：job与interval。 　　 　　PROCEDURE Interval (job　　　IN binary_integer, 　　　　　　　　　　　　Interval IN varchar2) 　　 　　job参数标识一个特定的工作。interval参数指示一个工作重执行的频度。 　　 　　4、ISubmit()过程用来用特定的工作号提交一个工作。这个过程有五个参数：job、what、next_date、interval与no_parse。 　　 　　PROCEDURE ISubmit (job　　　 IN binary_ineger, 　　　　　　　　　　　 What　　　IN varchar2, 　　　　　　　　　　　 next_date IN date, 　　　　　　　　　　　 interval　IN varchar2, 　　　　　　　　　　　 no_parse　IN booean:=FALSE) 　　 　　这个过程与Submit()过程的唯一区别在于此job参数作为IN型参数传递且包括一个由开发者提供的工作号。如果提供的工作号已被使用，将产生一个错误。 　　 　　5、Next_Date()过程用来显式地设定一个工作的执行时间。这个过程接收两个参数：job与next_date。 　　 　　PROCEDURE Next_Date(job　　　　 IN binary_ineger, 　　　　　　　　　　　　next_date　 IN date) so.bitsCN.com网管资料库任你搜 　　job标识一个已存在的工作。next_date参数指示了此工作应被执行的日期与时间。 　　 　　6、Remove()过程来删除一个已计划运行的工作。这个过程接收一个参数： 　　 　　PROCEDURE Remove(job IN　binary_ineger); 　　 　　job参数唯一地标识一个工作。这个参数的值是由为此工作调用Submit()过程返回的job参数的值。已正在运行的工作不能由调用过程序删除。 　　 　　7、Run()过程用来立即执行一个指定的工作。这个过程只接收一个参数： 　　 　　PROCEDURE Run(job IN binary_ineger) 　　 　　job参数标识将被立即执行的工作。 　　 　　8、使用Submit()过程，工作被正常地计划好。 　　这个过程有五个参数：job、what、next_date、interval与no_parse。 　　 　　PROCEDURE Submit ( job　　　 OUT binary_ineger, 　　　　　　　　　　　 What　　　IN　varchar2, 　　　　　　　　　　　 next_date IN　date, 　　　　　　　　　　　 interval　IN　varchar2, 　　　　　　　　　　　 no_parse　IN　booean:=FALSE) 　　 　　job参数是由Submit()过程返回的binary_ineger。这个值用来唯一标识一个工作。 　　what参数是将被执行的PL/SQL代码块。 bitsCN全力打造网管学习平台 　　next_date参数指识何时将运行这个工作。 　　interval参数何时这个工作将被重执行。 　　no_parse参数指示此工作在提交时或执行时是否应进行语法分析——TRUE指示此PL/SQL代码在它第一次执行时应进行语法分析，而FALSE指示本PL/SQL代码应立即进行语法分析。 　　 　　9、User_Export()过程返回一个命令，此命令用来安排一个存在的工作以便此工作能重新提交。 　　此程序有两个参数：job与my_call。 　　 　　PROCEDURE User_Export(job　　　　IN binary_ineger, 　　　　　　　　　　　　　my_call　　IN OUT varchar2) 　　 　　job参数标识一个安排了的工作。my_call参数包含在它的当前状态重新提交此工作所需要的正文。 　　 　　10、What()过程应许在工作执行时重新设置此正在运行的命令。这个过程接收两个参数：job与what。 　　 　　PROCEDURE What (job　IN binary_ineger, 　　　　　　　　　　What IN OUT varchar2) 　　job参数标识一个存在的工作。what参数指示将被执行的新的PL/SQL代码。 　　 　　三、查看相关job信息 　　1、相关视图 　　dba_jobs 　　all_jobs 　　user_jobs 　　dba_jobs_running 包含正在运行job相关信息 blog.bitsCN.com网管博客等你来搏 　　 　　2、查看相关信息 　　 　　SQL>SELECT JOB, NEXT_DATE, NEXT_SEC, FAILURES, BROKEN 　　SQL>FROM DBA_JOBS; 　　 　　JOB NEXT_DATE NEXT_SEC FAILURES B 　　------- --------- -------- -------- - 　　9125 01-JUN-01 00:00:00 4 N 　　14144 24-OCT-01 16:35:35 0 N 　　9127 01-JUN-01 00:00:00 16 Y 　　3 rows selected. 　　 　　正在运行的JOB相关信息 　　 　　SELECT SID, r.JOB, LOG_USER, r.THIS_DATE, r.THIS_SEC 　　FROM DBA_JOBS_RUNNING r, DBA_JOBS j 　　WHERE r.JOB = j.JOB; 　　 　　SID JOB LOG_USER THIS_DATE THIS_SEC 　　----- ---------- ------------- --------- -------- 　　12 14144 HR 24-OCT-94 17:21:24 　　25 8536 QS 24-OCT-94 16:45:12 　　2 rows selected. 　　　 　　JOB QUEUE LOCK相关信息 　　 　　SELECT SID, TYPE, ID1, ID2 　　FROM V$LOCK 　　WHERE TYPE = 'JQ'; 　　 　　SID TY ID1 ID2 　　--------- -- --------- --------- 　　12 JQ 0 14144 　　1 row selected. 　　 　　四、简单例子 　　一个简单例子： play.bitsCN.com累了吗玩一下吧 　　 　　创建测试表 　　SQL> create table TEST(a date); 　　 　　表已创建。 　　 　　创建一个自定义过程 　　SQL> create or replace procedure MYPROC as 　　　2　begin 　　　3　insert into TEST values(sysdate); 　　　4　end; 　　　5　/ 　　 　　过程已创建。 　　 　　创建JOB 　　SQL> variable job1 number; 　　SQL> 　　SQL> begin 　　　2　dbms_job.submit(:job1,'MYPROC;',sysdate,'sysdate+1/1440');　　--每天1440分钟，即一分钟运行test过程一次 　　　3　end; 　　　4　/ 　　 　　PL/SQL 过程已成功完成。 　　 　　运行JOB 　　SQL> begin 　　　2　dbms_job.run(:job1); 　　　3　end; 　　　4　/ 　　 　　PL/SQL 过程已成功完成。 　　 　　SQL> select to_char(a,'yyyy/mm/dd hh24:mi:ss') 时间 from TEST; 　　 　　时间 　　------------------- 　　2001/01/07 23:51:21 　　2001/01/07 23:52:22 　　2001/01/07 23:53:24 　　 　　删除JOB 　　SQL> begin 　　　2　dbms_job.remove(:job1); 　　　3　end; 　　　4　/ bitsCN.com中国网管联盟 　　 　　PL/SQL 过程已成功完成。

Spark调优多线程并行处理任务实现方式

2020-08-18 上传
主要介绍了Spark调优多线程并行处理任务实现方式,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下

Nginx启动、重启失败的一般解决方法和步骤

2020-09-30 上传
主要介绍了Nginx启动、重启失败的一般解决方法和步骤,本文没啥技术含量,只是一个惯用手法的总结,需要的朋友可以参考下

解析编译COBOL+DB2的JCL代码

2013-07-19 上传
根据给定文件中的标题、描述、标签以及部分内容，本文将深入解析如何编写和理解用于编译 COBOL+DB2 的 JCL（Job Control Language）代码，并重点介绍 DB2 数据库管理和 COBOL 应用程序开发中的关键概念与技术。...

IBM OS390 COBOL程序建立编译运行实例

2009-08-16 上传
总的来说，IBM OS/390 COBOL程序的建立、编译和运行涉及多个环节，从编写源代码到创建JCL，再到最终的执行，每一步都需要精确的操作和对z/OS环境的深入理解。通过掌握这些技能，开发者可以在大型机环境中高效地处理...

vscode_cobol：用于COBOL，JCL和MF指令文件的Visual Studio代码扩展

2021-02-15 上传
Visual Studio Code的COBOL源代码编辑此扩展最初旨在为COBOL提供语法高亮显示，但是超时已被扩展为为其他相关语言/文件格式（例如JCL，PL / I和Micro Focus指令文件以及Micro Focus单元测试报告）提供语法高亮显示。...

JCL和COBOL源程序

2011-01-07 上传
例如，JCL源程序1和2分别对应不同的COBOL程序编译和控制台运行的配置，它们可能会因实际需求而进行微调。 COBOL是一种高级编程语言，尤其擅长处理商业数据处理任务，如账单计算、库存管理等。它的语法清晰，接近...

DB2与COBOL编程：JCL代码解析与SQL交互

点击了解资源详情
"这篇文章主要解析了如何在IBM主机系统中编译和运行包含DB2数据库操作的COBOL程序，重点介绍了与DB2交互的JCL（Job Control Language）代码和SQL语句的使用方法。" 在COBOL程序中与DB2数据库交互时，我们需要了解...

JCL执行编译COBOL文件读写

2012-04-19 上传
JCL执行COBOL文件读写 JCL（Job Control Language）是 IBM 主机上的作业控制语言，用于...JCL 执行 COBOL 文件读写需要指定 COBOL 程序的路径和名称，编译参数，设备文件等，以便实现自动化的作业执行和数据处理。

COBOL程序设计试题

2012-09-24 上传
以上是COBOL程序设计中涉及的一些核心概念和操作，涵盖了数组、字符串、流程控制、文件操作、数据库交互以及程序编译和运行等方面的知识。理解和掌握这些知识点对于编写和调试COBOL程序至关重要。