ABENDED S000 U4088 REASON CODE=000003EC

Sub一个job遇到错误:

ABENDED S000 U4088 REASON CODE=000003EC

Abend原因:

The U4088 RC=3EC abend in CEEPLPKA occurred because C:D 4.8.00 ran out of below the line storage

解决办法:

Change region to REGION=0M

000001 //IBMUSER JOB  0RQ00XXXXX                                00010TEST,    
000002 // 'IBMUSER',CLASS=3,MSGCLASS=R,REGION=0 ...
more ...

常用的CICS命令

我们可以在COBOLPL/IAssembler等应用程序中写CICS命令,在COBOLPL/I中,格式分别如下所示:

COBOL
EXEC CICS function[option[(arg)]]... END-EXEC
PL/I
EXEC CICS function[option[(arg)]]... ; (末尾有分号)

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

EXEC CICS ABEND [ABCODE(arg)]
EXEC CICS ASKTIME ...
more ...

PL/I编译器版本

PL/I编译器的版本,如下所示:

Product        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 ...
more ...

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

我在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 ...

more ...

利用SRCHFOR在PDS中搜索字符串

之前的文章说到了一个叫Mem xxx 的命令可以用来在一系列PDS中搜索一个名字叫做xxx的member,今天我来说下如何在一个PDS里面所有的member内容当中搜索特定字符串。其实就是利用search-for 的应用程序,比较常规的方法是道ISPF3.14菜单里面搜索,如下图所示,就是在 "IBMUSER.PROJ.TEST.JCL"这个PDS里面所有的member内容中,搜索一个叫"STRING"的字符串: 1
当然,如果你想直接在当前PDS下调用search-for utility来搜索特定字符串,可以在command line上输入命令:

SRCHFOR "STRING"

来在当前PDS下面搜索字符串”STRING“,具体如下面2张截图所示: 1
1
如果想同时在多个PDS当中搜索一个字符串,或者多个字符串那么该如何做呢?这时你可能就需要用到JCL来调用ISRSUPC这个utility了。这个ISRSUPC的功能可强大多了,具体可以参照下我之前的文章: <<用ISRSUPC在PDS所有member中搜索指定字符串>>,这里不重复了。

more ...

Job(JCL)返回码

提交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 ...

more ...

利用IBM File Manager查看COPYBOOK

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

1.在Command栏输入0;5;1 设置自动检测语言

这样,不论你的copybook是PLI的还是COBOL的,FileManager都能自动检测出来。 1
1

2.设置好之后,进入3;13 (Utility-&gt;Copybook)

1

这里填写copybook的路径和member名,member栏也可以不写:

1

接着就能查看copybook内容了,特别是查看某个字段起始位置的时候特别有用。

1

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

Changeman的Stage和Checkout

把一个component(比如程序PRGM001)弄到package里面去有两种方法:一是stage,二是checkout

Stage

所谓的stage就是当生产环境上面没有的,而你要将一个新的component弄到生产上面去的时候用stage。比如生产环境上面没有PRGM001这个程序,如果你最终想把这个程序通过Changeman安装到生产环境,那你就得现在自己的PDS下面建一个名为PRGM001的程序:

TESTUID.PRGMLIB(PRGM001)

然后stage到changeman里面去,具体做法是在ISPF输入:

C;1;5;

输入你的Package ID,回车 在Package前面输入命令:

 S1

1

Checkout

和stage不同,checkout是针对那些已经存在于生产环境里面的components。它们是有版本之分的,比如你要Checkout一个现在已经存在于生产环境的PRGM002,在Package前面输入命令

 C1

1
这里注意一下SOURCE LIBRARY. SOURCE LIBRARY=0 说明checkout的是当前生产环境baseline里面的最新版本。 SOURCE LIBRARY=-1说明checkout的是比当前生产环境baseline旧的一个版本。 以此类推...
最后,在Package ID前面输入命令S2,查看package里面所有的components ...

more ...

IBM大型机12月16日起支持Windows系统[转载]

本文来源——http://www.sina.com.cn 2011年11月07日 15:58 新浪科技微博 新浪科技讯 北京时间11月7日下午消息,据美国IT网站ComputerWorld报道,IBM大型机将从今年12月中旬开始支持Windows系统。

IBM此前就有意在zEnterprise 196大型机中采用Windows系统。根据IBM发布的最新消息,该公司大型机将从今年12月16日起支持Windows管理功能。用户一直希望数据中心有新的功能。当前,有许多基于Windows的应用可支持大型机获取数据,其中就包括IBM制造的许多应用。但此类应用现在必须单独管理。 IBM表示,支持Windows系统将有助于提高大型机企业环境的安全性和速度,同时让用户可以在私人网络上连接系统,避免其他网络问题,实现一体化管理。IBM System z部门业务主管格雷格·洛特科(Greg Lotko)说:“之所以增加对Windows系统的支持,是因为IBM真正认识到这个世界的复杂性。”

洛特科补充说,从今往后,IBM System z平台可以支持z /OSLinuxUnixWindows等多套系统 ...

more ...

COBOL编码规则

苦逼的COBOL们一定知道和JCL一样,在写COBOL程序的时候对源码的区域也有一定的制约的,具体如下表所示:
1

第7列用来说明程序所在行的用途:

连接符(-): 表示本行是上一行的续行;
('D'): 表示查错; 星号('*'): 表示注解;

下面的COBOL程序元素必须从A区域开始:

部(DIVISION)和节(SECTION)的标题
段名 程序结尾(End Program)标题
级别标示符如FD或者SD等,级别号如01级和77级

下面这些COBOL元素必须从B区域开始:

语句句子短语继续行

[注:本文内容源自:《IBM主机技术一本通》]
more ...