| MVS Console | 表头2 |
|---|---|
| D A,L | Display all active AS |
| D ASM | Display PAGE DS |
| D ASM,ALL | Display PAGE DS |
| D ASM,PAGE=page_dsname | Display PAGE DS |
| D C | Display Console |
| D CF | Display CF |
| D ETR | Display SYSPLEX timer |
| D GRS,ALL | Display GRS |
| D GRS,RES=(*,dsname) | Display DS ENQ |
| D IOS,CONFIG | Display IODF |
| D IPLINFO | Display IPLINFO |
A
Posts made by admin
-
Mainframe Useful Commandsposted in DATA MANAGEMENT SYSTEMS
-
IMS DL/I Return Code List and Explanationsposted in DATA MANAGEMENT SYSTEMS
A List of IMS DL/I Return Codes with short explanations.
IMS DL/I Return Codes Explanations
blank call completed successfully
AA the alternate PCB contains a transaction code instead of a logical terminal as a destination
AB segment I/O area is missing from call statement
AC hierarchical error on insert or get call
AD function argument is not coded correctly
AF size of variable length record is invalid for GSAM get access
AH invalid SSA encountered on insert call
AI error opening database
AJ SSA specified for the call is invalid
AK field name specified for qualified SSA is incorrectly coded
AL batch program has issued a ROLS, ROLB, or SETS call and either the system log does not reside on disk or dynamic backout is not specified
AM function specified is not compatible with one of segment sensitivity, program type, or PCB processing
AO a physical I/O error has occurred
AP a CHKP function issued a transaction oriented BMP or a message call has more than 4 parameters
AT I/O area specified is too small
AU length for SSAs specified exceeds the maximum allowed
AY logical terminal name found in a response alternate PCB has more than one physical terminal assigned
AZ a PURG or ISRT was ignored in a conversational program
A1 logical terminal name specified incorrectly in I/O area for a CHNG call
A2 PCB specified incorrectly for a CHNG call
A3 PCB specified incorrectly for an ISRT or PURG call
A4 security violation
A5 parameter list specified incorrectly on ISRT or PURG call
A6 ISRT function message length exceeds allowable length
A7 ISRT function number of messages added exceeds maximum allowed
A8 ISRT function issued to a response alternate PCB must follow ISRT to I/O PCB and these statements are reversed
A9 ISRT function message to response alternate PCB ignored because SAMETRM=YES
BA call not completed because data is not available, operations by current call up to this error have been backed out
BB call not completed because data is not available, operations since last commit point have been backed out
CA CMD function command verb invalid
CB CMD function command from an AOI program not allowed
CC after command completed successfully, IMS returned one or more command responses
CD program does not have authority to execute a command listed in this CMD function
CE IMS rescheduled a message as a result of a call with the function GU since the last CMD call
CF message scheduled before IMS was started
CG message retrieved by GU originated from an AOI user exit
CH Automated Operator Interface (AOI) encountered a system error, current command not ignored
CI IMS rescheduled a message as a result of a call with the function GU since the last CMD call and message scheduled before IMS was started
CJ IMS rescheduled a message as a result of a call with the function GU since the last CMD call and message retrieved by GU originated from an AOI user exit
CK message scheduled before IMS was started and message retrieved by GU originated from an AOI user exit
CL IMS rescheduled a message as a result of a call with the function GU since the last CMD call, message scheduled before IMS was started, and message retrieved by GU originated from an AOI user exit
CM exception response occurred when executing a command issued via CMD call
CN value in PSBIOAZ field is incorrect
DA REPL or DLET attempted to change segment key field
DJ get hold issued after REPL or DLET
DX DLET violated delete rule for segment
FA arithmetic overflow error
FC call type and segment type are incompatible
FD resource deadlock
FE FLD function received non blank status code in FSA
FF MSDB did not contain free space when ISRT was issued
FG FLD function received non blank status code in FSA and program has used all of buffer pool
FH DEDB was not accessible when database call was issued or commit point was reached
FI I/O area address not accessible to program
FM randomizer did not return a DMAC address
FN field name of FSA undefined in DBD and FLD function issued
FP invalid hex or packed field in I/O area
FS buffer limit for region exceeded
FT number of SSAs exceeds limit of 15 for DEDB or 1 for MSDB
FV verify operation failed at commit point
FW program has used all of buffer pool
GA call completed successfully but higher level crossed for GN or GNP call
GB end of database reached on GN call
GC attempted to cross unit-of-work boundary
GD position in database lost
GE segment not found
GG processing with procopt of GON or GOT and concurrent update activity is occurring
GK call completed successfully but different segment type on same level retrieved for GN or GNP call
GL LOG request has an invalid log code
GP GNP issued but parentage was not previously established
II attempt to insert a segment with a duplicate key
IX insert rule violation
LB attempt to load a segment that already exists
LC attempt to load a segment out of sequence
LD attempt to load a segment whose parent does not exist
LE hierarchical sequence in DBD does not match that in the segment to be loaded
MR terminal name invalid on ISRT message call
NA one or more databases not available
NE during index maintenance, a segment was not found
NI unique secondary index but duplicate key encountered
NO physical I/O error
NU information only, REPL DLET or ISRT may return BA status code
QC GU message request failed
QD GN requested but no more message segments exist
QE GN not followed by GU message request
QF length of message segment is less than 5 bytes
QH terminal symbolic error encountered
RA token does not match any on an outstanding SETS call
RC ROLS call was rejected
RX replace rule violation
SA storage space for I/O area unavailable on SETS call
SB attempted to set 10 levels (only 9 are allowed)
SC SETS call was rejected
TA CICS command level failed because PSB is not defined
TC PSB in use by previous request
TE unable to initialize the specified PSB
TG no PSB scheduled for program
TH no PSB scheduled for program
TI path to segment is invalid
TJ DL/I is not active
TL encountered conflict in scheduling intent
TN invalid system DIB was found
TO path replace error found
TP PROCOPT invalid
TQ I/O PCB access not allowed in a local DL/I call
TR CICS XDLIPRE exit cancelled a request
TY database is not open
TZ segment length longer than 64k
UC during batch processing, a checkpoint record was written to the utility control facility (UCF) dataset
UR during batch processing, IPL is restarted under UCF
US during batch processing, an IPL is halted
UX during batch processing both checkpoint and program halted
VI during an insert or update length of variable length segment is too long -
使用appnode是网站访问协议变成httpsposted in Linux
安装Let's Encrypt
进入APPNODE，在软件管家里找到Let's Encrypt，安装后创建帐户
然后新建证书
填入你的域名，开始创建。
进入网站管理，选择你刚刚填入的网站。
网站设置-->HTTPS-->选择手动配置并导入证书
输入网址后自动变为https。
-
CentOS + Mongodb安装NodeBBposted in Linux
环境
关闭 SELinux
vim /etc/sysconfig/selinux找到 SELINUX 然后修改成 disabled .
SELINUX = disabled
安装APPNODE
INSTALL_AGENT=1 INSTALL_APPS=sitemgr INIT_SWAPFILE=1 INSTALL_PKGS='nginx-stable,php56(zend-guard-loader),pureftpd,mysql56' bash -c "$(curl -sS http://dl.appnode.com/install.sh)"
AppNode是 Linux 下的一款集群部署的可视化控制面板，一键安装，具体功能的体验。
提供：
可视化管理，提升运维效率
快速安装，轻松升级
轻便高效，节约系统资源
将支持主流的 Linux 发行版本 (目前仅支持 CentOS)
集中式设计，快速切换管理
软件丰富，按需安装
遵循通用规范，系统更原汁原味
开放的 API 结构，便于扩展和整合
AppNode 提供系统信息、软件管家、文件管理、服务管理、进程管理、防火墙管理、 用户管理等基本的
Linux运维功能，通过可视化操作界面降低了 Linux 使用的门槛。进入APPNODE，在软件管家安装node.js
同样安装PM2进程管理
安装Redis
Redis 是一个优秀的内存缓存应用，也是 NodeBB 的一个数据库选择。
-
搜索 “Redis”
-
一键安装
然后启动，并勾选自启，守护。
安装MongoDB
NodeBB 推荐使用 MongoDB ，但APPNODE里面搜不到，所以需要通过终端来安装。
vim /etc/yum.repos.d/mongodb-org-3.4.repo -------------------------------------------------------------- [mongodb-org-3.4] name=MongoDB Repository baseurl=https://repo.mongodb.org/yum/redhat/$releasever/mongodb-org/3.4/x86_64/ gpgcheck=1 enabled=1 gpgkey=https://www.mongodb.org/static/pgp/server-3.4.asc安装
yum -y install mongodb-org使用以下指令以启动 MongoDB 并设置开机自启。
systemctl enable mongod systemctl start mongod配置MongoDB
[root@li1877-76 ~]# mongo MongoDB shell version v3.4.13 .... > use nodebb; switched to db nodebb > db.createUser( { user: "nodebb", pwd: "********", roles: [ { role: "readWrite", db: "nodebb" }, { role: "clusterMonitor", db: "admin" } ] } ) Successfully added user: { "user" : "nodebb", "roles" : [ { "role" : "readWrite", "db" : "nodebb" }, { "role" : "clusterMonitor", "db" : "admin" } ] } > use admin switched to db admin > db.createUser( { user: "admin", pwd: "********", roles: [ { role: "readWriteAnyDatabase", db: "admin" }, { role: "userAdminAnyDatabase", db: "admin" } ] } ) Successfully added user: { "user" : "admin", "roles" : [ { "role" : "readWriteAnyDatabase", "db" : "admin" }, { "role" : "userAdminAnyDatabase", "db" : "admin" } ] } > quit() [root@li1877-76 ~]# vi /etc/mongod.conf ------------------------ security: authorization: enabled ------------------------ [root@li1877-76 ~]# service mongod restart Redirecting to /bin/systemctl restart mongod.service [root@li1877-76 ~]# mongo -u admin -p ******** --authenticationDatabase=admin MongoDB shell version v3.4.13 connecting to: mongodb://127.0.0.1:27017 MongoDB server version: 3.4.13 > quit()打开 MongoDB 权限认证
执行 vi /etc/mongod.conf ，找到 security: 这一行，取消注释并改为：security: authorization: enabled
获取nodebb
首先重启一下服务器
git clone -b v1.7.x https://github.com/NodeBB/NodeBB.git nodebb cd nodebb ./nodebb setup注意事项：
- URL used to access this NodeBB 这个问题填写域名http://www.xxx.com（别漏下 http前缀，域名末尾不加 / ）
- 另外，NodeBB会默认监听本地端口 4567 ，我们后面还要使用 nginx 转发 80 端口的请求到4567 端口。
- 中间还有两次需要回答问题 Which database to use ，
第一次是回答数据库程序名 mongo ，第二次回答所创建的数据库名 nodebb - 这些回答都将被写入 NodeBB 的配置文件config.json，如果答错了可以随后手动修改
nginx配置
打开APPNODE
PM2配置
创建用PM2守护进程，并重启，nodebb已经成功上线！
-
-
bwh1-使用ezhttp选择php5.2版本后无法使用phpmyadminposted in Linux
关于ezhttp就不多解释了，贴个link过去看看，很详细的。
wget --no-check-certificate centos.bz/ezhttp.zip?time=$(date +%s) -O ezhttp.zip unzip ezhttp.zip cd ezhttp-master chmod +x start.sh ./start.shezhttp默认版本的phpmyadmin不支持php5.2，所以需要自己重新下载个低版本的。
wget https://files.phpmyadmin.net/phpMyAdmin/4.0.10.19/phpMyAdmin-4.0.10.19-all-languages.tar.gz tar xzvf phpMyAdmin-4.0.10.19-all-languages.tar.gz mkdir -p /home/wwwroot/phpmyadmin cp -a phpMyAdmin-4.0.10.19-all-languages/* /home/wwwroot/phpmyadmin sed -i '1aexit;' /home/wwwroot/phpmyadmin/version_check.php这样就可以访问了。
-
CentOS6.5下安装MongoDB v3.05posted in Linux
Linode的VPS准备在月底就终止续费了，所以尽可能多花时间在上面折腾。准备试着部署一下Nodeclub，看说明写的是
Node.js系统上已经有了，就先开始安装MongoDB吧。
[root@li1473-187 ~]# wget https://fastdl.mongodb.org/linux/mongodb-linux-x86_64-rhel62-3.0.5.tgz [root@li1473-187 ~]# tar -zxvf mongodb-linux-x86_64-rhel62-3.0.5.tgz [root@li1473-187 ~]# mv mongodb-linux-x86_64-rhel62-3.0.5 mongodb [root@li1473-187 ~]# mv mongodb /usr/local/ [root@li1473-187 ~]# cd /usr/local/mongodb [root@li1473-187 mongodb]# ls bin GNU-AGPL-3.0 README THIRD-PARTY-NOTICES [root@li1473-187 mongodb]# mkdir db [root@li1473-187 mongodb]# mkdir logs [root@li1473-187 mongodb]# cd bin [root@li1473-187 bin]# ls bsondump mongod mongoexport mongoimport mongoperf mongos mongotop mongo mongodump mongofiles mongooplog mongorestore mongostat [root@li1473-187 bin]# vim mongodb.conf dbpath=/usr/local/mongodb/db logpath=/usr/local/mongodb/logs/mongodb.log port=27017 fork=true nohttpinterface=true [root@li1473-187 bin]# /usr/local/mongodb/bin/mongod --config /usr/local/mongodb/bin/mongodb.conf about to fork child process, waiting until server is ready for connections. forked process: 26170 child process started successfully, parent exitingMongoDB已经启动起来了。下面加入开机自动启动mongodb
[root@li1473-187 bin]# vim /etc/rc.d/rc.local /usr/local/mongodb/bin/mongod --config /usr/local/mongodb/bin/mongodb.conf [root@li1473-187 bin]# ps -ef|grep mongo root 26170 1 0 15:30 ? 00:00:00 /usr/local/mongodb/bin/mongod --config /usr/local/mongodb/bin/mongodb.conf root 26794 21916 0 15:31 pts/3 00:00:00 grep mongo重启系统后进入MongoDB
[root@li1473-187 ~]# /usr/local/mongodb/bin/mongo MongoDB shell version: 3.0.5 connecting to: test Server has startup warnings: 2017-02-15T15:46:30.303+0800 I CONTROL [initandlisten] ** WARNING: You are running this process as the root user, which is not recommended. 2017-02-15T15:46:30.303+0800 I CONTROL [initandlisten] > show dbs local 0.078GB > exit bye [root@li1473-187 ~]#测试可用，OVER！
-
CentOS6.5下Redis v3.03安装posted in Linux
在CentOS6.5下安装Redis v3.03
[root@li1473-187 ~]# wget http://download.redis.io/releases/redis-3.0.3.tar.gz [root@li1473-187 ~]# tar xzf redis-3.0.3.tar.gz [root@li1473-187 redis-3.0.3]# ls 00-RELEASENOTES CONTRIBUTING deps Makefile README runtest runtest-sentinel src utils BUGS COPYING INSTALL MANIFESTO redis.conf runtest-cluster sentinel.conf tests [root@li1473-187 redis-3.0.3]# make [root@li1473-187 redis-3.0.3]# cd src && make install Hint: It's a good idea to run 'make test' 😉 INSTALL install INSTALL install INSTALL install INSTALL install INSTALL install [root@li1473-187 src]# make test You need tcl 8.5 or newer in order to run the Redis test make: *** [test] Error 1提示需要安装tcl8.5
# wget http://downloads.sourceforge.net/tcl/tcl8.5.9-src.tar.gz # tar -zxvf tcl8.5.9-src.tar.gz # cd /tcl8.5.9-src/unix./configure make make install再重新执行make test
[root@li1473-187 src]# make test \o/ All tests passed without errors! Cleanup: may take some time... OK make[1]: Leaving directory '/root/redis-3.0.3/src'输入./src/redis-server启动 redis
[root@li1473-187 redis-3.0.3]# ./src/redis-server 11304:C 15 Feb 15:58:37.819 # Warning: no config file specified, using the default config. In order to specify a config file use ./src/redis-server /path/to/redis.conf _._ _.-``__ ''-._ _.-`` `. `_. ''-._ Redis 3.0.3 (00000000/0) 64 bit .-`` .-```. ```\/ _.,_ ''-._ ( ' , .-` | `, ) Running in standalone mode |`-._`-...-` __...-.``-._|'` _.-'| Port: 6379 | `-._ `._ / _.-' | PID: 11304 `-._ `-._ `-./ _.-' _.-' |`-._`-._ `-.__.-' _.-'_.-'| | `-._`-._ _.-'_.-' | http://redis.io `-._ `-._`-.__.-'_.-' _.-' |`-._`-._ `-.__.-' _.-'_.-'| | `-._`-._ _.-'_.-' | `-._ `-._`-.__.-'_.-' _.-' `-._ `-.__.-' _.-' `-._ _.-' `-.__.-'打开另一个SSH，显示如下已经成功。
[root@li1473-187 ~]# ./redis-3.0.3/src/redis-cli 127.0.0.1:6379> set foo bar OK 127.0.0.1:6379> get foo "bar" 127.0.0.1:6379>修改 redis-3.0.3下配置文件
[root@li1473-187 redis-3.0.3]# nano redis.conf 找到 daemonize no 这项修改为 yes 使服务端运行在后台 新建 redis service脚本 [root@li1473-187 redis-3.0.3]# touch /etc/rc.d/init.d/redis编辑/etc/rc.d/init.d/redis
#!/bin/sh #chkconfig: 2345 86 14 #description: Startup and shutdown script for Redis PROGDIR=/usr/redis #安装路径 PROGNAME=redis-server DAEMON=$PROGDIR/$PROGNAME CONFIG=/usr/redis/redis.conf PIDFILE=/var/run/redis.pid DESC="redis daemon" SCRIPTNAME=/etc/rc.d/init.d/redis start() { if test -x $DAEMON then echo -e "Starting $DESC: $PROGNAME" if $DAEMON $CONFIG then echo -e "OK" else echo -e "failed" fi else echo -e "Couldn't find Redis Server ($DAEMON)" fi } stop() { if test -e $PIDFILE then echo -e "Stopping $DESC: $PROGNAME" if kill `cat $PIDFILE` then echo -e "OK" else echo -e "failed" fi else echo -e "No Redis Server ($DAEMON) running" fi } restart() { echo -e "Restarting $DESC: $PROGNAME" stop start } list() { ps aux | grep $PROGNAME } case $1 in start) start ;; stop) stop ;; restart) restart ;; list) list ;; *) echo "Usage: $SCRIPTNAME {start|stop|restart|list}" >&2 exit 1 ;; esac exit 0进入
redis-3.0.3的src目录执行下面操作[root@li1473-187 src]# mkdir /usr/redis [root@li1473-187 src]# cp redis-server /usr/redis [root@li1473-187 src]# cp redis-benchmark /usr/redis [root@li1473-187 src]# cp redis-cli /usr/redis [root@li1473-187 src]# cp redis.conf /usr/redis cp: cannot stat 'redis.conf': No such file or directory [root@li1473-187 src]# cd .. [root@li1473-187 redis-3.0.3]# ls 00-RELEASENOTES CONTRIBUTING deps Makefile README runtest runtest-sentinel src utils BUGS COPYING INSTALL MANIFESTO redis.conf runtest-cluster sentinel.conf tests [root@li1473-187 redis-3.0.3]# cp redis.conf /usr/redis [root@li1473-187 redis-3.0.3]#增加服务并设置开机启动。
[root@li1473-187 rc.d]# chkconfig --add redis service redis does not support chkconfig [root@li1473-187 rc.d]# vim /etc/init.d/redis 如果没加#chkconfig: 2345 86 14就会出现上面的错误。 [root@li1473-187 rc.d]# chkconfig --add redis [root@li1473-187 rc.d]# chkconfig --level 2345 redis on [root@li1473-187 rc.d]# chkconfig --list redis redis 0:off 1:off 2:on 3:on 4:on 5:on 6:off [root@li1473-187 rc.d]# -
CentOS6.5安装部署Nodeclubposted in Linux
GitHub上是这样写的
1. 安装 `Node.js/io.js[必须]` `MongoDB[必须]` `Redis[必须]` 2. 启动 MongoDB 和 Redis 3. `$ make install` 安装 Nodeclub 的依赖包 4. `cp config.default.js config.js` 请根据需要修改配置文件 5. `$ make test` 确保各项服务都正常 6. `$ node app.js` 7. visit `http://localhost:3000` 8. done!前面准备工作已经做完，现在git一份源码吧
[root@li1473-187 ~]# git --version git version 1.7.1 [root@li1473-187 ~]# git clone https://github.com/cnodejs/nodeclub.git Initialized empty Git repository in /root/nodeclub/nodeclub/.git/ remote: Counting objects: 10273, done. remote: Total 10273 (delta 0), reused 0 (delta 0), pack-reused 10273 Receiving objects: 100% (10273/10273), 9.01 MiB | 3.35 MiB/s, done. Resolving deltas: 100% (6639/6639), done. [root@li1473-187 ~]# ls nodeclub [root@li1473-187 ~]# mv nodeclub /home/wwwroot/ [root@li1473-187 ~# cd /home/wwwroot/ [root@li1473-187 wwwroot]# ls default ghost Ghost-0.7.4-zh-full.zip ghost1 nodeclub testweb wordpress-4.7.2-zh_CN.tar.gz [root@li1473-187 wwwroot]# cd nodeclub [root@li1473-187 nodeclub]# cp config.default.js config.js [root@li1473-187 nodeclub]# vim config.js [root@li1473-187 nodeclub]# make install warn不要紧 [root@li1473-187 nodeclub]# node app.js [2017-02-15 20:37:25.587] [INFO] cheese - NodeClub listening on port 3000 [2017-02-15 20:37:25.588] [INFO] cheese - God bless love.... [2017-02-15 20:37:25.589] [INFO] cheese - You can debug your app with http://localhost:3000 [2017-02-15 20:37:25.589] [INFO] cheese -成功启动。
配置Nginx
[root@li1473-187 ~]# cd /usr/local/nginx/conf/vhost [root@li1473-187 vhost]# ls ghost.kokwind.net.conf test.kokwind.net.conf [root@li1473-187 vhost]# cp ghost.kokwind.net.conf club.kokwind.net [root@li1473-187 vhost]# vim club.kokwind.net server { listen 80; #listen [::]:80; server_name club.kokwind.net; index index.html index.htm index.php default.html default.htm default.php; root /home/wwwroot/nodeclub; include none.conf; #error_page 404 /404.html; include enable-php.conf; location / { proxy_set_header X-Real-IP $remote_addr; proxy_set_header Host $http_host; proxy_pass http://localhost:3000; proxy_set_header REMOTE-HOST $remote_addr; proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for; } access_log /home/wwwlogs/nodeclub.log; } [root@li1473-187 vhost]# /etc/init.d/nginx reload Reload service nginx... done [root@li1473-187 vhost]# cd /home/wwwroot/nodeclub/ [root@li1473-187 nodeclub]#使用pm2启动，pm2安装使用参考这里
[root@li1473-187 nodeclub]# pm2 start app.js [PM2] Spawning PM2 daemon with pm2_home=/root/.pm2 [PM2] PM2 Successfully daemonized [PM2] Starting /home/wwwroot/nodeclub/app.js in fork_mode (1 instance) [PM2] Done. ┌──────────┬────┬──────┬──────┬────────┬─────────┬────────┬─────┬───────────┬──────────┐ │ App name │ id │ mode │ pid │ status │ restart │ uptime │ cpu │ mem │ watching │ ├──────────┼────┼──────┼──────┼────────┼─────────┼────────┼─────┼───────────┼──────────┤ │ app │ 0 │ fork │ 5431 │ online │ 0 │ 0s │ 0% │ 10.5 MB │ disabled │ └──────────┴────┴──────┴──────┴────────┴─────────┴────────┴─────┴───────────┴──────────┘ Use `pm2 show <id|name>` to get more details about an app [root@li1473-187 nodeclub]#打开网址
-
在centos下安装nodejs, npm和Ghost博客posted in Linux
之前研究过一段时间的Node.js，也找到过几个不错的站，其中Ghost博客就是一个用Node.js写的开源博客，好久没弄了，接下来尝试在新环境配置一下。
默认是装过LNMP环境的，如果没有，先装nginx
sudo yum install nginx -y sudo service nginx start 开启nginx sudo chkconfig nginx on 设置nginx为开机启动首先安装Node.js和npm
[root@li1473-187 ~]# node -v -bash: node: command not found [root@li1473-187 ~]# curl -sL https://rpm.nodesource.com/setup | bash - [root@li1473-187 ~]# yum install -y nodejs [root@li1473-187 ~]# yum install -y gcc-c++ make [root@li1473-187 ~]# node -v v0.10.48 [root@li1473-187 ~]# curl -L https://www.npmjs.com/install.sh | sh [root@li1473-187 ~]# npm -v 4.2.0 [root@li1473-187 ~]# sudo ln -s /usr/local/bin/node /usr/bin/node ln: creating symbolic link `/usr/bin/node': File exists接下来下载Ghost博客
[root@li1473-187 ~]# curl -L https://ghost.org/zip/ghost-latest.zip -o ghost.zip % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 100 4091k 100 4091k 0 0 82370 0 0:00:50 0:00:50 --:--:-- 237k [root@li1473-187 ~]# unzip -uo ghost.zip -d ghost [root@li1473-187 ~]# mv ghost /home/wwwroot/ [root@li1473-187 ~]# cd /home/wwwroot/ [root@li1473-187 wwwroot]# ls default ghost testweb wordpress-4.7.2-zh_CN.tar.gz[root@li1473-187 wwwroot]# cd ghost/ [root@li1473-187 ghost]# npm install –production npm WARN npm npm does not support Node.js v0.10.48 npm WARN npm You should probably upgrade to a newer version of node as we npm WARN npm can't make any promises that npm will work with this version. npm WARN npm You can find the latest version at https://nodejs.org/ npm ERR! arg Argument starts with non-ascii dash, this is probably invalid: [ '–production' ] npm ERR! addLocal Could not install /home/wwwroot/ghost/–production3.安装到这里后发现版本不支持，卸载掉再研究吧。
[root@li1473-187 ~]# yum remove nodejs npm -y重新安装Node.js，根据Ghost官方的建议，这次安装v0.10.40版本
[root@li1473-187 ~]# wget http://nodejs.org/dist/v0.10.40/node-v0.10.40.tar.gz [root@li1473-187 ~]# tar zxvf node-v0.10.40.tar.gz [root@li1473-187 ~]# cd node-v0.10.40 [root@li1473-187 ~]# ./configure [root@li1473-187 ~]# make && make install [root@li1473-187 ~]# node -v v0.10.40 [root@li1473-187 ~]# npm -v 1.4.28下载Ghost
[root@li1473-187 ~]# wget http://dl.ghostchina.com/Ghost-0.7.4-zh-full.zip [root@li1473-187 ~]# unzip Ghost-0.7.4-zh-full.zip -d ghost [root@li1473-187 ~]# mv ghost /home/wwwroot/ [root@li1473-187 ghost]# cd /home/wwwroot/ [root@li1473-187 wwwroot]# chmod -R 777 ghost chmod: changing permissions of 'ghost/.user.ini': Operation not permitted [root@li1473-187 wwwroot]# cd ghost [root@li1473-187 ghost]# cp config.example.js config.js [root@li1473-187 ghost]# ls config.example.js content Gruntfile.js LICENSE npm-shrinkwrap.json PRIVACY-en.md README-en.md SECURITY-en.md config.js core index.js node_modules package.json PRIVACY.md README.md [root@li1473-187 ghost]# vim config.js production: { url: 'http://ghost.kokwind.net', 如果选择使用sqlite则在config.js中只需要修改url地址 mail: {}, database: { client: 'sqlite3', connection: { filename: path.join(__dirname, '/content/data/ghost.db') }, debug: false },Ghost-0.7.4-zh-full这个版本默认集成 sqlite3 原生库，因sqlite读写数据量太大时会影响速度，我们也可以改用mysql
首先 使用phpmyadmin，添加用户和数据库
修改config.js，变成mysql
[root@li1473-187 ~]# vim config.js production: { url: 'http://ghost.kokwind.net', //这里是你自己VPS主机的域名 mail: {}, database: { client: 'mysql' connection: { host : '127.0.0.1', user : 'ghost', //mysql用户名 password : 'xxxxxxxx', //密码 database : 'ghost', //之前创建的ghost数据库名称 charset : 'utf8' }, server: { host: '127.0.0.1', port: '2368'//若修改该端口记得在nginx中做相应改变 } }配置nginx，PS：之前忘了写，在搬瓦工上配置才想起来，贴过来补上。
[root@localhost ~]# cd /usr/local/nginx/conf/vhost [root@localhost vhost]# cp www.kokwind.net.conf blog.kokwind.net.conf [root@localhost vhost]# vim blog.kokwind.net.conf server { listen 80; #listen [::]:80; server_name xxx.kokwind.net; <-- 网址 index index.html index.htm index.php default.html default.htm default.php; root /home/wwwroot/ghost; <-- ghost路径 include none.conf; #error_page 404 /404.html; include enable-php.conf; location / { proxy_set_header X-Real-IP $remote_addr; proxy_set_header Host $http_host; proxy_pass http://127.0.0.1:2368; proxy_set_header REMOTE-HOST $remote_addr; proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for; } access_log /home/wwwlogs/ghost.log; } [root@localhost vhost]# /etc/init.d/nginx reload Reload service nginx... done现在可以启动ghost博客了
[root@li1473-187 ~]# cd /home/wwwroot [root@li1473-187 wwwroot]# cd ghost [root@li1473-187 ghost]# ls config.example.js content Gruntfile.js LICENSE npm-debug.log package.json PRIVACY.md README.md config.js core index.js node_modules npm-shrinkwrap.json PRIVACY-en.md README-en.md SECURITY-en.md [root@li1473-187 ghost]# npm start > ghost@0.7.4 start /home/wwwroot/ghost > node index Migrations: Up to date at version 004 Ghost is running in development... Listening on 127.0.0.1:2368 Url configured as: http://localhost:2368 Ctrl+C to shut down访问网址可以看到
如果是通过 npm start 启动 Ghost 的话，只要你关闭了远程连接，Ghost 也就停了，所以需要安装 forever
[root@li1473-187 bin]# which node /usr/local/bin/node [root@li1473-187 bin]# ln -s /usr/local/bin/node /usr/bin/node [root@li1473-187 bin]# npm install forever -g注意：这条指令将 forever 安装到全局环境。安装的时候系统会提示一些 WARN，这是因为 forever 依赖的 Node.js 版本过低，没关系，不用理会。
[root@li1473-187 ~]# service nginx restart Stoping nginx... done Starting nginx... done [root@li1473-187 ~]# cd /home/wwwroot/ghost [root@li1473-187 ghost]# NODE_ENV=production forever start index.js warn: --minUptime not set. Defaulting to: 1000ms warn: --spinSleepTime not set. Your script will exit if it does not stay up for at least 1000ms info: Forever processing file: index.js [root@li1473-187 ghost]#不顺利的开始，顺利的结局。over！
追记：
在搬瓦工上同样配置启动时，出现了下面的错误[root@localhost ghost]# npm start > ghost@0.7.4 start /home/wwwroot/ghost > node index ERROR: Cannot find module '/home/wwwroot/ghost/node_modules/sqlite3/lib/binding/node-v11-linux-ia32/node_sqlite3.node' Error: Cannot find module '/home/wwwroot/ghost/node_modules/sqlite3/lib/binding/node-v11-linux-ia32/node_sqlite3.node' at Function.Module._resolveFilename (module.js:338:15) at Function.Module._load (module.js:280:25)重装了一下sqlite3就好了
[root@localhost ghost]# npm install sqlite3 --save | > sqlite3@3.1.1 install /home/wwwroot/ghost/node_modules/sqlite3 > node-pre-gyp install --fallback-to-build -
使用SFTP协议上传下载文件到VPSposted in Linux
在VPS没有装FTP的情况下，我们想把文件上传或者下载下来，可以使用SFTP，Mac os使用软件Yummy FTP pro 百度网盘下载
-
搬瓦工bwh1-配置shadowsocksposted in Linux
购买一个搬瓦工的VPS（注：因为是openvz架构，官方现在不支持pptp和l2tp的VPN）
搬瓦工购买链接：点击
支持支付宝付款非常方便。购买成功后如下图
点击KiwiVM Control panel进入管理，使用SSH时的IP地址和端口，记得在左边菜单生成一下新的root密码。也可以安装新的OS，非常方便。
官方自带配置Shadowsocks Server，成功后显示如下
Mac os使用shadowsockx
Windows用上面显得的
安卓使用影梭
IOS下载windy -
Linode VPS折腾笔记-安装LNMPposted in Linux
LNMP一键安装包是一个用Linux Shell编写的可以为CentOS/RadHat/Fedora、Debian/Ubuntu/Raspbian/Deepin VPS或独立主机安装LNMP(Nginx/MySQL/PHP)、LNMPA(Nginx/MySQL/PHP/Apache)、LAMP(Apache/MySQL/PHP)生产环境的Shell程序。同时提供一些实用的辅助工具如：虚拟主机管理、FTP用户管理、Nginx、MySQL/MariaDB、PHP的升级、常用缓存组件Redis、Xcache等的安装、重置MySQL root密码、502自动重启、日志切割、SSH防护DenyHosts/Fail2Ban、备份等许多实用脚本。
都是复制过来的东西，下载地址和使用方法都在第一行的链接中，此处记录下来留存。
安装LNMPwget -c http://soft.vpser.net/lnmp/lnmp1.3-full.tar.gz && tar zxf lnmp1.3-full.tar.gz && cd lnmp1.3-full && ./install.sh lnmp按上述命令执行后，会出现如下提示：
需要设置MySQL的root密码（不输入直接回车将会设置为root）如果输入有错误需要删除时，可以按住Ctrl再按Backspace键进行删除。输入后回车进入下一步，如下图所示：
询问是否需要启用MySQL InnoDB，InnoDB引擎默认为开启，一般建议开启，直接回车或输入 y ，如果确定确实不需要该引擎可以输入 n，输入完成，回车进入下一步
选择MySQL版本，目前提供了较多版本的MySQL和MariaDB，需要注意的是MySQL 5.6,5.7及MariaDB 10必须在1G以上内存的更高配置上才能选择：
输入对应MySQL或MariaDB版本前面的序号，回车进入下一步，选择PHP版本：
注意：选择PHP7等高版本时需要自行确认是否与自己的程序兼容。
输入要选择的PHP版本的序号，回车进入下一步，选择是否安装内存优化：
可以选择不安装、Jemalloc或TCmalloc，输入对应序号回车，直接回车为默认为不安装。
如果是LNMPA或LAMP的话还会提示“Please enter Administrator Email Address:”，需要设置管理员邮箱，该邮箱会在报错时显示在错误页面上。
再选择Apache版本
按提示输入对应版本前面的数字序号，回车。
提示”Press any key to install…or Press Ctrl+c to cancel”后，按回车键确认开始安装。
LNMP脚本就会自动安装编译Nginx、MySQL、PHP、phpMyAdmin、Zend Optimizer这几个软件。安装时间可能会几十分钟到几个小时不等，主要是机器的配置网速等原因会造成影响。
如果显示Nginx: OK，MySQL: OK，PHP: OK
并且Nginx、MySQL、PHP都是running，80和3306端口都存在，并提示Install lnmp V1.3 completed! enjoy it.的话，说明已经安装成功。
添加虚拟主机参考：LNMP添加虚拟主机
[root@li1473-187 ~]# lnmp vhost add +-------------------------------------------+ | Manager for LNMP, Written by Licess | +-------------------------------------------+ | http://lnmp.org | +-------------------------------------------+ Please enter domain(example: www.lnmp.org): test.kokwind.net ====================================== Your domain: test.kokwind.net ====================================== Do you want to add more domain name? (y/n) n Please enter the directory for the domain: test.kokwind.net (Default directory: /home/wwwroot/test.kokwind.net): testweb Virtual Host Directory: testweb =========================== Allow Rewrite rule? (y/n) =========================== y Please enter the rewrite of programme: wordpress,discuz,typecho,sablog,dabr rewrite was exist. (Default rewrite: other):wordpress =========================== You choose rewrite=wordpress =========================== =========================== Allow access_log? (y/n) =========================== y Enter access log name(Default access log file:test.kokwind.net.log): testweb You access log filename: testweb.log ====================================================== Create database and MySQL user with same name (y/n) ====================================================== y Enter current root password of Database (Password will not shown): OK, MySQL root password correct. Enter database name: testweb Your will create a database and MySQL user with same name: testweb Please enter password for mysql user testweb: test1234web Your password: xxxxxxxxx Press any key to start create virtul host... Create Virtul Host directory...... set permissions of Virtual Host directory...... You select the exist rewrite rule:/usr/local/nginx/conf/wordpress.conf Gracefully shutting down php-fpm . done Starting php-fpm done Test Nginx configure file...... nginx: the configuration file /usr/local/nginx/conf/nginx.conf syntax is ok nginx: configuration file /usr/local/nginx/conf/nginx.conf test is successful Restart Nginx...... Add database Sucessfully. ================================================ Virtualhost infomation: Your domain: test.kokwind.net Home Directory: testweb Rewrite: wordpress Enable log: yes Database username: testweb Database userpassword: xxxxxxxxx Database Name: testweb Create ftp account: no ================================================ [root@li1473-187 ~]# lnmp vhost list +-------------------------------------------+ | Manager for LNMP, Written by Licess | +-------------------------------------------+ | http://lnmp.org | +-------------------------------------------+ Nginx Virtualhost list: test.kokwind.net [root@li1473-187 ~]#下载wordpress并安装，参考链接
wget https://cn.wordpress.org/wordpress-4.7.2-zh_CN.tar.gzx tar -xzvf wordpress-4.7.2-zh_CN.tar.gzx下载完成后查看与改成testweb
[root@li1473-187 wwwroot]# ls default wordpress wordpress-4.7.2-zh_CN.tar.gz [root@li1473-187 wwwroot]# mv wordpress testweb [root@li1473-187 wwwroot]# ls default testweb wordpress-4.7.2-zh_CN.tar.gz [root@li1473-187 wwwroot]#配置DNS解析
LNMP默认网站配置文件：/usr/local/nginx/conf/nginx.conf
[root@li1473-187 ~]# cd /usr/local/nginx/conf [root@li1473-187 conf]# ls dabr.conf enable-php-pathinfo.conf mime.types sablog.conf vhost dedecms.conf enable-ssl-example.conf mime.types.default scgi_params win-utf discuz.conf fastcgi.conf nginx.conf scgi_params.default wordpress.conf discuzx.conf fastcgi.conf.default nginx.conf.default shopex.conf wp2.conf drupal.conf fastcgi_params none.conf typecho2.conf ecshop.conf fastcgi_params.default pathinfo.conf typecho.conf enable-php5.2.17.conf koi-utf phpwind.conf uwsgi_params enable-php.conf koi-win proxy-pass-php.conf uwsgi_params.default [root@li1473-187 conf]# cd vhost [root@li1473-187 vhost]# ls test.kokwind.net.conf [root@li1473-187 vhost]# nano test.kokwind.net.conf 修改网站默认的路径 server { listen 80; #listen [::]:80; server_name test.kokwind.net; index index.html index.htm index.php default.html default.htm default.php; root /home/wwwroot/testweb; include wordpress.conf; #error_page 404 /404.html; include enable-php.conf; location ~ .*\.(gif|jpg|jpeg|png|bmp|swf)$ {重启nginx
[root@li1473-187 ~]# /etc/init.d/nginx reload Reload service nginx... done [root@li1473-187 ~]#修改文件权限，避免写入配置文件时没权限的问题。
[root@li1473-187 ~]# chown -R www /home/wwwroot/testweb/ [root@li1473-187 ~]# chmod -R 777 /home/wwwroot/testweb/打开浏览器输入网址后可以看到wordpress的安装页面了
如果出现翻译需要更新，但是我们点击 “更新翻译” 后，刷新页面又出现的情况，如下图
[root@li1473-187 ~]# nano /usr/local/php/etc/php.ini 搜索scandir，删掉scandir字段，保存 GNU nano 2.0.9 File: /usr/local/php/etc/php.ini Modified ; http://php.net/open-basedir ;open_basedir = ; This directive allows you to disable certain functions for security reasons. ; It receives a comma-delimited list of function names. This directive is ; *NOT* affected by whether Safe Mode is turned On or Off. ; http://php.net/disable-functions disable_functions = passthru,exec,system,chroot,scandir,chgrp,chown,shell_exec,proc_open,proc_get_status,popen,ini_alter,in$ ; This directive allows you to disable certain classes for security reasons. ; It receives a comma-delimited list of class names. This directive is ; *NOT* affected by whether Safe Mode is turned On or Off. ; http://php.net/disable-classes disable_classes = ^G Get Help ^O WriteOut ^R Read File ^Y Prev Page ^K Cut Text ^C Cur Pos ^X Exit ^J Justify ^W Where Is ^V Next Page ^U UnCut Text ^T To Spell 重启php，解决问题 [root@li1473-187 ~]# /etc/init.d/php-fpm restart Gracefully shutting down php-fpm . done Starting php-fpm done [root@li1473-187 ~]#
wordpress内嵌code高亮插件Pure-Highlightjs：下载
安装
进入 WordPress 后台管理页面，“插件 》安装插件 》上传插件”，上传刚才下载的 ZIP 文件，然后安装。或者解压安装包，上传到插件目录，/wp-content/plugins/。
启用
安装完毕后，在已经安装的插件里启用 “Pure Highlightjs”。可直接在可视化编辑界面点击“插入代码”按钮，然后选择代码类型，粘贴代码插入即可：
-
Linode VPS折腾笔记-安装VPNposted in Linux
使用yum -y update升级
yum -y update
升级所有包，改变软件设置和系统设置,系统版本内核都升级yum -y upgrade
升级所有包，不改变软件设置和系统设置，系统版本升级，内核不改变升级过后安装VPN服务。
wget --no-check-certificate https://raw.githubusercontent.com/teddysun/across/master/l2tp.sh chmod +x l2tp.sh ./l2tp.shServerIP:139.162.60.187 PSK:test Username:testuser Password:testpsw If you want to modify user settings, please use command(s): l2tp -a (Add a user) l2tp -d (Delete a user) l2tp -l (List all users) l2tp -m (Modify a user password) Welcome to visit https://teddysun.com/448.html Enjoy it! [root@li1473-187 ~]#可以看到iptables: Setting chains to policy ACCEPT: security raw nat[FAILED]filter错误
iptables: Setting chains to policy ACCEPT: security raw nat[FAILED]filter iptables: Flushing firewall rules: [ OK ] iptables: Unloading modules: [ OK ] iptables: Applying firewall rules: [ OK ] Starting pluto IKE daemon for IPsec: Migrating NSS db to sql:/etc/ipsec.d database already upgraded. NSS upgrade complete[root@li1473-187 ~]# nano /etc/init.d/iptables 用nano使用control+w搜索$IPTABLES -t raw -P OUTPUT 在下面添加security代码段 $IPTABLES -t raw -P PREROUTING $policy \ && $IPTABLES -t raw -P OUTPUT $policy \ || let ret+=1 ;; security) $IPTABLES -t filter -P INPUT $policy \ && $IPTABLES -t filter -P OUTPUT $policy \ && $IPTABLES -t filter -P FORWARD $policy \ || let ret+=1 ;; filter) $IPTABLES -t filter -P INPUT $policy \ && $IPTABLES -t filter -P OUTPUT $policy \ && $IPTABLES -t filter -P FORWARD $policy \ nano使用control+o保存，control+x退出。重启iptables
[root@li1473-187 ~]# service iptables restart iptables: Setting chains to policy ACCEPT: security raw nat[ OK ]filter iptables: Flushing firewall rules: [ OK ] iptables: Unloading modules: [ OK ] iptables: Applying firewall rules: [ OK ]同时也可以安装PPTP的VPN
wget http://mirrors.linuxeye.com/scripts/vpn_centos.sh chmod +x ./vpn_centos.sh ./vpn_centos.sh如下情况已经配置成功。
iptables: Saving firewall rules to /etc/sysconfig/iptables:[ OK ] iptables: Setting chains to policy ACCEPT: security raw nat[ OK ]filter iptables: Flushing firewall rules: [ OK ] iptables: Unloading modules: [ OK ] iptables: Applying firewall rules: [ OK ] Shutting down pptpd: [FAILED] Starting pptpd: [ OK ] Warning: a pptpd restart does not terminate existing connections, so new connections may be assigned the same IP address and cause unexpected results. Use restart-kill to destroy existing connections during a restart. You can now connect to your VPN via your external IP 139.162.xx.xxx Username: testuser1 Password: testpsw [root@li1473-187 ~]#添加用户：vim /etc/ppp/chap-secrets # Secrets for authentication using CHAP # client server secret IP addresses testuser l2tpd testpsw * testuser1 pptpd testpsw * ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ "/etc/ppp/chap-secrets" 4L, 148C重启l2tp和pptp
[root@li1473-187 ~]# /etc/init.d/xl2tpd restart Stopping xl2tpd: [ OK ] Starting xl2tpd: [ OK ] [root@li1473-187 ~]# /etc/init.d/pptpd restart Shutting down pptpd: [ OK ] Starting pptpd: [ OK ] Warning: a pptpd restart does not terminate existing connections, so new connections may be assigned the same IP address and cause unexpected results. Use restart-kill to destroy existing connections during a restart. [root@li1473-187 ~]#shadowsocks一键安装脚本，需使用root用户登录，运行以下命令
wget --no-check-certificate https://raw.githubusercontent.com/teddysun/shadowsocks_install/master/shadowsocks-libev.sh chmod +x shadowsocks-libev.sh ./shadowsocks-libev.sh 2>&1 | tee shadowsocks-libev.log安装完成后如下
Starting Shadowsocks-libev: [ OK ] Shadowsocks-libev start success! Congratulations, Shadowsocks-libev install completed! Your Server IP: 139.162.xx.xxx Your Server Port: 8989 Your Password: testpsw Your Local IP: 127.0.0.1 Your Local Port: 1080 Your Encryption Method: aes-256-cfb Welcome to visit:https://teddysun.com/357.html Enjoy it! -
新手入门之简单的cics程序posted in PROGRAMMING LANGUAGES
cobol代码
PROCESS LIST,MAP,TEST IDENTIFICATION DIVISION. * PROGRAM-ID. DCALC01. * ENVIRONMENT DIVISION. * DATA DIVISION. * WORKING-STORAGE SECTION. * 01 SWITCHES. * 05 VALID-DATA-SW PIC X VALUE 'Y'. 88 VALID-DATA VALUE 'Y'. 88 INVALID-DATA VALUE 'N'. * 01 FLAGS. * 05 SEND-FLAG PIC X. 88 SEND-ERASE VALUE '1'. 88 SEND-ERASE-ALARM VALUE '2'. 88 SEND-DATAONLY VALUE '3'. 88 SEND-DATAONLY-ALARM VALUE '4'. * 01 WORK-AREA. * 05 AA PIC 9(2). 05 BB PIC 9(2). 05 CC PIC X(1). 05 DD PIC 9(4). * 01 COMMUNICATION-AREA. 05 PROCESS-SW PIC X(1). * COPY DTETMS1. * COPY DFHAID. * COPY ATTR. * COPY DFHBMSCA. * LINKAGE SECTION. * 01 DFHCOMMAREA PIC X(01). * PROCEDURE DIVISION. * 0000-PROCESS. * IF EIBCALEN > ZERO MOVE DFHCOMMAREA TO COMMUNICATION-AREA END-IF. * IF PROCESS-SW = '1' MOVE LOW-VALUE TO DTEST01O MOVE -1 TO AAL SET SEND-ERASE TO TRUE PERFORM 1300-SEND-MAP END-IF. * EVALUATE TRUE * WHEN EIBCALEN = ZERO MOVE LOW-VALUE TO DTEST01O SET SEND-ERASE TO TRUE MOVE -1 TO AAL PERFORM 1300-SEND-MAP * WHEN EIBAID = DFHPF3 EXEC CICS RETURN TRANSID('DCAL') END-EXEC * WHEN EIBAID = DFHPF12 MOVE LOW-VALUE TO DTEST01O MOVE -1 TO AAL SET SEND-ERASE TO TRUE PERFORM 1300-SEND-MAP * WHEN EIBAID = DFHCLEAR EXEC CICS RETURN END-EXEC * WHEN EIBAID = DFHPA1 OR DFHPA2 OR DFHPA3 CONTINUE * WHEN EIBAID = DFHENTER PERFORM 1000-PROCESS-MAP * WHEN OTHER MOVE LOW-VALUE TO DTEST01O MOVE 'MSG==> THAT KEY IS UNASSIGNED.' TO MSGO MOVE -1 TO AAL SET SEND-DATAONLY-ALARM TO TRUE PERFORM 1300-SEND-MAP * END-EVALUATE. * EXEC CICS RETURN TRANSID('DCAL') COMMAREA(COMMUNICATION-AREA) END-EXEC. * 1000-PROCESS-MAP. * PERFORM 1100-RECEIVE-MAP. PERFORM 1200-EDIT-DATA. IF VALID-DATA-SW NOT = 'N' MOVE AAI TO AA MOVE BBI TO BB MOVE CCI TO CC EVALUATE CC WHEN '+' COMPUTE DD = AA + BB WHEN '-' COMPUTE DD = AA - BB WHEN '*' COMPUTE DD = AA * BB WHEN '/' COMPUTE DD = AA / BB END-EVALUATE SET SEND-ERASE TO TRUE EXEC CICS ENTER TRACEID('100') FROM(DD) END-EXEC MOVE DD TO DDO MOVE -1 TO AAL MOVE DFHBMPRF TO AAA MOVE DFHBMPRF TO BBA MOVE DFHBMPRF TO CCA MOVE '1' TO PROCESS-SW PERFORM 1300-SEND-MAP END-IF. * IF VALID-DATA-SW = 'N' MOVE '2' TO PROCESS-SW SET SEND-DATAONLY-ALARM TO TRUE PERFORM 1300-SEND-MAP END-IF. * 1100-RECEIVE-MAP. * EXEC CICS RECEIVE MAP('DTEST01') MAPSET('DTETMS1') INTO(DTEST01I) END-EXEC. * 1200-EDIT-DATA. * IF AAI NOT NUMERIC MOVE -1 TO AAL MOVE 'MSG==> THE FIRST NUMBER MUST BE NUMERIC.' TO MSGO MOVE 'N' TO VALID-DATA-SW END-IF. * IF BBI NOT NUMERIC MOVE -1 TO BBL MOVE 'MSG==> THE SECOND NUMBER MUST BE NUMERIC.' TO MSGO MOVE 'N' TO VALID-DATA-SW END-IF. * IF CCI = '+' OR '-' OR '*' OR '/' CONTINUE ELSE MOVE -1 TO CCL MOVE 'MSG==> YOU MUST ENTER A MARK.' TO MSGO MOVE 'N' TO VALID-DATA-SW END-IF. * 1300-SEND-MAP. * EVALUATE TRUE WHEN SEND-ERASE EXEC CICS SEND MAP('DTEST01') MAPSET('DTETMS1') FROM(DTEST01O) ERASE CURSOR END-EXEC WHEN SEND-ERASE-ALARM EXEC CICS SEND MAP('DTEST01') MAPSET('DTETMS1') FROM(DTEST01O) ERASE ALARM CURSOR END-EXEC WHEN SEND-DATAONLY-ALARM EXEC CICS SEND MAP('DTEST01') MAPSET('DTETMS1') FROM(DTEST01O) DATAONLY ALARM CURSOR END-EXEC END-EVALUATE. * 9999-TERMINATE-PROGRAM. * EXEC CICS ABEND END-EXEC.map代码
PRINT ON,NOGEN 00000010 DTETMS1 DFHMSD TYPE=MAP,LANG=COBOL,MODE=INOUT,STORAGE=AUTO,SUFFIX=8 00000020 DTEST01 DFHMDI SIZE=(24,80),MAPATTS=(COLOR,OUTLINE),COLUMN=1,LINE=1, *00000030 DATA=FIELD,TIOAPFX=YES,OBFMT=NO 00000040 DFHMDF POS=(3,27),LENGTH=7,INITIAL=' SAMPLE',ATTRB=(ASKIP,BRT) 00000050 DFHMDF POS=(3,36),LENGTH=11,INITIAL=' CALCULATOR', *00000060 ATTRB=(ASKIP,BRT) 00000070 DFHMDF POS=(7,16),LENGTH=22,INITIAL=' FIRST NUMBER-------->', *00000080 ATTRB=(ASKIP,BRT) 00000090 * AA AA 00000100 AA DFHMDF POS=(7,40),LENGTH=2,ATTRB=(UNPROT,NORM,IC), *00000110 OUTLINE=(UNDER) 00000120 DFHMDF POS=(7,43),LENGTH=1,ATTRB=(ASKIP,NORM) 00000130 DFHMDF POS=(10,16),LENGTH=22,INITIAL=' SENCOND NUMBER------>',*00000140 ATTRB=(ASKIP,BRT) 00000150 * BB BB 00000160 BB DFHMDF POS=(10,40),LENGTH=2,ATTRB=(UNPROT,NUM,NORM), *00000170 OUTLINE=(UNDER) 00000180 DFHMDF POS=(10,43),LENGTH=1,ATTRB=(ASKIP,NORM) 00000190 DFHMDF POS=(13,16),LENGTH=22,INITIAL=' OPERTION(+ - * /)--->',*00000200 ATTRB=(ASKIP,BRT) 00000210 * CC CC 00000220 CC DFHMDF POS=(13,40),LENGTH=1,ATTRB=(UNPROT,NORM), *00000230 OUTLINE=(UNDER) 00000240 DFHMDF POS=(13,42),LENGTH=1,ATTRB=(ASKIP,NORM) 00000250 DFHMDF POS=(16,16),LENGTH=22,INITIAL=' RESULT-------------->',*00000260 ATTRB=(ASKIP,BRT) 00000270 * DD DD 00000280 DD DFHMDF POS=(16,40),LENGTH=4,ATTRB=(ASKIP,NORM) 00000290 DFHMDF POS=(16,45),LENGTH=1,ATTRB=(PROT,NORM) 00000300 DFHMDF POS=(19,49),LENGTH=6,INITIAL=' ENTER',ATTRB=(PROT,BRT) 00000310 DFHMDF POS=(20,49),LENGTH=11,INITIAL=' F12 CANCEL', *00000320 ATTRB=(PROT,BRT) 00000330 DFHMDF POS=(21,49),LENGTH=8,INITIAL=' F3 EXIT',ATTRB=(PROT,BRT*00000340 ) 00000350 * MSG MSG 00000360 MSG DFHMDF POS=(23,80),LENGTH=79,ATTRB=(PROT,NORM),COLOR=NEUTRAL 00000370 DFHMDF POS=(24,80),LENGTH=0,ATTRB=(ASKIP,NORM) 00000380 DFHMSD TYPE=FINAL 00000390 END 00000400 -
RE: SMP/E初学入门--介绍和使用实例posted in IBM UTILITIES & TOOLS
-----------------------------------------PTF 安装实例----------------------------------------------
1.在CSI中查询你要安装的PTF是否存在
---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 ===> 3 More: + 0 SETTINGS - Configure settings for the SMP/E dialogs 1 ADMINISTRATION - Administer the SMPCSI contents 2 SYSMOD MANAGEMENT - Receive SYSMODs and HOLDDATA and install SYSMODs 3 QUERY - Display SMPCSI information 4 COMMAND GENERATION - Generate SMP/E commands 5 RECEIVE - Receive SYSMODs, HOLDDATA and support information 6 MIGRATION ASSISTANT- Generate Planning and Migration Reports 7 ORDER MANAGEMENT - Manage ORDER entries in the global zone D DESCRIBE - An overview of the dialogs T TUTORIAL - Details on using the dialogs W WHAT IS NEW - What is New in SMP/E Specify the name of the CSI that contains the global zone: SMPCSI DATA SET ===> 'ZOS1A.GLOBAL.CSI' F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 QUERY SELECTION MENU 1 CSI QUERY - Display SMPCSI entries 2 CROSS-ZONE QUERY - Display status of an entry in all zones 3 SOURCEID QUERY - Display SOURCEIDs for specified zone D DESCRIBE - Overview of using QUERY T TUTORIAL - Information on using QUERY To return to the SMP/E primary option menu, enter END . ===> 2 F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .CROSS-ZONE QUERY Specify the entry type and name to be queried: ENTRY TYPE ===> SYSMOD Entry type to be queried. To display a selection list of all valid entry types, leave ENTRY TYPE and ENTRY NAME blank ENTRY NAME ===> UK51888 Entry name to be queried. To return to the Query selection menu enter the END command ===> F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:10 TZOS1A0 PTF HIP61A0 APP 10.153 16:44:29 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .因为我的系统是刚刚打过PTF的，所以
可以看到UK48822已经在系统里面APPLY，但是还没有ACCEPT，这时我们可以使用RESTORE命令来还原。//A0001RES JOB IBM,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //*MPPTFIN DD UNIT=SYSDA,DISP=SHR, //* DSN=TEST.PTF.APLTEST //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BOUNDARY(TZOS1A0). RESTORE SELECT( UK51888 ) GROUP <---GROUP是查看是否有相关联的PTF . /*查看状态
CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:11 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE使用REJECT把RECEIVE的状态干掉
//A0002REJ JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(GLOBAL). REJECT SELECT( UK51888 ) . /*查看状态
CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL * TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .时相当于重新为系统打UK51888这个补丁:
-
先下载UK51888，网站http://w3-950.ibm.com/wwqa/wwqa.nsf/wwqalogon?OpenForm&corp
-
确认UK51888在系统里面是否存在，上面已经确认过了。
-
把你download下来的bin文件床传到系统中。
-
unpack，使用JCL，不知道什么原因，这次下载下来的BIN需要unpack两次。
//A0003UPK JOB MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP.BIN.UPK, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1)) //STEP2 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN.UPK,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1))UNPACK后的文件
... ++ PTF (UK51888) /* //UK51888 JOB 5655-51888,HAL00,MSGLEVEL=(1,1),CLASS=A */ . ++ VER (Z038) FMID(HIP61A0) PRE (UK50683,UK50072,UK47990,UK44784) SUP (UK50080,UK38262,AK94784,AK87221,AK68879) . ++ IF FMID(HIP61B0) THEN REQ (UK51889) ...
-
使用RECEIVE命令会GLOBAL ZONE里显示出REC这个状态
//A0004RCV JOB CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SMPPTFIN DD UNIT=SYSDA,VOL=SER=COMUSR,DISP=SHR, // DSN=TEST.UK43912.SMP //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BDY(GLOBAL). RECEIVE SELECT( UK51888 ) SYSMODS LIST .CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . -
用APPLY命令会TARGET ZONE里显示出APP这个状态
//A0005APP JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(TZOS1A0). APPLY SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /* //CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . -
时这个PTF已经完成了，重新系统看看测试下是否有异常，在系统运行一段时候后，可以使用ACCEPT做一个新的备份点。
使用ACCEPT命令会DISTRIBUTION ZONE里显示出ACC这个状态//A0006ACC JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(DZOS1A0). ACCEPT SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /*CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 PTF HIP61A0 ACC 10.174 17:00:16 GLOBAL * TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .
-
可以使用LIST列出PTF的状态
//A0007LST JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPRPT DD SYSOUT=* //SMPLOG DD SYSOUT=* //SMPCNTL DD * SET BDY(TZOS1A0). LIST SYSMOD(UK51888) . /*可以在LOG中看到
UK51888 TYPE = PTF STATUS = REC APP FMID = HIP61A0 DATE/TIME REC = 10.174 16:45:45 INS = 10.174 16:53:04 SOURCEID = HIPER PUT0912 RSU1001 SMCCOR
-
-
SMP/E初学入门--介绍和使用实例posted in IBM UTILITIES & TOOLS
参考书籍：《SMP/E USER'S GUIDE》
SMP/E是一个Z/OS工具，用于管理Z/OS系统上软件产品的安装，并追踪这些产品的修改。
所有的代码和修正程序都可以在SMP/E数据库中找到，我们叫它CSI(consolidated software inventory)，它有一个或多个VSAM数据集组成。我们使用的Z/OS系统是由很多子系统拼起来的，所以我们可以看到：
RACF | DB2 | MVS | CICS | ISPF | TSO | SMP/E | EREP | MQ | JES | RMF | HTTP | IMS | VTAM | WAS | NETVIEW | DFSMS | PSF | RRS而每个系统的功能都由一个或者多个加载模块组成。
通常我们会使用SMP/E对系统进行更新，通常我们拿到一个SYSMOD（一个SYSMOD是元素和控制信息的打包，SMP/E使用这些控制信息来安装和跟踪系统的修改。）在SYSMOD里我们可以看到它由两部分组成，修正控制语句（MCS）和修正体两部分，修正体是目标模块，宏或SYSMOD；MCS的的前两个字母以“++”开头，进而告诉SMP/E:
1）更新或更换那些元素
2）SYSMOD如何与产品软件和其他SYSMOD相关联
3）其他特定的安装信息一共有4中类型的SYSMOD
-
FUNCTION SYSMOD
在系统引入一个新产品或是一个产品的新版本，或跟新系统中现有的某个产品的功能
举一个简单FUNCTION SYSMOD的例子：++FUNCTION(FUN0001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* FOR AN OS/390 SYSTEM. */ ++MOD(MOD1) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD2) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD3) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD4) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ -
PTF SYSMOD
当一个软件发现有问题时，IBM提供客户一个经过测试的补丁，这个补丁就是PTF。
举一个简单PTF SYSMOD的例子：
++PTF(PTF0001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ ++MOD(MOD1) /* REPLACE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...OBJECT CODE FOR MODULE-
APAR SYSMOD
有时当一个严重问题发生时，用户可能需要在PTF发布之前修正它，这种情况下，IBM提供了一个授权程序分析报告（APAR），APAR是一个补丁，可以快速修正元素的某个特定区域或者替代一个错误元素。
举一个简单APAR SYSMOD的例子：++APAR(APAR001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ PRE(UZ00004) /* AT THIS SERVICE LEVEL */ ++ZAP(MOD3) /* UPDATE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...ZAP CONTROL STATEMENT -
USERMOD SYSMOD
如果用户有这样一个需求，需要产品完成和它原来设计不一样的任务，那么可能需要客户化系统中的元素。IBM提供用户一些模块剪裁IBM代码以满足特定的用户需求，在完成想要得到的改变之后，需要通过安装USERMOD SYSMOD从而在系统中添加或者更新这些模块。
举一个简单USERMOD SYSMOD的例子：++USERMOD(APAR001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ PRE(UZ00004) /* AT THIS SERVICE LEVEL */ ++SRCUPD(JESMOD3) /* UPDATE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...UPDATE CONTROL STATEMENT
PTF,APAR和USERMOD SYSMOD都把FUNCTION SYSMOD作为先决条件，类似我们WINDOWS系统打补丁一样，比如在WINXP系统存在的情况下，我们可以打补丁，安装或更新一些修改后的软件。
1）PTF SYSMOD可能还依赖于其他的PTF SYSMOD，可能我们在安装PTF0002之前，必须先安装PTF0001.
2）APAR SYSMOD可能还依赖于PTF SYSMOD或者其他的APAR SYSMOD
3）USERMODSYSMOD可能还依赖于PTF SYSMOD，APAR SYSMOD或者其他的USERMOD SYSMOD。为了成功的跟踪和控制元素，所以元素及其修正都必须在SMP/E中清晰地定义标识。
有3类修改标识符：
1）功能修改标识符（FMID）标识FUCTION SYSMOD，它将元素引入到系统中。
2）替换修改标识符（RMID）标识最后替换某元素的SYSMOD（大多数情况下为PTF SYSMOD）
3）更新修改标识符（UMID）标识自从某元素被替换之后，对其实施更新的SYSMOD为了让SMP/E能正确地完成其处工作，SMP/E必须维护大量的信息，这包括其组织结构，，内容和它所管理的软件的修正状态。可以想象，所有这些有SMP/E必须维护的信息就好比一个公共图书馆，在一个公共图书馆中，一般看到的是放满书的书架，此外，还有放满了卡片目录的抽屉，图书馆里的每一本书都有一张对应的卡片。这些卡片包含了这些信息：标题，作者，出版日期，书的类型和书在书架上的具体位置等。
在SMP/E环境中，有两种类型的书架，他们分表代表的是DISTRIBUTION LIBRARY和TARGET LIBRARY。其中DISTRIBUTION LIBRARY是放安装完毕的产品，经过一段时间测试后没有问题的模块，类似备份的东西。而TARGET LIBRARY放的是安装完毕的产品。在图书馆里，读者借助卡片目录来查找到书籍或其他想要寻找的信息，同样，SMP/E采用CSI（CONSOLIDATED SOFTWARE IVENTORY）的形式提供类似的跟踪机制。CSI数据集包含所有SMP/E用来跟踪DISTRIBUTION LIBRARY和TARGET LIBRARY的信息。CSI条目包含元素名字，类型，历史记录，元素被引入到系统中的方法，元素在DISTRIBUTION LIBRARY和TARGET LIBRARY中的具体位置等。CSI并不包括元素本身，而是包含元素的描述信息。
在CSI中，元素在DISTRIBUTION LIBRARY和TARGET LIBRARY中的条目按照他们的安装状态分组
代表DISTRIBUTION LIBRARY的条目放到DISTRIBUTION ZONE中，代表TARGET LIBRARY中的元素的条目在TARGET ZONE中
除了DISTRIBUTION ZONE和TARGET ZONE，SMP/E CSI还包含一个GLOBAL ZONE，GLOBAL ZONE包含：
1）SMP/E用于识别和描述每个DISTRIBUTION ZONE和TARGET ZONE的关系
2）SMP/E处理选项的信息
3）SMP/E已经开始处理的全部SYSMOD的状态信息
4）需要特殊处理或存在错误的SYSMOD的异常数据在SMP/E中，所说的异常数据通常是指HOLDDATA。HOLDDATA会在产品中提供，标识某个指定的SYSMOD禁止安装。阻挠SYSMOD安装的原因可能是：
1）PTF有错误，在错误被修正前不应该被安装（ERROR HOLD）
2）在SYSMOD安装前需要某些确定的系统行为（SYSTEM HOLD）
3）在SYSMOD安装前，用户想要完成某些行为（USER HOLD）SMP/E用3个命令来完成：RECEIVE,APPLY,ACCEPT
1.RECEIVE命令允许用户将一个在SMP/E之外的SYSMOD加入到SMP/E库中，并开始为其构造CSI条目信息。这样这些条目可以用来查询从进入到处理的信息，目前RECEIVE的数据源更多的是从网上DOWN下来的（比如IBM网站），或者第三方的生产商。该处理用于完成以下任务，
1）在GLOBAL ZONE中建立描述SYSMOD的条目
2）确保SYSMOD有效，如CSI中与安装产品相关的修正控制语句（MCS）的语法
3）将SYSMOD安装到库中。如PTF历史存放库
4）读取HOLDDATA信息，确保错误不被引入。在RECEIVE处理过程中，每个SYSMOD的MCS都被复制到一个SMP/E临时存储区，叫做SMPPTS数据集，该SMPPTS数据集包含了该SYSMOD内部元素的替换或更新情况。而与元素相关的文件被打包在一起，并与MCS分开放置在RELFILE文件中，RELFILE文件存储在另一个数据集SMPTLIB的临时存储区中。SMP/E用它接受的SYSMOD信息来更新全局区。
使用RECEIVE接受所有SYSMOD和HOLDDATA
SET BDY(GLOBAL).
RECEIVE
SET BDY(GLOBAL).
RECEIVE.如只接受需要特殊处理或有错误状态的HOLDDATA
SET BDY(GLOBAL).
RECEIVE HOLDDATA.指接受SYSMOD
SET BDY(GLOBAL).
RECEIVE SYSMOD.接受某个特定产品的所有SYSMOD，包括HOLDDATA
SET BDY(GLOBAL).
RECEIVE FORFMID(H28W500).使用APPLY命令把RECEIVE后的SYSMOD安装到TARGET LIBRARY中。
APPLY处理会更新如下信息：
1）GLOBAL ZONE的所有SYSMOD条目都被更新，这样放映出SYSMOD已经应用到TARGET LIBRARY中
2）TARGET ZONE准确放映了APPLY处理的每条SYSMOD条目，元素条目（如MOD和LMOD）也在TARGET ZONE中被创建
3）BACKUP条目在SMPSCDS数据集中被创建，这样可以在必要的时候进行SYSMOD恢复。使用APPLY安装PTF SYSMOD
SET BDY(GLOBAL).
APPLY PTFS.安装指定的模块
SET BDY(GLOBAL).
SELECT(UZ00001,UZ00002).有时，可能需要在目标库中安装APAR，或USERMOD
SET BDY(ZOSTGT1).
APPLY APARS
USERMODS.使用ACCEPT命令把SYSMOD从TARGET LIBRARY安装到DISTRIBUTION LIBRARY中。
需要特别注意的是，如果SYSMOD的ACCEPT处理存在错误，不要ACCEPT它。使用RESTORE过程会选取被ACCEPT处理的SYSMOD还原到TARGET LIBRARY中，APPLY后系统运行一段时间没有问题后，在使用ACCEPT命令生成新的备份。安装符合条件的PTF到DISTRIBUTION LIBRARY
SET DBY(ZOSDLB1).
ACCEPT PTFS.如果想安装指定的PTF SYSMODS
SET DBY(ZOSDLB1).
ACCEPT SELECT(UZ00001,UZ00002).更新某个产品的所有SYSMOD
SET DBY(ZOSDLB1).
ACCEPT PTFS
FORFMID(H28W500).总结：
TARGET LIBRARY：生产系统
DISTRIBUCTION LIBRARY：备份系统每个系统功能都由一个或者多个可庄子啊模块组成
可装载模块的包括：源代码，目标模块，可装载模块术语：
ELEMENT：源代码，目标模块，宏和其他类型的数据和代码都是系统中的基本构建块，成为ELEMENT
SYSMOD：SMP/E可以安装大量不同的系统更新，前提是这些更新打包成一个系统修正程序或者SYSMOD
SYSMOD由一些元件的组合以及控制信息组成 -
-
如何使用ADRDSSUposted in IBM UTILITIES & TOOLS
ADRDSSU是DF/DSS工具中的一员，是DASD DATA和SPACE的管理工具，常用来BACKUP,RESTORE DATASETS和VOLUME
参数说明：
DUMP DATASET表示要DUMP的是DATASET
OUTDDNAME表示把文件DUMP到哪里
SPHERE带有VSAM文件时指定
COMPRESS压缩
ALLDATA（）copy所有被allocated的space（文件不为空）
ALLEXCP：copy所有被allocated的space（文件可以为空），一般和ALLDATA互相作用，组合使用
TOLERATE（ENQF）即使要处理的datasets被适用也可以COPY，和FULL,TRACKS冲突
OPT(1)默认指定，一次读一track，（2）一次读2track，（3）一次读5track，（4）一次读一cylinder
ADMIN移动高权限的文件时指定
PROCESS(SYS1)COPY SYS1时指定
BYPASSACS(*) NULLSTORCLAS回避SMS rules
REPLACE，PURGE都可以用来覆盖目标卷已经存在的同名文件
DELETE移动后uncatalogedJCL1:
STEP00 如果用来备份得文件存在，则先删除
STEP01 备份VSAM文件（STJI.MJA.VE025.TESTVS）到文件（STJI.MJA.VE025.TESTVS.BAK）中//JOBCARD //*===================================================================* //* << FILE DELETE >> //*===================================================================* //STEP00 EXEC PGM=IEFBR14 //DD1 DD DISP=(MOD,DELETE),DSN=YOUR.LIB.BAK //*===================================================================* //* << BACKUP >> //*===================================================================* //STEP01 EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //INPUT DD DSN=YOUR.LIB.BAK, // SPACE=(CYL,(1,0),RLSE),UNIT=SYSDA, // DISP=(,CATLG),DCB=(DSCB) //SYSIN DD * DUMP DATASET(INCLUDE( - YOUR.VSLIB - ) - ) - OUTDDNAME(INPUT) - SPHERE - COMPRESS - ALLDATA(*) ALLEXCP - TOLERATE(ENQFAILURE) - OPT(1) /*JCL2:
恢复被dump的dataset//JOBCARD //*====================================================================* //* VSM -> DASD RESTORE //*====================================================================* //STEP01 EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //INDD DD DSN=YOUR.LIB.BAK, // DISP=SHR //SYSIN DD * RESTORE INDDNAME(INDD) - DATASET(INCLUDE( - YOUR.VSLIB)) - CATALOG - REPLACE - SPHERE - TOL(ENQFAILURE) - /*JCL3:
把文件从一个卷XXX1,COPY到另一个卷XXX2//JOBCARD //********************************************************************* //* ADRDSSU //********************************************************************* //STEP02 EXEC PGM=ADRDSSU,REGION=2M //FROMVOL DD UNIT=3390,DISP=SHR,VOL=SER=XXX1 //TOVOL DD UNIT=3390,DISP=SHR,VOL=SER=XXX2 //SYSPRINT DD SYSOUT=* //SYSIN DD * COPY DATASET(INCLUDE(YOUR.LIB.*)) - INDD(FROMVOL) OUTDD(TOVOL) - ALLDATA(*) - DELETE // -
新手入门之COBOL子程序posted in PROGRAMMING LANGUAGES
使用子程序把输入文件的6位日期转换成8位日期。
编译和运行的JCL，JCL没经过测试。要是跑不通就留言。有人问就手写的
//KOKHEL1 JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID //STEP010 EXEC PROC=IGYWCL //COBOL.SYSIN DD DSN=KOK.COBOL.LIB(TESTSUB),DISP=SHR //LKED.SYSLMOD DD DSN=KOK.LOAD.LIB(TESTSUB),DISP=SHR NAME TESTSUB(R) //STEP020 EXEC PROC=IGYWCL //COBOL.SYSIN DD DSN=KOK.COBOL.LIB(TESTMAIN),DISP=SHR //LKED.SYSLMOD DD DSN=KOK.LOAD.LIB(TESTMAIN),DISP=SHR INCLUDE SYSLMOD(TESTSUB) NAME TESTMAIN(R) //TEST030 EXEC PGM=TESTMAIN //STEPLIB DD DSN=KOK.LOAD.LIB,DISP=SHR //TESTFA DD DSN=KOK.PS.TESTFA,DISP=SHR //TESTFC DD DSN=KOK.PS.TESTFC,DISP=SHR //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //SYSDUMP DD SYSOUT=* //主程序：
****** ***************************** Top of Data ****************************** 000100 000100 PROCESS TEST,MAP 008900 008900****************************************************************** 009000 009000* IDENTIFICATION DIVISION 009100 009100****************************************************************** 009101 009101 IDENTIFICATION DIVISION. 009102 009102 PROGRAM-ID. TESTMAIN. 009103 009103****************************************************************** 009104 009104* ENVIRONMENT DIVISION 009105 009105****************************************************************** 009106 009106 ENVIRONMENT DIVISION. 009107 009107 CONFIGURATION SECTION. 009108 009108 INPUT-OUTPUT SECTION. 009109 009109 FILE-CONTROL. 009110 009110 SELECT FILEA ASSIGN TO TESTFA. 009111 009111 SELECT FILEC ASSIGN TO TESTFC. 009112 009112****************************************************************** 009113 009113* DATA DIVISION 009114 009114****************************************************************** 009115 009115 DATA DIVISION. 009116 009116 FILE SECTION. 009117 009117 FD FILEA 009118 009118 BLOCK CONTAINS 0 RECORDS 009119 009119 LABEL RECORD IS STANDARD 009120 009120 RECORDING MODE F. 009121 009121 01 FA-REC. 009122 009122 05 FA-INFO. 009123 009123 07 FA-NAME PIC X(09). 009124 009124 07 FILLER PIC X(01). 009125 009125 07 FA-DATA PIC 9(06). 009126 009126 07 FILLER PIC X(24). 009127 009127* 009128 009128 FD FILEC 009129 009129 BLOCK CONTAINS 0 RECORDS 009130 009130 LABEL RECORD IS STANDARD 009131 009131 RECORDING MODE F. 009132 009132 01 FC-REC. 009133 009133 05 FC-INFO. 009140 009140 07 FC-NAME PIC X(09). 009150 009150 07 FILLER PIC X(01). 009160 009160 07 FC-DATA PIC 9(08). 009161 009161 07 FILLER PIC X(24). 009162 009162* 009163 009163****************************************************************** 009164 009164* WORKING-STORAGE SECTION 009165 009165****************************************************************** 009166 009166 WORKING-STORAGE SECTION. 009167 009167 01 WK-SWITCH PIC X(01). 009168 009168 88 WK-SWH-ON VALUE '1'. 009169 009169 88 WK-SWH-OFF VALUE '0'. 009170 009170 01 WK-COUNT. 009171 009171 05 WK-CNT-RD PIC 9(03). 009172 009172 05 WK-CNT-WT PIC 9(03). 009177 009177 01 WK-DATA-IN. 009178 009178 05 WK-YEAR-IN PIC 9(02). 009179 009179 05 WK-MOUTH-IN PIC 9(02). 009180 009180 05 WK-DAY-IN PIC 9(02). 009181 009181 01 WK-DATA-OUT. 009182 009182 05 WK-YEAR-OUT PIC 9(04). 009183 009183 05 WK-MOUTH-OUT PIC 9(02). 009184 009184 05 WK-DAY-OUT PIC 9(02). 009185 009185****************************************************************** 009186 009186* PROCEDURE DIVISION 009187 009187****************************************************************** 009188 009188 PROCEDURE DIVISION. 009191 009191 MAIN SECTION. 009192 009192 MAIN-S. 009193 009193 PERFORM 1000-INIT. 009194 009194 PERFORM 2000-MAIN. 009195 009195 PERFORM 3000-END. 009196 009196 STOP RUN. 009197 009197 MAIN-E. 009198 009198 EXIT. 009199 009199****************************************************************** 009200 009200* 1000-INIT 009201 009201****************************************************************** 009202 009202 1000-INIT SECTION. 009203 009203 1000-INIT-S. 009204 009204 INITIALIZE WK-SWITCH , WK-COUNT , WK-DATA-IN , WK-DATA-OUT. 009205 009205 OPEN INPUT FILEA. 009206 009206 OPEN OUTPUT FILEC. 009207 009207 1000-INIT-E. 009208 009208 EXIT. 009209 009209****************************************************************** 009210 009210* 2000-MAIN 009211 009211****************************************************************** 009212 009212 2000-MAIN SECTION. 009213 009213 2000-MAIN-S. 009214 009214 ADD +1 TO WK-CNT-RD. 009215 009215 READ FILEA 009216 009216 AT END 009217 009217 SET WK-SWH-ON TO TRUE 009218 009218 NOT AT END 009219 009219 MOVE FA-NAME TO FC-NAME 009220 009220 MOVE FA-DATA TO WK-DATA-IN 009221 009221 CALL 'TESTSUB' USING WK-DATA-IN , WK-DATA-OUT 009222 009222 MOVE WK-DATA-OUT TO FC-DATA 009223 009223 WRITE FC-REC 009224 009224 ADD +1 TO WK-CNT-WT 009225 009225 END-READ. 009230 009230* 020700 020700 PERFORM UNTIL WK-SWH-ON 020710 020710 ADD +1 TO WK-CNT-RD 020800 020800 READ FILEA 020900 020900 AT END 020910 020910 SET WK-SWH-ON TO TRUE 021000 021000 NOT AT END 021001 021001 MOVE FA-NAME TO FC-NAME 021002 021002 MOVE FA-DATA TO WK-DATA-IN 021003 021003 CALL 'TESTSUB' USING WK-DATA-IN , WK-DATA-OUT 021004 021004 MOVE WK-DATA-OUT TO FC-DATA 021020 021020 WRITE FC-REC 021030 021030 ADD +1 TO WK-CNT-WT 021100 021100 END-READ 021200 021200 END-PERFORM. 021300 021300 2000-MAIN-E. 021400 021400 EXIT. 023300 023300****************************************************************** 023400 023400* 3000-END 023500 023500****************************************************************** 023600 023600 3000-END SECTION. 023601 023601 3000-END-S. 023603 023603 DISPLAY 'READ : ' , WK-CNT-RD. 023605 023605 DISPLAY 'WRITE: ' , WK-CNT-WT. 023607 023607 CLOSE FILEA , FILEC. 023609 023609 3000-END-E. 023610 023610 EXIT. ****** **************************** Bottom of Data ****************************子程序
****** ***************************** Top of Data ****************************** 000001 000100 PROCESS TEST,MAP 000002 008900****************************************************************** 000003 009000* IDENTIFICATION DIVISION 000004 009100****************************************************************** 000005 009101 IDENTIFICATION DIVISION. 000006 009102 PROGRAM-ID. TESTSUB. 000007 009103****************************************************************** 000008 009104* ENVIRONMENT DIVISION 000009 009105****************************************************************** 000010 009106 ENVIRONMENT DIVISION. 000011 009107 CONFIGURATION SECTION. 000012 009112****************************************************************** 000013 009113* DATA DIVISION 000014 009114****************************************************************** 000015 009115 DATA DIVISION. 000016 009166 WORKING-STORAGE SECTION. 000017 009181 01 WK-DATA-OUT. 000018 009182 05 WK-YEAR-OUT. 000019 009183 07 WK-YEAR-OUT1 PIC 9(02). 000020 009184 07 WK-YEAR-OUT2 PIC 9(02). 000021 009185 05 WK-MOUTH-OUT PIC 9(02). 000022 009186 05 WK-DAY-OUT PIC 9(02). 000023 009187****************************************************************** 000024 009188* LINKAGE SECTION 000025 009189****************************************************************** 000026 009190 LINKAGE SECTION. 000027 009191 01 LK-DATA-IN. 000028 009192 05 LK-YEAR-IN PIC 9(02). 000029 009193 05 LK-MOUTH-IN PIC 9(02). 000030 009194 05 LK-DAY-IN PIC 9(02). 000031 009195 01 LK-DATA-OUT. 000032 009196 05 LK-YEAR-OUT PIC 9(04). 000033 009197 05 LK-MOUTH-OUT PIC 9(02). 000034 009198 05 LK-DAY-OUT PIC 9(02). 000035 009199****************************************************************** 000036 009200* PROCEDURE DIVISION 000037 009201****************************************************************** 000038 009202 PROCEDURE DIVISION USING LK-DATA-IN , 000039 LK-DATA-OUT. 000040 009203* 000041 009204 PERFORM 1000-INIT. 000042 009205 PERFORM 2000-MAIN. 000043 009206 PERFORM 3000-END. 000044 009207****************************************************************** 000045 009208* 1000-INIT 000046 009209****************************************************************** 000047 009210 1000-INIT SECTION. 000048 009211 1000-INIT-S. 000049 009212 INITIALIZE WK-DATA-OUT. 000050 009213 1000-INIT-E. 000051 009214 EXIT. 000052 009215****************************************************************** 000053 009216* 2000-MAIN 000054 009217****************************************************************** 000055 009218 2000-MAIN SECTION. 000056 009219 2000-MAIN-S. 000057 009220 IF LK-YEAR-IN > 50 000058 009230 MOVE 19 TO WK-YEAR-OUT1 000059 009240 MOVE LK-YEAR-IN TO WK-YEAR-OUT2 000060 009250 ELSE 000061 009260 MOVE 20 TO WK-YEAR-OUT1 000062 009270 MOVE LK-YEAR-IN TO WK-YEAR-OUT2 000063 009280 END-IF. 000064 009290 MOVE LK-MOUTH-IN TO WK-MOUTH-OUT. 000065 009300 MOVE LK-DAY-IN TO WK-DAY-OUT. 000066 009400 MOVE WK-DATA-OUT TO LK-DATA-OUT. 000067 021300 2000-MAIN-E. 000068 021400 EXIT. 000069 023300****************************************************************** 000070 023400* 3000-END 000071 023500****************************************************************** 000072 023600 3000-END SECTION. 000073 023601 3000-END-S. 000074 023608 GOBACK. 000075 023609 3000-END-E. 000076 023610 EXIT. ****** **************************** Bottom of Data ****************************input data set:
****** ***************************** Top of Data ****************************** 000001 AAAAAAAAA 981110 000002 BBBBBBBBB 961110 000003 CCCCCCCCC 081010 000004 DDDDDDDDD 020202 000005 EEEEEEEEE 860520 000006 FFFFDDDDD 001111 ****** **************************** Bottom of Data ****************************output data set:
****** ***************************** Top of Data ****************************** 000001 AAAAAAAAA 19981110 000002 BBBBBBBBB 19961110 000003 CCCCCCCCC 20081010 000004 DDDDDDDDD 20020202 000005 EEEEEEEEE 19860520 000006 FFFFDDDDD 20001111 ****** **************************** Bottom of Data **************************** -
新手入门之如何读文件的COBOL程序posted in PROGRAMMING LANGUAGES
input: 40bates record format= FB
output:40bates record format= FB
WK-CNT-RD读文件的计数器
WK-CNT-WT写文件的计数器用到的JCL
//KOKHEL1 JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID //STEP010 EXEC PROC=IGYWCL //COBOL.SYSIN DD DSN=KOK.COBOL.LIB(TESTFILE),DISP=SHR //LKED.SYSLMOD DD DSN=KOK.LOAD.LIB(TESTFILE),DISP=SHR //STEP020 EXEC PGM=TESTFILE //STEPLIB DD DSN=KOK.LOAD.LIB,DISP=SHR //TESTFA DD DSN=KOK.PS.TESTAA,DISP=SHR //TESTFB DD DSN=KOK.PS.TESTBB,DISP=SHR //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //创建PS的参数
Menu RefList Utilities Help ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss Allocate New Data Set Command ===> More: + Data Set Name . . . : KOK.PS.TESTAA Management class . . . (Blank for default management class) Storage class . . . . (Blank for default storage class) Volume serial . . . . (Blank for system default volume) ** Device type . . . . . (Generic unit or device address) ** Data class . . . . . . (Blank for default data class) Space units . . . . . BLKS (BLKS, TRKS, CYLS, KB, MB, BYTES or RECORDS) Average record unit (M, K, or U) Primary quantity . . 1 (In above units) Secondary quantity 1 (In above units) Directory blocks . . 0 (Zero for sequential data set) * Record format . . . . FB Record length . . . . 40 Block size . . . . . 4000 Data set name type (LIBRARY, HFS, PDS, LARGE, BASIC, * EXTREQ, EXTPREF or blank) Expiration date . . . (YY/MM/DD, YYYY/MM/DD Enter "/" to select option YY.DDD, YYYY.DDD in Julian form Allocate Multiple Volumes DDDD for retention period in days or blank) ( * Specifying LIBRARY may override zero directory block) F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap F10=Actions F12=CancelCOBOL代码
****** ***************************** Top of Data ****************************** 000100 000100 PROCESS TEST,MAP 008900 008900****************************************************************** 009000 009000* IDENTIFICATION DIVISION 009100 009100****************************************************************** 009101 009101 IDENTIFICATION DIVISION. 009102 009102 PROGRAM-ID. TESTFILE. 009103 009103****************************************************************** 009104 009104* ENVIRONMENT DIVISION 009105 009105****************************************************************** 009106 009106 ENVIRONMENT DIVISION. 009107 009107 CONFIGURATION SECTION. 009108 009108 INPUT-OUTPUT SECTION. 009109 009109 FILE-CONTROL. 009110 009110 SELECT FILEA ASSIGN TO TESTFA. 009111 009111 SELECT FILEB ASSIGN TO TESTFB. 009112 009112****************************************************************** 009113 009113* DATA DIVISION 009114 009114****************************************************************** 009115 009115 DATA DIVISION. 009116 009116 FILE SECTION. 009117 009117 FD FILEA. 009121 009121 01 FA-REC. 009122 009122 05 FA-INFO PIC X(40). 009123 009123* 009124 009124 FD FILEB. 009127 009127 01 FB-REC. 009128 009128 05 FB-INFO PIC X(40). 009129 009129* 009130 009130 WORKING-STORAGE SECTION. 009131 009131 01 WK-SWITCH PIC X(01). 009132 009132 88 WK-SWH-ON VALUE '1'. 009133 009133 88 WK-SWH-OFF VALUE '0'. 009134 009134 01 WK-COUNT. 009135 009135 05 WK-CNT-RD PIC 9(03) COMP-3. 009136 009136 05 WK-CNT-WT PIC 9(03) COMP-3. 009137 009137****************************************************************** 009138 009138* PROCEDURE DIVISION 009139 009139****************************************************************** 009140 009140 PROCEDURE DIVISION. 009141 009141* 009142 009142 PERFORM 1000-INIT. 009143 009143 PERFORM 2000-MAIN. 009144 009144 PERFORM 3000-END. 009145 009145****************************************************************** 009146 009146* 1000-INIT 009147 009147****************************************************************** 009200 009200 1000-INIT SECTION. 009201 009201 1000-INIT-S. 009202 009202 OPEN INPUT FILEA. 009203 009203 OPEN OUTPUT FILEB. 009204 009204 1000-INIT-E. 009205 009205 EXIT. 009206 009206****************************************************************** 009207 009207* 2000-MAIN 009208 009208****************************************************************** 009209 009209 2000-MAIN SECTION. 009210 009210 2000-MAIN-S. 009211 009211 ADD +1 TO WK-CNT-RD. 009212 009212 READ FILEA 009213 009213 AT END 009214 009214 SET WK-SWH-ON TO TRUE 009216 009216 NOT AT END 009217 009217 MOVE FA-INFO TO FB-INFO 009219 009219 WRITE FB-REC 009220 009220 ADD +1 TO WK-CNT-WT 009221 009221 END-READ. 009230 009230* 020700 020700 PERFORM UNTIL WK-SWH-ON 020710 020710 ADD +1 TO WK-CNT-RD 020800 020800 READ FILEA 020900 020900 AT END 020910 020910 SET WK-SWH-ON TO TRUE 021000 021000 NOT AT END 021002 021002 MOVE FA-INFO TO FB-INFO 021020 021020 WRITE FB-REC 021030 021030 ADD +1 TO WK-CNT-WT 021100 021100 END-READ 021200 021200 END-PERFORM. 021300 021300 2000-MAIN-E. 021400 021400 EXIT. 023300 023300****************************************************************** 023400 023400* 3000-END 023500 023500****************************************************************** 023600 023600 3000-END SECTION. 023601 023601 3000-END-S. 023603 023603 DISPLAY 'READ : ' , WK-CNT-RD. 023605 023605 DISPLAY 'WRITE: ' , WK-CNT-WT. 023607 023607 CLOSE FILEA , FILEB. 023608 023608 STOP RUN. 023609 023609 3000-END-E. 023610 023610 EXIT. ****** **************************** Bottom of Data ****************************input:
****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4 000001 AAAAAAAAA AAAAAAAAA AAAAAAAAA AAAAAAAAAA 000002 BBBBBBBBB BBBBBBBBB BBBBBBBBB BBBBBBBBBB 000003 CCCCCCCCC CCCCCCCCC CCCCCCCCC CCCCCCCCCC 000004 DDDDDDDDD DDDDDDDDD DDDDDDDDD DDDDDDDDDD 000005 EEEEEEEEE EEEEEEEEE EEEEEEEEE EEEEEEEEEE 000006 FFFFFFFFF FFFFFFFFF FFFFFFFFF FFFFFFFFFF ****** **************************** Bottom of Data ****************************output:
****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4 000001 AAAAAAAAA AAAAAAAAA AAAAAAAAA AAAAAAAAAA 000002 BBBBBBBBB BBBBBBBBB BBBBBBBBB BBBBBBBBBB 000003 CCCCCCCCC CCCCCCCCC CCCCCCCCC CCCCCCCCCC 000004 DDDDDDDDD DDDDDDDDD DDDDDDDDD DDDDDDDDDD 000005 EEEEEEEEE EEEEEEEEE EEEEEEEEE EEEEEEEEEE 000006 FFFFFFFFF FFFFFFFFF FFFFFFFFF FFFFFFFFFF ****** **************************** Bottom of Data ****************************注：程序里面定义的FILEA的长度是40，所以相应的Record length也要40，不要会发生abend。
Record format使用FB -
RE: 新手入门之vsam online操作posted in DATA MANAGEMENT SYSTEMS
VSAM文件纪录的浏览:
对VSAM文件可以从头开始，依次查询各条纪录，这要用到4条CICS命令：STARTBR, READNEXT, READPREV, ENDBR, 依次为开始浏览，读下
条纪录，读前条纪录和结束浏览命令。
这些命令使用的选项含义与READ命令大致相同，但增加了一条REQID，这个选项用来使程序能对一个文件同时发动多个查询，各个查询可
以有不同的当前位置。在STARTBR时，返回打开的浏览的REQID，在后面的命令中使用REQID指明进行那个浏览的操作。程序通过检查命令
的返回码来判断文件结束等情况。STARTBR FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS STARTBR FILE( 'SBVSAM2 ' ) < SYSID() > RIDFLD( 'CITI' ) < KEYLENGTH() < GENERIC > > < REQID( +00000 ) > < RBA | RRN | DEBREC | DEBKEY > < GTEQ | EQUAL > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREADNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'CITI' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREADNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( 'ISSC BALAACCMF39778173' ) ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000READNEXT FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READNEXT FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( '' ) ) < LENGTH( +00000 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: ENDFILE EIBRESP=+0000000020 EIBRESP2=+0000000090 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREADPREV FILE('SBVSAM2') RIDFLD(&KEY) STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READPREV FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREADPREV FILE('SBVSAM2') RIDFLD(&KEY) STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS READPREV FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO( 'ISSC BALAACCMF39778173' ) ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < REQID( +00000 ) > < RBA | RRN > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
VSAM文件纪录更新:
CICS使用REWRITE命令来更改数据，REWRITE命令一定要跟在一个READ UPDATE命令之后，而且KSDS的KEY是不能改变的。REWRITE命令
的选项前面都介绍过了，它的异常情况也与READ大致相同，但多了以下几项：
LENGERR：写入纪录的长度没有指定或太长
NOSPACE： 文件空间不足，可能的原因是文件中变长纪录长度增加了
INVREQ： 多由以下原因造成：在REWITE一个记录前，没有运行过READ UPDATE命令
ILLOGIC： 其他VSAM文件操作错误。这种情况下可以通过检测EIBRCODE字段来判断错误种类：在EIBRCODE中，第二个字节为VSAM
错误码。具体代码可以到VSAM代码手册中查询。READ FILE('SBVSAM2') RIDFLD('ISSC') UPDATE STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS READ FILE( 'SBVSAM2 ' ) < SYSID() > ( SET() | INTO() ) < LENGTH() > RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC > > < RBA | RRN | DEBREC | DEBKEY > < GTEQ | EQUAL > < UNCOMMITTED | CONSISTENT | REPEATABLE | UPDATE < TOKEN() > > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREWRITE FILE('SBVSAM2') FROM('ISSC BALAACCMF39778173') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS REWRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALAACCMF39778173' ) < LENGTH( +00023 ) > < TOKEN() > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFREWRITE FILE('SBVSAM2') FROM('ISSC BALAACCMF39778173') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS REWRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALAACCMF39778173' ) < LENGTH( +00023 ) > < TOKEN() > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFENDBR FILE('SBVSAM2') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS ENDBR FILE( 'SBVSAM2 ' ) < SYSID() > < REQID( +00000 ) > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
添加VSAM文件纪录：
CICS使用WRITE命令来向VSAM文件写入纪录。命令选项含义与前面的介绍相同。当我们需要按键值的升序排列插入多个纪录时，须使用
MASSINSERT选项，每个WRITE命令都要包含这个选项，要终止MASSINSERT，可通过UNLOCK命令来实现。WRITE FILE('SBVSAM2') FROM( 'ISSC BALADBDMF39778173' ) RIDFLD('ISSC') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS WRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALADBDMF39778173' ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < RBA | RRN > < MASSINSERT > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFWRITE FILE('SBVSAM2') FROM( 'ISSC BALADBDMF39778173' ) RIDFLD('ISSC') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS WRITE FILE( 'SBVSAM2 ' ) < SYSID() > FROM( 'ISSC BALADBDMF39778173' ) < LENGTH( +00023 ) > RIDFLD( 'ISSC' ) < KEYLENGTH() > < RBA | RRN > < MASSINSERT > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
删除VSAM文件纪录:
CICS使用DELETE命令来删除VSAM文件的纪录。只有KSDS和RRDS结构的VSAM文件中的纪录能被删除，这与数据的存放格式有关。ESDS文件
的纪录按进入的顺序排放，只能在文件尾增加纪录，不能删除，而且更新时不能改变长度。如果该记录在请求删除前正在被更新，那么
参数RIDFLD可以不指定，默认为当前记录。如果使用GENERIC参数，必须给定KELENGTH参数，指出KEY长度，同时NUMREC指出要删除的记
录长度，这样就可以一次删除若干条记录。DELETE FILE('SBVSAM2') RIDFLD('ISSC') STATUS: ABOUT TO EXECUTE COMMAND NAME= EXEC CICS DELETE FILE( 'SBVSAM2 ' ) < SYSID() > < TOKEN() | RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC < NUMREC() > > > > < RBA | RRN > < NOSUSPEND > PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SFDELETE FILE('SBVSAM2') RIDFLD('ISSC') STATUS: COMMAND EXECUTION COMPLETE NAME= EXEC CICS DELETE FILE( 'SBVSAM2 ' ) < SYSID() > < TOKEN() | RIDFLD( 'ISSC' ) < KEYLENGTH() < GENERIC < NUMREC() > > > > < RBA | RRN > < NOSUSPEND > RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF