常用的CICS命令

发表于 by
Reply

我们可以在COBOL，PL/I，Assembler等应用程序中写CICS命令，在COBOL和PL/I中，格式分别如下所示：
COBOL:
EXEC CICS function[option[(arg)]]… END-EXEC
PL/I:
EXEC CICS function[option[(arg)]]… ; (末尾有分号)

CICS的命令很多，不过最常用的也就是如下几个。所以，只要熟悉这几个的用法就好了，其他的当做了解即可，需要的时候再去查IBM manual或者CICS手册。

EXEC CICS ABEND [ABCODE(arg)]
EXEC CICS ASKTIME [ABSTIME(arg)]
EXEC CICS ASSIGN [OPID(arg)]
EXEC CICS RETURN [TRANSID(arg)]
EXEC CICS HANDLE CONDITION
EXEC CICS IGNORE CONDITION
EXEC CICS READQ TS [QUEUE(arg)]
EXEC CICS WRITEQ TS [QUEUE(arg)]
EXEC CICS DELETEQ TS [QUEUE(arg)]
EXEC CICS RECEIVE MAP
EXEC CICS SEND MAP
EXEC CICS XCTL PROGRAM
EXEC CICS LINK PROGRAM

分享到：

JCL提交REXX脚本

发表于 by
1

来说说如何用JCL提交REXX脚本。

1、写一个最简单的显示有一行提示的REXX脚本叫SAYHELLO：


1 EDIT       IBMUSER.REXX.EXEC(SAYHELLO) - 01.00           Member SAYHELLO saved 
2 Command ===>                                                  Scroll ===> CSR  
3 ****** ***************************** Top of Data ******************************
4 000001 /******************************REXX*********************************/                
5 000002 SAY "I WILL PRINT 'HELLO' IN SYSTSPRT BY SUBMITTING JCL"  

2、写一个JCL如下IBMUSER.TEST.JCL(SAYHELLO)：


EDIT       IBMUSER.TEST.JCL(SAYHELLO) - 01.10             Columns 00001 0007
Command ===>                                                  Scroll ===> CSR
****** ***************************** Top of Data ****************************
//IBMUSERS JOB  00000000000392100A01011000010TEST,                    
//  CLASS=3,MSGCLASS=R,NOTIFY=&SYSUID                                 
//STEP01 EXEC PGM=IKJEFT01,REGION=4M                                  
//SYSEXEC  DD DISP=SHR,DSN=IBMUSER.REXX.EXEC /*REXX LIB*/                         
//SYSTSIN  DD *                              /*REXX MEM*/                         
  SAYHELLO                                                            
/*                                                                    
//SYSTSPRT DD SYSOUT=*    

3、Sub JCL,输入Q;ST到SDSF中的SYSTSPRT查看输出信息如下：


SDSF OUTPUT DISPLAY IBMUSERS J0300135  DSID   102 LINE 0       COLUMNS 02- 81 
 COMMAND INPUT ===>                                            SCROLL ===> CSR 
********************************* TOP OF DATA *********************************
READY                                                                          
  SAYHELLO                                                                     
I WILL PRINT 'HELLO' IN SYSTSPRT BY SUBMITTING JCL                             
READY                                                                          
END                                                                            
******************************** BOTTOM OF DATA *******************************
分享到：

REXX怎么保存”Find ALL”的结果

发表于 by
Reply

最近的项目经常跟MQ打交道,将输入数据填在一个dataset里面提交给MQ解析，字段之间用逗号隔开。所以在测试MQ接口的时候会经常一边对着FSD，一边嘴里面数着逗号的个数。其实我到今天才想起来可以用一个”FIND ALL”的ISPF命令的。

FIND ‘,’ ALL
这样，逗号的个数就不用数了，直接显示在屏幕右上角。

既然这样，REXX可不可以保存这个“FIND ‘,’ ALL’的结果呢？ 研究了一番，居然让我找到ISREDIT有这个功能：

编辑 IBMUSER.REXX.EXEC(CHECK)这个member,输入如下的macro,

 1  ADDRESS  ISPEXEC                       
 2  "ISREDIT SEEK ALL ','"                 
 3  "ISREDIT (COUNT) = SEEK_COUNTS"        
 4  SAY "Comma number: "!! COUNT !! "'!'"  
 5 EXIT 0  

打开你的MQ输入的DATASET: IBMUSER.PROJ.MQ.INPUT
在command栏上面输入CHECK即可运行，也就比输入“FIND ‘,’ ALL”来得方便一点点…

分享到：