徐文的日记本

　　google search CICS infocenter
　　
　　TDQ - intrapartition
　　 extrapartition
　　
　　TSQ - main storage
　　 Auxiliary(default, recoverable) - DFHTEMP
　　
　　
　　CEOT
　　Terminal(W048)
　　Transaction(CEOT)
　　Priority(000)
　　Pagestatus( Pageable )
　　Servstatus(Inservice)
　　Atistatus( Ati )
　　Ttistatus( Tti )
　　Netname(TCPW048)
　　Termstatus(Acquired)
　　Uctranst( Tranidonly )
　　Createsess(Nocreate)

　　昨天晚上加了一晚上的班
　　今天休息一天，难得记录一下
　　2010年的最后一天
　　上海的阳光很明媚
　　希望自己的未来也能如此
　　

�牐犝厶诹似吒鲋油罚�从大连来到了上海
�牐犛�接我的除了老同事的热情以外还有上海初春的冷雨
�牐牳芯醵陨虾Ｒ裁涣肆侥昵暗哪侵秩惹�
�牐犇昴晁晁昊ㄏ嗨疲�岁岁年年人不同
�牐牳芯鹾苁悄吧�
�牐牽�始怀念起大连来
�牐牷蛐砘衬畹牟皇悄歉龀鞘校�而是生活在那个城市的那个人来
�牐牭Ｐ乃�是否吃得好，是否穿得暖
�牐犆晃以谏肀呤欠窆�得开心
�牐犐岵坏�
�牐犛猩岵庞械�
�牐犖�她也为自己要好好努力
�牐犚�为她建造一个属于我们的温暖的家
�牐犈�力努力努力！

�牐牻裉煲丫�是大年初四了，宅在家过完了这些天。
�牐犆辉诶霞夜�年，年也就失去了意味了。
�牐犓孀拍炅涞囊宦忠宦值爻ご螅�时间仿佛也过得越来越快了。
�牐牷蛐硎强悸堑氖虑槭窃蕉嗔耍�更本就无暇估计时间的快慢了。
�牐犐聿挥杉旱乇皇奔渫谱徘靶�
�牐牭然毓�头来看看以前走过的路的时候才发现，已经离开起点越来越远了。
�牐牷丶业钠德适窃嚼丛降停�思乡和怀旧的情绪也越来越浓。
�牐犝庑┨煳奘驴吹侥切┬”淼鼙砻玫腝Q签名都开始是关于爱情的时候
�牐犆腿环⑾帜切┰�来感觉都是小豆芽菜的小孩都已经开始长大了
�牐犎米约壕�醒，原来我已经不在青葱岁月了。
�牐犓淙挥械悴辉福�但自己的成熟或者老去已经是一个事实了。
�牐牸唇�要接过父辈的担子前行，愿还能保存着那份年轻冲动的心。

�牐牸锹家幌略赥SO命令行下使用DCLGEN
�牐�
�牐燭SO 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名
�牐�
�牐�
�牐牬送饪赏ü齁CL,和交互的界面方式调用DCLGEN

　　//* 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),

�牐牸锹家幌拢�免得以后忘记了
�牐牐牐牐牐�
�牐燡CL 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

�牐�***************************** 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

�牐犗低衬？椋�
�牐燙IF-Customer Information File客户信息文件
�牐燙LS-Central Liability System中心债务系统
�牐燝L-General Ledger总帐
�牐燚eposit存款系统
�牐燫emittance汇款系统
�牐燣oans贷款系统
�牐燭rade Finance贸易融资
�牐燭reasury金库（银行的银行）
�牐燜actoring保理系统
�牐燗nti-money Laundry反洗钱
�牐�
�牐牴亓�术语：
�牐燬WIFT-Society Worldwide Interbank Financial Telecommunication环球同业银行金融电讯协会
�牐燘IC- bank identify code(swift code)
�牐營BAN-International Bank Account Number国际银行帐户号码
�牐燬TP-Straight Through Processing直接处理
�牐燨SN-

�牐燙OBOL中文件读写的总结
�牐燼uthor：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(根据

�牐�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的书)
�牐�*******************************************************************************

�牐犚桓鲂瞧诰驼饷垂�去了
�牐牴ぷ魃虾孟褚裁皇裁锤谋涞募Ｏ�
�牐犚廊桓惺苷饩�济的寒冬
�牐牷�会确实是少之又少
�牐犠源蠛妥员爸�中往复的徘徊着
�牐犚膊荒芙饩稣馊魏蔚奈侍�
�牐牬笄魇凭褪钦庋�
�牐犗敫谋淙肥凳潜冉侠�难的
�牐犖ㄒ荒芨谋涞目峙戮褪亲约喊�
�牐犎米约涸谡嬲�的机会到来的时候能够胸有成竹
�牐牨鹜怂�
�牐牬酉衷诳�始就得好好地学习了
�牐犖ㄒ荒茏龅目峙戮椭荒苁钦庑┝�
�牐犞患耐�未来能更好了

�牐犛掷匆淮未覫SSC离职
�牐犞皇窍衷诿挥械谝淮蔚哪侵指猩肆�
�牐犗嘈琶魈旎岣�好
�牐牱潘尚奶�，好好找工作
�牐犓挡欢ê玫幕�会就等在前面呢
�牐�

�牐燞ere 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.

�牐犎沼锒�级必会副词
�牐牳� 词 （ ~~ り）
�牐牑ⅳ蓼�3 // 太、口语说あんまり
�牐牑�なり1 // 相当、颇、~~の金額/ 很可观的金额
�牐牑氦椁�2 // 一溜儿、一排、本棚に画集を~~と並べる/ 在书架上摆一溜儿画册
�牐牑膜蓼�3 // 结局、总之、就是说、即
�牐牑预郡�3 // （机器）突然停下、紧紧地、紧贴、答えを~~と当てる/ 回答恰恰说对了
�牐牑浃悉�2 // 依旧、仍然、还是、果然（没能取胜）、毕竟（他水平高）
�牐牑い�なり0 // 突然、冷不防
�牐牑Δ盲�り3 // 马虎、不留神
�牐牑�っかり3 // 失望、泄气、无精打采、精疲力竭
�牐牑�っしり3 // ~~とつめこむ/ （装或挤得）满满、~~とつめこむ/ 塞得满满的
�牐牑挨盲工�3 // 酣睡、熟睡
�牐牑长盲饯�3 // 悄悄地、暗暗地、偷偷地（溜出房间）
�牐牑搐盲饯�3 // 全部、一点不剩
�牐牑长盲皮�3 // （味道）浓、（化妆）浓艳、（被老师）狠狠地（训了）
�牐牑丹盲绚�3 // 干净、利落、（食物）