旧版 IBM COBOL 程序中的"$CICS ON"意味着什么?



我有一些2006年的IBM COBOL。它包含"$CICS ON"one_answers"$CICS OFF"我对IBM COBOL和EXEC基本熟悉。语句和指令,但我从未见过这对。

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

下面的COBOL程序片段:

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个程序的代码库~~ 450K SLOC。我在整个代码库中发现的唯一$命令是:
$CICS ON.
$CICS OFF.
$COPY <filename>.
$BLOCK.
$BlOCKS.

如果有帮助的话,$ copy引用的复制库包含非标准COBOL声明(注意"COMMBLOCK")和";FORM"从第7列开始)

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).   

将评论转换为OP请求的答案

可能是System 2000引用。20多年前的V1 PDF包括$CICS ON$CICS OFF指令。我找不到任何包含这些指令的V2文档。

从评论中,OP在https://support.sas.com/resources/papers/proceedings/pdfs/s2k/PLEX.pdf找到了一个更有用的手册,其中"似乎包含了提到的所有$xxxx指令"。

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

最新更新