使用z/OS CICS API在COBOL程序中获取系统日期

作者:佚名 上传时间:2023-04-27 运行软件:COBOL 软件版本:z/OS V2.4 版权申诉

本示例展示了如何在z/OS上使用CICS API来获取系统日期。代码使用COBOL编写,通过调用CICS API获取当前日期,并将其打印到控制台。该代码适用于z/OS操作系统。

IDENTIFICATION DIVISION.
PROGRAM-ID. GETDATE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-DATE PIC 9(8).

PROCEDURE DIVISION.
MAIN-PROCEDURE.
EXEC CICS
  RETURN
  TRANSID(' ')
  COMMAREA(WS-DATE)
  LENGTH(8)
END-EXEC.

DISPLAY WS-DATE.

STOP RUN.

免责申明:文章和图片全部来源于公开网络,如有侵权,请通知删除 server@dude6.com

用户评论
相关推荐
使用z/OS CICS APICOBOL程序获取系统日期
本示例展示了如何在z/OS上使用CICS API来获取系统日期。代码使用COBOL编写,通过调用CICS API获取当前日期,并将其打印到控制台。该代码适用于z/OS操作系统。IDENTIFICAT
z/OS V2.4
COBOL
2023-04-27 18:06
z/OS使用CICS链接程序
该示例代码演示了如何在z/OS上使用CICS链接程序。链接程序是由多个模块链接的程序,包括编译的源代码和目标代码。CICS链接程序可以提供代码模块的重用性和共享性,减少了存储和加载的开销,提高了程序执
z/OS V2R4
CICS
2023-04-27 06:20
CICS FOR COBOL
小弟是新会员所以积分要了一分,以增强一下地位,这个资料是英文的还不错。
PDF
0B
2018-12-20 11:07
使用z/OSCICS API检索数据
本示例代码展示了如何使用z/OS的CICS API从CICS交易中检索数据。首先需要初始化CICS API控制块,并指定需要检索的字段。然后通过EXEC CICS读取API指令读取CICS数据。最后,
z/OS V2.3
CICS API
2023-03-14 17:36
使用z/OS CICS API实现交易处理
该示例代码展示了如何使用z/OS CICS API实现基于交易的处理。它利用CICS API中的EXEC CICS START TRANSID指令,将用户请求发送到CICS事务处理程序中,CICS再将
z/OS V2R3
IBM CICS Transaction Server for z/OS
2023-04-30 18:20
z/OS系统使用COBOL编程
COBOL(全称Common Business Oriented Language)是一种面向业务的编程语言,广泛应用于企业应用程序的开发。在z/OS操作系统上,COBOL是一种重要的编程语言,本文将
z/OS V2R4 COBOL V6.3
Mainframe Express
2023-03-27 16:16
z/OS平台运行CICS事务
在z/OS平台上运行CICS事务需要注意一些关键点。以下是一个示例代码,包括代码释义和总结。示例代码//TRANX JOB ,'TRANSACTION',MSGCLASS=X//UTILS EX
IBM z/OS 2.4
CICS应用程序
2023-03-22 23:52
z/OS上运行COBOL程序
本文将介绍如何在z/OS操作系统上运行COBOL程序,包括z/OS COBOL编译器和运行环境,以及提供示例代码和代码释义。z/OS COBOL编译器z/OS操作系统提供了COBOL编译器,可用于
z/OS V2.4
IBM z/OS
2023-03-12 05:22
z/OS上调试COBOL程序
在z/OS上调试COBOL程序需要使用专门的调试工具。以下是一些z/OS COBOL调试工具的示例代码和代码释义:z/OS COBOL调试工具Interactive Debug Control
z/OS 2.4+
IBM Debug Tool
2023-03-22 11:17
z/OS使用COBOL编写系统级应用程序
本文旨在介绍如何在IBM z/OS操作系统上使用COBOL编写系统级应用程序。以下是示例代码和代码释义,以及总结。示例代码IDENTIFICATION DIVISION.PROGRAM-ID.
z/OS V2.5, COBOL for z/OS V6.3
IBM z/OS
2023-03-14 14:07