MainframeR那些事儿

常用的CICS命令

snailgo — Thu, 01 Mar 2012 05:42:16 +0000

我们可以在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脚本

snailgo — Sat, 25 Feb 2012 10:15:31 +0000

来说说如何用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”的结果

snailgo — Mon, 20 Feb 2012 14:15:13 +0000

最近的项目经常跟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”来得方便一点点…

分享到：

Rexx顺序处理文件所有行

snailgo — Fri, 17 Feb 2012 12:43:38 +0000

这是典型的自上而下扫描一个dataset中每一行,而做相应处理的Rexx脚本。


ADDRESS TSO                                                             
  indataset = 'IBMUSER.REXX.EXEC(INFILE)'  /*read in input file */      
  "alloc f(fin) ds('"indataset"') shr reuse"   
  "execio * diskr fin (finis stem in."                                  
  "free f(fin)"                                                         
 do i=1 to in.0        /*loop in file until the last line reached */           
    one_line = strip(in.i)                                                    
    call Do_Something                                          
 end                                                                    
EXIT 0   

Do_Something：          
...

分享到：

WordPress不用插件代码高亮

snailgo — Wed, 08 Feb 2012 15:10:24 +0000

作为一个写博客的程序员，一个用wordpress写博客的程序员，就免不了要贴些代码。以前我都是用截图的，发现这样太麻烦了。可是wordpress自带的code标签又弱地可以啊，于是，各种代码高亮插件就来了：比如CodeColorer，比如WP-Syntax，比如WP-Code，Syntax Highlighter等等。用插件的好处显然易见，可是哪天你不用插件了，那么代码高亮也就没了。况且，后台”已安装的插件”里面已经够多插件的了，所以，今天我就介绍一些不用插件能让代码高亮的方法。

方法一：利用些在线网站的code to html功能
比较熟悉的有代码发芽网站：http://fayaa.com/code/new/和 tohtml.com 支持的语言很多，主流的非主流的都支持。用法很简单，直接贴代码，点击转换成html即可，然后将生成的html贴在你的文章中即可(记得切换到HTML模式)。
缺点：样子估计丑陋了点(如何丑陋请参考我的上一篇博文)，而且对于主机开发人员来说，基本上很难找到JCL/PLI/REXX的语法高亮，所以此种方法我放弃

方法二：用文本编辑器的code to html功能
我知道的NotePad++和Vim都有这个功能。其中不得不说的是Vim生成的html比notepad++要美观得多，所以我选择了Vim(在windows下面我就用gvim方便些，记不住那么多的命令)

在使用Gvim的tohtml功能的时候记得注意一下：
1、记得在 _vimrc配置文件中添加：let g:html_use_css = 0，否则生成的html是默认带有css样式的,这样的话虽然减小了html的体积，却不能被wordpress准确地识别(也可能是我对HTML/CSS不熟悉的缘故，谁知道的话告诉我下啊)
2、在gvim中选择正确的配色方案，点击语法——>转换成HTML，将生成的HTML代码中body之间的部分放入以下pre之间，就完成了代码的完美嵌入了。


<div class="flyuphigh.com">
  <pre>
  pre>
div>

这是一段用gvim的tohtml功能生成的带语法高亮的Ruby代码，效果如下：


 begin
    Timeout::timeout(30) do |timeout_length|
    $streamSock = TCPSocket::new(ipaddress, 43)
    $streamSock.send(domain+"\r\n",domain_len+2)
    $strs= $streamSock.read
    #strs= streamSock.readpartial(2048)
    end
   rescue Errno::ECONNRESET                              
    puts "I got stucked in rescue-ECONNRESET, will retry in 5 secs\n"
    if $strs=="" then
     puts "I read nothing!\r\n"
     puts "The dead domain is:"+ domain
     end
    $streamSock.close
    sleep(3)
    retry                                                
                                                      
   rescue Timeout::Error
     puts "I got stucked in rescue-TIMEOUT, will retry in 5 secs\n"
     # $streamSock.close
     sleep(3)
   retry                                      
   # ensure                                                           
 end

