MainframeR那些事儿

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”来得方便一点点…

分享到：

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中搜索指定字符串，这里就不再重复了。

分享到：

美国50个州中英文[带音标]

snailgo — Sun, 11 Dec 2011 16:09:23 +0000

序号州名简称　首府名

01. Alabama [,ælə'bæmə] (亚拉巴马) — AL– Montgomery [mənt'gʌməri](蒙哥马利)
02. Alaska [ə'læskə] (阿拉斯加)   – AK– Juneau ['dʒu:nəu](朱诺)
03. Arizona [æri'zəunə] (亚利桑那) — AZ– Phoenix ['fi:niks](菲尼克斯)
04. Arkansas ['ɑ:kənsɔ:] (阿肯色) – AR–    Little rock(小石城)
05. California [,kæli'fɔ:njə](加利福尼亚) – CA– Sacramento [,sækrə'mentəu](萨克拉门托)
06. Colorado [,kʌlə'rɑ:dəu] (科罗拉多)   – CO– Denver ['denvə] (丹佛)
07. Connecticut [kə'netikət] (康涅狄格) – CT–   Hartford ['hɑ:tfəd] (哈特福德)
08. Delaware ['deləwɛə] (特拉华)   – DE–   Dover ['dəuvə](多佛)
09. Florida   ['flɔridə](佛罗里达)   – FL– Tallahassee [,tælə'hæsi](塔拉哈西)
10. Georgia ['dʒɔ:dʒjə](佐治亚) – GA– Atlanta [ət'læntə] (亚特兰大)
11. Hawaii [hə'waii:] (夏威夷) — HI– Honolulu [,hɔnə'lu:lu:] (檀香山)
12. Idaho ['aidəhəu](爱达荷) – ID– Boise ['bɔisi] (博伊西)
13. Illinois [,ili'nɔi(z)] (伊利诺伊)    – IL–   Springfield   ['spriŋfi:ld](斯普林菲尔德)
14. Indiana [,indi'ænə] (印第安纳) 　    — IN–   Indianapolis [,indiə'næpəlis] (印第安纳波利斯)
15. Iowa ['aiəwə] (艾奥瓦)    – IA– Des Moines (得梅因)
16. Kansas ['kænzəs](堪萨斯) — KS– Topeka [tə'pi:kə](托皮卡)
17. Kentucky [ken'tʌki; kən-] (肯塔基) – KY– Frankfort ['fræŋkfət](法兰克福)
18. Louisiana [lu:,i:zi'ænə] (路易斯安那) – LA– Baton Rouge [ru:ʒ, ru:dʒ](巴吞鲁日)
19. Maine [mein](缅因)    – ME– Augusta [ɔ:'gʌstə](奥古斯塔)
20. Maryland ['mεərilænd](马里兰) — MD– Annapolis [ə'næpəlis](安纳波利斯)
21. Massachusetts[,mæsə'tʃu:sits] (马萨诸塞) – MA Boston ['bɔstən](波士顿)
22. Michigan ['miʃiɡən] (密歇根) – MI– Lansing ['lænsiŋ](兰辛)
23. Minnesota [,mini'səutə](明尼苏达) – MN St. Paul(圣保罗)
24. Mississippi [ˌmisiˈsipi] (密西西比) – MS– Jackson(杰克逊)
25. Missouri [mi'zuəri](密苏里)    — MO– Jefferson City(杰斐逊城)
26. Montana [mɔn'tænə](蒙大拿)   – MT– Helena [he'li:nə](海伦娜)
27. Nebraska [ni'bræskə](内布拉斯加)   – NE– Lincoln ['liŋkən](林肯)
28. Nevada [ni'vædə](内华达)   – NV– Carson City(卡森城)
29. New hampshire ['hæmpʃə] (新罕布什尔) — NH Concord ['kɔŋkɔ:d] (康科德)
30. New jersey ['dʒə:zi](新泽西)    — NJ– Trenton ['trentən](特伦顿)
31. New mexico ['meksikəu](新墨西哥) — NM– Santa Fe ['sæntə](圣菲)
32. New york(纽约) – NY–   Albany ['ɔ:bəni] (奥尔巴尼)
33. North carolina [,kærə'lainə](北卡罗来纳) — NC Raleigh ['rɔ:li](纳罗利)
34. North dakota [də'kəutə] (北达科他)    — ND– Bismarck ['bizma:k](俾斯麦)
35. Ohio [əu'haiəu](俄亥俄)    –OH–   Columbus [kə'lʌmbəs](哥伦布)
36. Oklahoma [,əuklə'həumə](俄克拉何马) – OK–   Oklahoma City(俄克拉何马城)
37. Oregon ['ɔriɡən] (俄勒冈) – OR–   Salem ['seiləm](塞勒姆)
38. Pennsylvania [,pensil'veinjə] (宾夕法尼亚)– PA Harrisburg ['hærisbə:ɡ] (哈里斯堡)
39. Rhode island [rəud](罗得岛) — RL– Providence ['prɔvidəns](普罗维登斯)
40. South carolina(南卡罗来纳)     — SC– Columbia [kə'lʌmbiə](哥伦比亚)
41. South dakota [də'kəutə] (南达科他)    – SD–   Pierre [pi(:)'ɛə](皮尔)
42. Tennessee [,teni'si:] (田纳西)    – TN– 　 Nashville ['næʃvil](纳什维尔)
43. Texas ['teksəs] (德克萨斯)    — TX– Austin ['ɔ:stin] (奥斯汀)
44. Utah ['ju:tɑ:] (犹他)    — UT– Salt Lake City(盐湖城)
45. Vermont [və:'mɔnt](佛蒙特)    – VT– Montpelier [mɔnt'pi:ljə]( 蒙彼利埃)
46. Virginia [və(:)'dʒinjə](弗吉尼亚)    — VA–    Richmond ['ritʃmənd](里士满)
47. Washington ['wɔʃiŋtən](华盛顿)    — WA– Olympia [əu'limpiə] (奥林匹亚)
48. West virginia(西弗吉尼亚)   – WV– Charleston ['tʃa:lstən](查尔斯顿)
49. Wisconsin [wis'kɔnsin](威斯康星) – WI– Madison ['mædisən](麦迪逊)
50. Wyoming [wai'əumiŋ](怀俄明)    — WY– Cheyenne [ʃai'en](夏延)

分享到：

Job(JCL)返回码

snailgo — Mon, 28 Nov 2011 15:14:23 +0000

提交JCL最常见的返回码就是0、4、8、12、16，当然还有ABEND。

CC=0 作业正确执行(Executed Successfully)
CC=4 警告一般不影响作业执行 (Executed Successfully but with warnings)
CC=8 作业可以执行，但执行的不完整 (Error)
CC=12 作业不能执行 (Serious Error)
CC=16 严重错误，中断后续命令的执行(Fatal Error)
ABEND 作业异常终止

下面是一些常见的JCL ABEND CODES：
S0C4 : Protection Abend.Caused by the subscript being out of range
S0C5 : Addressing Abend.Caused by invalid address specification. i.e. The address points
to an instruction, control word or data outside the available real storage
S0C7 : Caused by a bad data. i.e. Data exception. When we are moving an alphanumeric field to a numeric computational field this Abend occurs. The result is an Abend failure
S222 : Caused by a job being cancelled by the operator, due to a request by the program for an unavailable resource.
S237 : Caused by end of volume being encountered.
S322 : Caused when CPU time assigned to the job, job step, or procedure has been exceeded. i.e. Time out error.
S413 : This abend occurs if the DD statement referenced by UNIT=AFF statement is not closed before the DD statement that comes before it.
S522 : Caused when a wait state exceeds an installation-defined time limit.
SB37 : Caused by lack of sufficient Secondary space
SD37 : Caused by lack of sufficient Primary space
SE37 : Caused by lack of space for PDS (Partitioned data set)
S722 :Too many lines of print.
S804 :Region too small for the program.
S806 :Program not on the library. May need a JOBLIB or STEPLIB.
S80A :Region too small for the program.
S913 :Security violation.
SB14 :No space in a library directory for this member’s name.
SB37 :Insufficient disk space.
S0C1 :Executing a program with an unresolved external reference.
S042 :Privileged Operation Abend.Read/write to unopened file
S0C6 :Specification Abend
S0CB :Attempting to divide by 0 and not using ON SIZE ERROR
U1002:Conflicting file attributes. See S013.
U1005:Executing with modules compiled both with RES and NORES
U1006:Subscript out of range
U1017:Missing DD statement in JCL for DISPLAY or ACCEPT verb
U1020:Problem opening or processing a file.Check the file status.
U1035:Conflicting DCB parameters. Same as S013.
U1056:Program didn’t close a file before ending
U4038:COBOL LE intercepted the Abend. Messages in CEEDUMP.

Job异常终止(Abend)的原因很多，返回码也是列不完的。上述仅仅是列举了稍微比较常见的abend返回码而已。在遇到具体返回码的时候，还是需要查manual,看job log。当然，如果你所在的公司恰好也安装了类似于MVS/QuickRef的帮助文档，那就再好不过了，只需一个命令：QW xxx即可随时查看返回码。具体可以参看我之前写的一篇文章： QW命令——MVS/QuickRef帮助文档。当然，如果没有安装这类的帮助文档，那也没关系，因为任何时候，Google和baidu都是你最好的帮手。

分享到：

利用IBM File Manager查看COPYBOOK

snailgo — Thu, 17 Nov 2011 09:45:18 +0000

这篇文章就来说下在大机上如何利用IBM File Manager来查看copybook的结构，特别是每个字段的起始位置。

1.在Command栏输入0;5;1 设置自动检测语言
这样，不论你的copybook是PLI的还是COBOL的，FileManager都能自动检测出来。

2.设置好之后，进入3；13 (Utility->Copybook)
这里填写copybook的路径和member名，member栏也可以不写
接着就能查看copybook内容了，特别是查看某个字段起始位置的时候特别有用。

上面的MYPLICPY是PLI的copybook，COBOL的这里就不上图了，上图很累的。

分享到：