首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >在遗留的IBM程序中,"$CICS ON“是什么意思?

在遗留的IBM程序中,"$CICS ON“是什么意思?
EN

Stack Overflow用户
提问于 2022-04-19 02:22:16
回答 1查看 125关注 0票数 1

我有一些2006年年份的IBM。它包含"$CICS ON“和"$CICS OFF”。我通常熟悉IBM "EXEC“语句和指令,但我从未见过这对语句。

这些命令是做什么的,它们在哪里有文档记录(IBM参考手册名称将是理想的答案)?搜索网页并没有显示出明显的效果。

COBOL程序片段如下:

代码语言:javascript
复制
000750 01  WG-YOB.                                                              
000760     05  FILLER                  PIC X(4).                                
000770     05  WX-YOB                  PIC X(2).                                
000780$CICS ON.                                                                 
000790$CICS OFF.                                                                
000800$COPY CMPLDBF.                                                            
000810$COPY CMPLDBH.                                                            
000820 LINKAGE SECTION.                                                         
000830 01  DFHCOMMAREA.                                                         
000840 COPY COMMAREA.                                                           
000850 PROCEDURE DIVISION. 

编辑:这是一个大约1000个程序的代码库~450 K SLOC。我在整个代码库中找到的唯一$命令是:

代码语言:javascript
复制
$CICS ON.
$CICS OFF.
$COPY <filename>.
$BLOCK.
$BlOCKS.

如果有帮助,$COPY引用的副本库包含非标准的COBOL声明(注:"COMMBLOCK“和”表单“,从第7栏开始)

代码语言:javascript
复制
000100COMMBLOCK OF HCPDSDB.                                                     
000110 01 HCPDSDB-DB.                                                           
000120     05 RECORD-NAME.                                                      
000130     05 RETURN-KODE.                                                      
000140     05 FREE.                                                             
000150     05 LAST-RECORD-FLAG.                                                 
000160     05 PASSWD.                                                           
000170     05 NO-OF-RECORDS.
...   
000380FORM YYMMDD.                                                              
000390     05 C4-RED REDEFINES C4.                                              
000400        07  C4-YY      PIC 99.                                            
000410        07  C4-MM      PIC 99.                                            
000420        07  C4-DD      PIC 99.                                            
000430     05 C5             PIC 9(11).                                         
000440     05 C6             PIC 9(6).   
EN

回答 1

Stack Overflow用户

发布于 2022-04-21 18:14:08

应OP请求将注释转换为答复。

可能是系统2000的参考资料。多年前的V1 PDF包括$CICS ON$CICS OFF指令。我无法找到包含这些指令的任何V2文档。

从注释中,OP在https://support.sas.com/resources/papers/proceedings/pdfs/s2k/PLEX.pdf发现了一个更有用的手册,它“似乎包含了问题中提到的所有$xxxx指令”。

我很高兴我至少能指出一个有帮助的方向。

票数 3
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/71918954

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档