分享到：

如何去掉程序的第72至80列

snailgo — Tue, 07 Feb 2012 15:27:52 +0000

我个人不是很喜欢ISPF 3.13提供的两个Dataset比较的功能，总觉得看得不是很直观。平时，我还是比较习惯用winmerge这个软件来比较。但是有个问题，就是比较的两个程序经常在第72列至80列的行号不一致，导致没法比较。所以，这篇文章我就来总结一下，如何去掉DATASET的第72列至80列内容。

方法一：直接在ISPF下面用命令去掉
这是最直接最快的办法。去掉第72列至80列的命令有下面两个：

 NUM ON; UNNUMB
 C P'^' ‘ ‘ 73 80 ALL /* Changes all non-space characters to spaces in col 73 to 80*/

方法二：用第三方脚本实现
上面的方法如果是只有少数几个程序，那么手动命令去掉第72列至80列没什么。但是如果你一下子需要对几百个dataset或者同一个PDS下面的所有member去掉第72列至80列，则最好最快的办法是将所有代码通过FTP下载到本地，然后用第三方脚本语言(如VB,Phthon,Ruby,JS等)来解决了。以下就附上一段我自己写的Ruby脚本，该脚本的作用是将C:\prod文件夹下面的所有程序的第72列至80列内容置空，然后输出到文件夹C:\prod72col下面。可以看到，用第三方脚本实现批量的任务是很方便的。

def cutto72col(file_in,file_out)

   file_in=File.new(file_in,‘r’)

   file_out=File.new(file_out,‘w’)

   oneline=file_in.gets

   while(oneline != nil)

     oneline=oneline.chomp

     oneline=oneline[0..71]

     file_out.puts oneline

     oneline=file_in.gets

   end

end

12

path_in=‘C:\prod\\’

path_out=‘C:prod72col\\’

15

Dir.foreach(path_in){ |file|

if file != ‘.’ && file != ‘..’

then

   file_in = path_in + file

   cutto72col(file_in,path_out + file)

end                }

当然，你还可以直接在大机上面，用REXX脚本直接对整个PDS操作，移去所有member的第72列至80列内容。以下也附上我自己写的REXX脚本,该脚本的内容是将IBMUSER.TEST.PRGM这个PDS下面所有的member的第72列至第80列的行号都去掉：
（暂时没找到如何比较完美地在这里贴REXX语法高亮的代码，等我找到方法了再帖上来）

PS:今天找到怎么比较好地在wordpress贴带有Rexx代码高亮的方式了，续上，代码如下：


/***********************REXX******************************************/
/*Loop PDS to remove whatever between col72 to col80 for each member */
/**********************************************************************/
/* Trace i  */                                                          
pdsname = 'TEST.PRGM'          /*Check if pds is exsited */       
if sysdsn(pdsname)<> "OK" then                                          
    do                                                                  
       say "Error: Specified PDS not found:" pdsname                    
       say "Error: " pdsname " > " sysdsn(pdsname)                      
       say "Press Enter to continue"                                    
       pull uresp                                                       
       exit 8                                                           
    end                                                                 
                                                                        
call outtrap "mbrs."       /*call outtrap to capture LISTD output */
"LISTD" pdsname "MEMBERS"  /*List member list*/                     
call outtrap "off"         /*Turn off outtrap*/                     
                                                                    
do i=1 to mbrs.0                                                    
 /*SAY "mbrs." !! i !! ": " !!   mbrs.i */                          
  if mbrs.i = "--MEMBERS--" then                                    
   do                                                               
     leave                                                          
   end                                                              
end                                                                 
                                                                    
