|
|
|
 心情不错
|
|
|
2010-2-17 星期三(Wednesday) 小雪
|
今天已经是大年初四了，宅在家过完了这些天。
没在老家过年，年也就失去了意味了。
随着年龄的一轮一轮地长大，时间仿佛也过得越来越快了。
或许是考虑的事情是越多了，更本就无暇估计时间的快慢了。
身不由己地被时间推着前行
等回过头来看看以前走过的路的时候才发现，已经离开起点越来越远了。
回家的频率是越来越低，思乡和怀旧的情绪也越来越浓。
这些天无事看到那些小表弟表妹的QQ签名都开始是关于爱情的时候
猛然发现那些原来感觉都是小豆芽菜的小孩都已经开始长大了
让自己惊醒，原来我已经不在青葱岁月了。
虽然有点不愿，但自己的成熟或者老去已经是一个事实了。
即将要接过父辈的担子前行，愿还能保存着那份年轻冲动的心。......
|
shuven 发表于 2010-02-17 09:53 |  |
分类:心情日记 | 评论: 0 | 浏览:20 |  推荐指数：0 |
|
|
|
2010-2-2 星期二(Tuesday) 晴
|
记录一下在TSO命令行下使用DCLGEN
TSO DSN SYSTEM(DSNA) <--- 指定DB系统名
DCLGEN TABLE(TBPEOPLE) <--- Table name
LIBRARY('DDS1602.XUWEN.SPUFI.OUTPUT') <--- 输出地SQL及copybook存放位置
ACTION(REPLACE) APOST <--- 替换原有数据，（ADD新建）
LANGUAGE(IBMCOB) <--- 指定语言COBOL
STRUCTURE(PEOPLE) <--- 生成copybook的structure名
此外可通过JCL,和交互的界面方式调用DCLGEN......
|
| shuven 发表于 2010-02-02 18:01 | |
分类:学习笔记 | 评论: 0 | 浏览:24 | 推荐指数：0 |
|
|
|
2010-2-1 星期一(Monday) 晴
|
//* PRELINK STEP. *
//********************************************************************
//PLKED EXEC PGM=EDCPRLK,REGION=2048K,COND=((4,LT,PC),(4,LT,COB))
//STEPLIB DD DSN=CEE.SCEERUN,DISP=SHR
//SYSMSGS DD DSN=CEE.SCEEMSGP(EDCPMSGE),DISP=SHR
//SYSIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
......
|
| shuven 发表于 2010-02-01 10:54 | |
分类:JCL | 评论: 0 | 浏览:25 | 推荐指数：0 |
|
|
|
2010-1-19 星期二(Tuesday) 阴
|
记录一下，免得以后忘记了
JCL code
***************************** Top of Data ******************************
//SORTTEST JOB 'DDS1602',MSGCLASS=S,TIME=1440,NOTIFY=&SYSUID
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*,OUTLIM=5000
//SYSPRINT DD SYSOUT=*,OUTLIM=5000
//SYSTSPRT DD SYSOUT=*,OUTLIM=5000
......
|
| shuven 发表于 2010-01-19 18:30 | |
分类:JCL | 评论: 0 | 浏览:47 | 推荐指数：0 |
|
|
|
2010-1-18 星期一(Monday) 晴
|
***************************** Top of Data ******************************
//COBOLCPL JOB CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A,
// NOTIFY=&SYSUID
//DFHYITVL PROC SUFFIX=1$, SUFFIX FOR TRANSLATOR MODULE
// INDEX='CICSTS.V2R3.CICS', QUALIFIER(S) FOR CICS LIBRARIES
// DSCTLIB='CICSTS.V2R3.CICS.SDFHCOB', NAME OF PRIVATE DSECT
// LE370HLQ='CEE', QUALIFIER(S) FOR LE/370 LIBRARIES
......
|
| shuven 发表于 2010-01-18 17:27 | |
分类:JCL | 评论: 0 | 浏览:34 | 推荐指数：0 |
|
|
|
2009-12-29 星期二(Tuesday) 晴
|
系统模块：
CIF-Customer Information File客户信息文件
CLS-Central Liability System中心债务系统
GL-General Ledger总帐
Deposit存款系统
Remittance汇款系统
Loans贷款系统
Trade Finance贸易融资
Treasury金库（银行的银行）
Factoring保理系统
Anti-money Laundry反洗钱
关联术语：
SWIFT-Society Worldwide Interbank Financial Telecommunication环球同业银行金融电讯协会
BIC- bank identify code(swift code)
IBAN-International Bank Account Number国际银行帐户号码
STP-Straight Through Processing直接处理
OSN-
......
|
| shuven 发表于 2009-12-29 20:18 | |
分类:学习笔记 | 评论: 0 | 浏览:96 | 推荐指数：0 |
|
|
|
2009-12-29 星期二(Tuesday) 小雪
|
COBOL中文件读写的总结
author：inder
1， ORGANIZATION IS SEQUENCE。
这样的写法表示文件的组织形式是顺序文件。具有顺序文件特性的文件都可以作为组织形式是顺序文件的组织形式在COBOL程序中使用。比如PS文件，KSDS文件，ESDS文件等等。
2， ORGANIZATION IS LINE SEQUENCE.
这样的写法只有在WD/z中才能够出现，因为在PC机上面，采用的码制式ASCII而大型计算机上面采用的试EBCDIC码制。因此，VB的变长文件在PC上面不能够自动根据文件的前面4个BYTE的隐含长度来判断这条记录的长度，需要使用LINE SEQUENCE，属性来找‘0D0A’这样的结束符来表示一条记录的结束。
3， ORGANIZATION IS INDEXED。
这样的写法表示，文件是有主键的。类似于数据库。这样的文件只可能是KSDS文件。KSDS文件是VSAM文件的其中一中，VSAM文件包含四中，分别是：KSDS(根据......
|
| shuven 发表于 2009-12-29 12:47 | |
分类:学习笔记 | 评论: 0 | 浏览:206 | 推荐指数：0 |
|
|
|
2009-12-29 星期二(Tuesday) 晴
|
1. Show the tables of application
SELECT NAME, CREATOR, TYPE, DBNAME, TSNAME,
COLCOUNT, RECLENGTH, CREATEDBY, CREATEDTS
FROM SYSIBM.SYSTABLES
WHERE NAME LIKE 'CY%'
AND TYPE = 'T'
ORDER BY NAME, COLCOUNT;
原来我做过很多DB2的操作.这是命令是我在实践中总结出来的.解释如下:
在系统中找出所有以CY开头的Table(表)并以表名排序, 并显示:
Name(表名)
CREATOR(表的建立者)
TYPE(表的类型,T代表是实际的表,V代表是视图)
...
(其它的就不多说了,可以自己查DB2的书)
*******************************************************************************
......
|
| shuven 发表于 2009-12-29 12:35 | |
分类:学习笔记 | 评论: 0 | 浏览:35 | 推荐指数：0 |
|
|
|
2009-7-20 星期一(Monday) 阴
|
一个星期就这么过去了
工作上好像也没什么改变的迹象
依然感受这经济的寒冬
机会确实是少之又少
自大和自卑之中往复的徘徊着
也不能解决这任何的问题
大趋势就是这样
想改变确实是比较困难的
唯一能改变的恐怕就是自己吧
让自己在真正的机会到来的时候能够胸有成竹
别退缩
从现在开始就得好好地学习了
唯一能做的恐怕就只能是这些了
只寄望未来能更好了......
|
shuven 发表于 2009-07-20 22:47 |  |
分类:心情日记 | 评论: 0 | 浏览:129 | 推荐指数：0 |
|
|
|
2009-7-10 星期五(Friday) 晴
|
又来一次从ISSC离职
只是现在没有第一次的那种感伤了
相信明天会更好
放松心态，好好找工作
说不定好的机会就等在前面呢
......
|
| shuven 发表于 2009-07-10 10:07 | |
分类:心情日记 | 评论: 0 | 浏览:119 | 推荐指数：0 |
|
|
|
2009-7-9 星期四(Thursday) 晴
|
Here are some of differences between a TDQ and a TSQ,
1) In Temporary Storage Queues Data is read randomly, While in Transient Data Queues data must be read sequentially.
(2) In a TSQ data can be read any number of times as it remains in the queue until the entire Queue is deleted. In TDQ data item can be read once only. To reuse the TDQ it must be closed and reopened.
(3) Data can be changed in TSQ, but not in TDQ.
(4) TSQ can be written to Auxiliary or Main Storage, while TDQ is written to Disk. Temporary storage is a holding place, while Transient data is always associated with destination.
......
|
| shuven 发表于 2009-07-09 10:06 | |
分类:学习笔记 | 评论: 0 | 浏览:238 | 推荐指数：0 |
|
|
|
2009-7-7 星期二(Tuesday) 晴
|
日语二级必会副词
副 词 （ ~~ り）
あまり3 // 太、口语说あんまり
かなり1 // 相当、颇、~~の金額/ 很可观的金额
ずらり2 // 一溜儿、一排、本棚に画集を~~と並べる/ 在书架上摆一溜儿画册
つまり3 // 结局、总之、就是说、即
ぴたり3 // （机器）突然停下、紧紧地、紧贴、答えを~~と当てる/ 回答恰恰说对了
やはり2 // 依旧、仍然、还是、果然（没能取胜）、毕竟（他水平高）
いきなり0 // 突然、冷不防
うっかり3 // 马虎、不留神
がっかり3 // 失望、泄气、无精打采、精疲力竭
ぎっしり3 // ~~とつめこむ/ （装或挤得）满满、~~とつめこむ/ 塞得满满的
ぐっすり3 // 酣睡、熟睡
こっそり3 // 悄悄地、暗暗地、偷偷地（溜出房间）
ごっそり3 // 全部、一点不剩
こってり3 // （味道）浓、（化妆）浓艳、（被老师）狠狠地（训了）
さっぱり3 // 干净、利落、（食物）......
|
| shuven 发表于 2009-07-07 17:55 | |
分类:日语语法 | 评论: 0 | 浏览:143 | 推荐指数：0 |
|
|
|
2009-6-8 星期一(Monday) 晴
|
今天总算是主动把自己的离职申请用邮件发出去了
就如泼出去的水，想收也收不回了，更何况我还不想收呢
发给公司的经理的同时也CC给了IBM的PDM
这次公司是再想耍什么花样都无所谓了
大爷我心意已决
只要别耍什么阴谋手段就行
摆脱压在心头的这个大石头
为自己的未来奋斗
努力努力再努力！......
|
| shuven 发表于 2009-06-08 14:48 | |
分类:心情日记 | 评论: 0 | 浏览:110 | 推荐指数：0 |
|
|
|
2009-5-11 星期一(Monday) 晴
|
为自己考虑得太多那是自私
为别人考虑得太多是不是会失去自我呢
畏畏嗦嗦地，不敢去尝试
尝试了，最坏的结果又怎么样呢
总比现在这种一成不变的状况啊
勇气，不仅仅是为了自己
需要改变，需要努力，需要放下心中的畏惧
天下之大，哪没有爷混饭吃的地方啊
加油！！！！！！！！！！！！！！！......
|
| shuven 发表于 2009-05-11 17:42 | |
分类:心情日记 | 评论: 0 | 浏览:98 | 推荐指数：0 |
|
|
|
2009-4-30 星期四(Thursday) 晴
|
--------Unload Data From DB2 Table
//*SUBMIT CL(A) MSGC(Y) MSGL(1,1) NOT LSYS(V300)
//********************************************************************
//*** UNLOAD DATA FROM TABLE DB2MAPB.ORDER ***
//********************************************************************
//*
//JOBLIB DD DSN=SYS1.DB2T.SDSNLOAD,DISP=SHR
// DD DSN=ISAP.FINLT010.LOD,DISP=SHR
......
|
| shuven 发表于 2009-04-30 16:47 | |
分类:JCL | 评论: 0 | 浏览:154 | 推荐指数：0 |
|
|