/*start to loop on each member*/                                    
i = i+1                                                             
do j=i to mbrs.0   /*mbrs.0 is the total line num of LISTD */       
 /*SAY "mbrs." !! j !! ": " !!   mbrs.j */                             
   parse value mbrs.j with mem /*split mbrs.j*/                        
   mem =strip(mem)            /*remove leading and trailing character*/
   pds = 'IBMUSER.TEST.PRGM'                                     
   mpds = pds !!'(' !! mem !! ')'                                      
   "ISPEXEC EDIT DATASET('"mpds"') MACRO(MACRO01)"                     
 end

这是上面主Rexx程序调用的MACRO01:


/*****************************REXX***********************************/
ADDRESS  ISPEXEC 
"ISREDIT MACRO"  
"ISREDIT RES"    
"ISREDIT NUM ON" 
"ISREDIT UNNUM"  
"ISREDIT SAVE"   
"ISREDIT END"

分享到：

PL/I编译器版本

snailgo — Thu, 02 Feb 2012 11:36:19 +0000

PL/I编译器的版本，如下所示：

Product code Product name Compiler “signature” Module prefix
360S-NL-511 S/360 OS PL/1 (F) ‘ ‘ IEM,IHE,IHL
5734-PL1 OS PL/I OPTIMIZING COMPILER V1 5734-PL1 IEL,IBM
5734-PL2 OS PL/I CHECKOUT COMPILER
5734-PL3 OS PL/I Opt Comp Lib Kanji Name Support
5668-909 OS PL/I V2 (COMP/LIB/TEST)
5668-910 OS PL/I V2 (COMP/LIB) 5668-910 IEL,IBM
5668-911 OS PL/I V2 (Library) IBM
5688-235 PL/I for MVS AND VM V1 5688-235 IEL,IBM
5655-B22 VisualAge PL/I for OS/390 V2 5655-B22 IEL,IBM
5655-H31 Enterprise PL/I for z/OS V3 5655-H31 IBM

原链接请参照：http://gsf-soft.com/Documents/PRODCODES.shtml

编译完PL/I程序之后，在生成的loadmodule二进制文件里面查找Compiler signature(如5655-235),对照上表即可知道编译器的版本。

分享到：

用PIC型中间变量解决Fixed赋值溢出abend

snailgo — Sun, 01 Jan 2012 11:40:23 +0000

我在Debug一个PLI程序PRGM000的时候遇到了一个CEE34A abend，报的错误信息如下：
You were prompted because the CEE34A condition was raised in your program. CEE34A is a severity or class 3 condition. The operating system has generated the following message: CEE3210S The system detected a decimal-overflow exception (System Completion Code=0CA). The current location is PRGM000 ::> PRGM000 :> 2688.

不废话，直接上截图：

从图上可以看出，出错的语句是：“TBL_KEY1.TRADE_DATE = COMM_AREA.TRADE_DATE”

我们来看二者的定义：
COMM_AREA.TRADE_DATE的定义：
1 COMM_AREA 2 USER_AREA, ... 5 TRADE_DATE FIXED(9), /* 20110901 */ ...;
TBL_KEY1.TRADE_DATE的定义
DCL 1 TBL_KEY1 3 SPARE_CLIENT CHAR(4), 3 IDENT_ID CHAR(9), 3 TRADE_DATE FIXED(7), 3 NUM FIXED(3);

所以很明显，发生abend的原因是把一个FIXED(9)的值赋给了一个FIXED(7)的变量，从而产生了溢出。

下面是解决办法：
定义一个PIC类型的中间变量”PIC_TRADE_DATE_9″做转换桥梁：

DCL PIC_TRADE_DATE_9 PIC '(9)9' INIT(0); PIC_TRADE_DATE_9 = COMM_AREA.TRADE_DATE; (值:020110901) (值：20110901) TBL_KEY1.TRADE_DATE = SUBSTR (PIC_TRADE_DATE_9,4,6); (值：110901) (值：110901)

到这里，问题已经得到解决。
(ps:谁能知道wordpress如何能保持代码的对齐啊？晕死的这个…)

分享到：

wordpress博客搬家

snailgo — Sun, 25 Dec 2011 09:10:47 +0000

这两天换了个空间商，不免要亲历Wordpress博客搬家过程。发现多数的空间商用的虚拟主机后台管理面板都是齐刷刷的”StarOut FreeHost System”,即星外虚拟主机管理平台，MySql数据库的高级管理面板呢，都是齐刷刷的“phpMyAdmin 2.7.0-pl1”，这些无疑都为网站搬迁带来了方便。

由于不涉及到更改域名，那么本人的wordpress博客搬迁，归纳起来可以归结为以下4件事：

1、网站文件的搬迁
要将网站的所有文件和网页都从旧服务器搬迁到新服务器，可以使用星外虚拟主机管理面板里面自带的“网站搬家”功能，搬家过程中，您可以在/db/ftplog.txt文件中看到整个搬家的命令操作过程。不过我在使用过程中貌似有出现过搬的不彻底的情况，所以，我还是用FTP软件，将本地备份好的整个网站传到新服务器。由于文件数目过多，传输很慢。所以，可以使用管理面板中“在线压缩/解压”的这个功能，首先在本地将整个网站文件压缩，用ftp传到/db文件夹下，然后再在管理面板解压到/web目录下，这样就快多了。

2、网站数据库的搬迁
wordpress的数据库中一般有10个wp_开头的表：wp_comments、wp_links、wp_options、wp_postmeta、wp_posts、wp_term_relationships、wp_term_taxonomy、wp_terms、wp_usermeta、wp_users。这里不详细说这些表的具体用途(从表名也能猜出个大概吧)，还有其他的表的话应该是你安装的插件生成的表。
首先，登陆你旧服务器，在数据库高级管理中利用phpMyAdmin 2.7.0-pl1将整个数据库(即上述10个表的数据)下载下来，然后登陆新的服务器，同样利用phpMyAdmin 2.7.0-pl1将收据库导入即可。

3、修改数据库信息文件
在/web/wp-config.php中对数据库名，用户名/密码，数据库ip做相应修改。

4、域名重新设置解析
登陆你的域名注册商网站，在DNS解析设置中，将解析IP从旧ip改成新虚拟主机的IP。

如果不出什么意外的话，执行完上面4步，你的wordprss博客应该算搬迁完毕了。由于我之前利用“cos-html-cache插件+自定义404.php页面” 来实现了伪静态，所以我还必须在新虚拟主机管理面板中将默认的404页面改成使用自定义的404出错页面，否则，会出现很多链接无法访问的现象。如果你没有使用“cos-html-cache插件+自定义404.php页面”，那么就可以省略这一步了。

分享到：

利用SRCHFOR在PDS中搜索字符串

snailgo — Sat, 24 Dec 2011 12:04:01 +0000

之前的文章说到了一个叫”Mem xxx“的命令可以用来在一系列PDS中搜索一个名字叫做xxx的member，那么今天我来说下如何在一个PDS里面所有的member内容当中搜索特定字符串。其实就是利用search-for 的应用程序，比较常规的方法是道ISPF的3.14菜单里面搜索，如下图所示，就是在 “IBMUSER.PROJ.TEST.JCL”这个PDS里面所有的member内容中，搜索一个叫“STRING”的字符串：

当然，如果你想直接在当前PDS下调用search-for utility来搜索特定字符串，可以在command line上输入命令：SRCHFOR “STRING”来在当前PDS下面搜索字符串”STRING“,具体如下面2张截图所示：

如果我想同时在多个PDS当中搜索一个字符串，或者多个字符串那么该如何做呢？这时你可能就需要用到JCL来调用ISRSUPC这个utility了。这个ISRSUPC的功能可强大多了，具体可以参照下我之前的文章：用ISRSUPC在PDS所有member中搜索指定字符串，这里就不再重复了。

分享到：