http://shuven.blog.tianya.cn/ 记录生活的声音 shuven 2009-7-20星期一(Monday)阴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=18174360&idWriter=0&Key=0 一个星期就这么过去了
工作上好像也没什么改变的迹象
依然感受这经济的寒冬
机会确实是少之又少
自大和自卑之中往复的徘徊着
也不能解决这任何的问题
大趋势就是这样
想改变确实是比较困难的
唯一能改变的恐怕就是自己吧
让自己在真正的机会到来的时候能够胸有成竹
别退缩
从现在开始就得好好地学习了
唯一能做的恐怕就只能是这些了
只寄望未来能更好了]]> 2009-7-20 22:47:00(0) shuven 2009-7-10星期五(Friday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=18039696&idWriter=0&Key=0 又来一次从ISSC离职
只是现在没有第一次的那种感伤了
相信明天会更好
放松心态，好好找工作
说不定好的机会就等在前面呢
]]> 2009-7-10 10:07:00(0) shuven 2009-7-9星期四(Thursday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=18026282&idWriter=0&Key=0 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.
(5) TSQ name is defined dynamically, while a TDQ name need to be defined in the DCT. Note: An application uses TSQ 's to pass info' from task to task, while a TDQ to accumulate records before processing or send data for external use, such as a print operation or other.]]> 2009-7-9 10:06:00(0) shuven 2009-7-7星期二(Tuesday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=18006586&idWriter=0&Key=0 日语二级必会副词
副 词 （ ~~ り）
あまり3 // 太、口语说あんまり
かなり1 // 相当、颇、~~の金額/ 很可观的金额
ずらり2 // 一溜儿、一排、本棚に画集を~~と並べる/ 在书架上摆一溜儿画册
つまり3 // 结局、总之、就是说、即
ぴたり3 // （机器）突然停下、紧紧地、紧贴、答えを~~と当てる/ 回答恰恰说对了
やはり2 // 依旧、仍然、还是、果然（没能取胜）、毕竟（他水平高）
いきなり0 // 突然、冷不防
うっかり3 // 马虎、不留神
がっかり3 // 失望、泄气、无精打采、精疲力竭
ぎっしり3 // ~~とつめこむ/ （装或挤得）满满、~~とつめこむ/ 塞得满满的
ぐっすり3 // 酣睡、熟睡
こっそり3 // 悄悄地、暗暗地、偷偷地（溜出房间）
ごっそり3 // 全部、一点不剩
こってり3 // （味道）浓、（化妆）浓艳、（被老师）狠狠地（训了）
さっぱり3 // 干净、利落、（食物）清淡、（性格）爽朗、（收拾得）干净
しっかり3 // ~~した土台/ 坚固的基础、~~した研究/ 扎扎实实的研究
すっかり3 // 完全、仕事は~~おわった/ 工作全部结束了
すっきり3 // （心情）舒畅、干净、利落、（文章）通顺
そっくり3 // 全部（被偷了）、[形动] 一模一样、酷似
たっぷり3 // 足、足够、（睡）足了、~~した服/ 肥大的衣服
にっこり3 // 微笑、~~と笑う/ 微微一笑
のんびり3 // 优先、逍遥自在
はっきり3 // 清晰、明了、~~と見える/ 看得清楚、~~した態度/ 明确的态度
ばったり3 // 突然相遇、（与朋友）不期而遇、（事物）突然中断
ぱったり3 // 与ばったり相同，但语感稍轻
ぱっちり3 // ~~した目/ 亮晶晶的大眼睛
びっくり3 // 吃惊、吓一跳
ぴったり3 // 紧紧地、恰好、ぴたり的强调性
ぼんやり3 // 模糊、朦胧、不清楚、心不在焉、~~とながめる/ 呆望
めっきり3 // 忽然、显著地、明显地、（天气）突然（冷了起来）
やっぱり3 // 同やはり
ゆっくり3 // 慢慢、~~と歩く/ 慢步而行、从容
おもいきり0 // 尽量地、充分地、放手（发动群众）、尽情地

副 词 （~~に）
今に1 いまに // 过一会儿、即将、就要、不久、早晚、总有一天
主に1 おもに // 主要是……
現に1 げんに // 现在、眼前、确实、实际上（你不是在那儿吗？）
厳に1 げんに // 严格、严厉、严加训诫
先に0 さきに // 以前、以往、先
更に1 さらに // 又、再次、越发、进一步
直に1 じかに // 直接地、当面、~~着る/ 贴身穿
実に2 じつに // 实在、真、的确、~~すばらしい/ 真是美极了
直ぐに1 すぐに // 马上、立即、~~行きます/ 立刻过去、（距离）很近
既に1 すでに // 以前、已经、业已、即将、正当、
偶に2 たまに // 偶尔、有时候
単に1 たんに // 仅、只、单
常に1 つねに // 常常、经常、时常
特に1 とくに // 特别、特意、格外
共に0 ともに // 共同、（的）同时
別に0 べつに // 另外、除此以外、特别（后面多接否定）
正に1 まさに // 完全、的确、正要、将要、理应、理所当然
割に0 わりに // ~~安い / 比较便宜、也说 わりと
一度に0 いちどに // 一同、一下子、同时
大いに1 おおいに // （数、量）多、（程度）相当、甚、非常
代わりに0 かわりに // 代替、代理
急に0 きゅうに // 突然、忽然
頻りに0 しきりに // 频频、再三、屡次、热心、很
次第に0 しだいに // 逐渐、渐渐
確かに1 たしかに // 多半、大概、确实——[形动]
直ちに1 ただちに // 当即、立刻、~~出発する/ 马上出发
とっくに3 // 早早、老早
途端に0 とたんに // 突然、~~に態度を変えた/ 突然变了脸
俄に1 にわかに // 突然、忽然、立刻、马上
はじめに0 // 以前、原先、先前
滅多に1 めったに // 几乎、不常、很少
やたらに0 // 随心所欲、恣意
あんなに0 // 那样的
こんなに0 // 这么样
そんなに0 // （程度、数量）那么样
どんなに1 // 如何、怎样、多么
明らかに2 あきらかに // 明亮、光明、显然、分明
一斉に0 いっせいに // 一齐、同时（射击）
お互いに0 おたがいに // 互相（帮助）
非常に0 ひじょうに // 非常、特别、很
必死に0 ひっしに // 拼命地（追赶）、~~に戦う(たたかう)/ 殊死搏斗
独りでに0 ひとりでに // 自动地、自然而然、~~治る/ 自然而然地痊愈了
真先に0 まっさきに // 最先、首先、最前面
要するに0 ようするに // 总之、总而言之
割合に0 わりあいに // 比较低、意外地、也说割と
順々に3 じゅんじゅんに // 按顺序

副 词 （前后重叠）
あちこち3 // 到处、各处
生き生き3 いきいき // 生气勃勃、生动
一々2 いちいち // 一一、无遗漏地
いよいよ2 // 更、越发、到底、终于、紧要关头
いらいら1 // 着急、焦躁、気が~~する/ 心里着急

うろうろ1 // 徘徊、转来转去、急得乱转
各々2 おのおの // 各自、分别、人は~~考え方が違う/ 人各自想法不同
方々2 かたがた // 诸位、各位、人々的敬称
しばしば1 // 屡次、常常
徐々に1 じょじょに // 徐徐、缓缓
好きずき2 すきずき // 人には~~がある/ 人各有所好、爱好不同
精々1 せいぜい // 尽量、尽、充其量、顶多
続々1 ぞくぞく // 连续、继续不断、陆续
それぞれ2 // 各自、各个、每个
そろそろ1 // 逐渐、渐渐（可以动了）、不久、马上立刻（走了）
度々0 たびたび // 常常、屡次
たまたま0 // 偶然、碰巧、偶尔
段々0 だんだん // 渐渐、逐渐
ちかぢか0 // 不久、最近
次々0 つぎつぎ // 接连不断、络绎不断
凸凹0 でこぼこ // ~~した道/ 坑洼不平的路、（学力）参差不齐
でこでこ1 // 浓艳地（装饰）、满满地（装、盛）
点々1 てんてん // 点点（星光）、滴滴答答（往下落）
転々1 てんてん // 转来、转去、辗转（各地）
とうとう1 // 终于（有了结果）
堂堂0 とうとう // 堂堂正正
時々0 ときどき // 时常、常常（去）
どんどん1 // 接连不断、顺利、迅速、咚咚地（如强劲地敲鼓声）
中々0 なかなか // 后接否定表示（怎么也不……）、相当、很、非常（不错）
長々3 ながなが // 长、冗长（无聊的话）、四仰八叉（躺在床上）
にこにこ1 // 笑眯眯、笑微微
のろのろ1 // 慢腾腾地（走）
はきはき2 // 活泼、有朝气、干脆、爽快地（回答）
ぴかぴか2 // 闪亮、闪闪发亮的（皮鞋）、闪耀、（电光）闪闪
広々3 ひろびろ // 宽广、辽阔
ぶつぶつ1 // 小声嘟哝、牢骚、不满、（煮沸）哗哗、滚滚
ふわふわ1 // 轻轻飘动、心神不定、気持ちが~~している/ 心静不下来、~~した布団/ 松软的被子
別々0 べつべつ // ~~にする/ 分门别类、~~に処理する/ 分别处理、~~に帰る/ 各自回去
まあまあ1 // 马马虎虎、一般、还可以
まごまご1 // 不知所措、六神无主
益々2 ますます // 更加、越发、~~大きくなる/ 越来越大
冥々0 めいめい // 糊里糊涂、~~のうちに/ 冥冥之中、不知不觉之中
元々0 もともと // 依然如故、原来、原本（是个快乐的孩子）
悠々3 ゆうゆう // 悠然自得、不慌不忙
じゅんじゅん3 // ~~とさとす/ 谆谆告诫
少々1 しょうしょう // 稍微、一点儿

着々0 ちゃくちゃく // 稳步而顺利地、一步一个脚印地
所々4 ところどころ // 处处、到处、这里那里
めちゃくちゃ0 // 乱七八糟、同（目茶目茶/ めちゃめちゃ）

副 词 （一 ~~）
一応 / 一往0 いちおう // 大致、大略、暂且、姑且
一時2 いちじ // 一时（的兴奋）、当时（以为不行了）、暂时
一段と2 いちだんと // 更加、越发
一度に3 いちどに // 同时、都、一同、一下子（跑出去）
一番2 いちばん // 最、首要、试试
一部2 いちぶ // 一部分、（书刊等）一部、一套
一種1 いっしゅ // 一种、某种、一些、稍微
一瞬0 いっしゅん // 一瞬、一眨眼
一層0 いっそう // 更、越发
一体0 いったい // 总的说来、究竟、到底（是谁呢）
一斉に0 いっせいに // 一齐、同时
一般に0 いっぱんに // 总的来说
一定0 いってい // 统一规定、统一、一定、固定
一方3 いっぽう // 一方、一侧、一方面、单方面、一直、越来越……
一生0 いっしょう // 一生、终生
万一1 まんいち // ~~の場合/ 万一的情况下
再三0 さいさん // 再三、屡次
第一に1 だいいちに // 首先、更重要的

副 词 （ 四 个 字 ）
生憎0 あいにく // 不凑巧、偏偏
飽くまで1 あくまで // 到底、坚持、始终、彻底
あらゆる3 // 一切、所有
案外1 あんがい // 没想到、意外、比较（好吃）
幾分0 いくぶん // 某种程度、多少
一旦0 いったん // 一旦、万一、既然、一次
一杯0 いっぱい // 满、充满、最大限度
今にも1 いまにも // 马上、眼看
所謂3 いわゆる // 所谓（的书呆子）
大勢3 おおぜい // 许多人、多数人
大凡0 おおよそ // 大致、差不多、大约（十年前）
恐らく2 おそらく // 恐怕、也许、大概
思わず2 おもわず // 不由得、无意识地
かえって1 // 相反、反而
必ず0 かならず // 终究、肯定、一定、必定
きちんと2 // 干干净净、整整齐齐、有规律（的生活）、规规矩矩
偶然0 ぐうぜん // 偶然、偶尔
結構0 けっこう // 相当、很（挤）
幸い 0 さいわい // 幸而、幸亏（那天天好）
さっさと1 // 迅速（回去）、赶快

早速0 さっそく // 立刻、马上
しいんと0 // 静静地、静悄悄
暫く2 しばらく // 一会儿、好久（未写信了）
随分1 ずいぶん // 很、非常、相当（大）
折角0 せっかく // 好不容易、难得、特意

せっせと1 // 不停地、~~働く/ 拼命地工作
絶対0 ぜったい // 绝对……
ぜひとも1 // ぜひ的强调形
相当0 そうとう // 相当、很、颇
そのまま4 // 原封不动、照原样、一……马上就……

それほど0 // 那种程度
大して1 たいして // （下接否定）不那么、没怎么
大層1 たいそう // 很、非常（拥挤）、夸张
大抵0 たいてい // 大体上、基本上、适度、适当、一般（后接否定）
沢山0 たくさん // 许多、很多、戦争はもう~~だ/ 战争几经够了

たちまち0 // 立刻、转眼间、不大工夫
単なる1 たんなる // 只是、仅是（谣言罢了）
ちっとも3 // （下接否定）一点也不、毫不
ちゃんと0 // 端正、规规矩矩、~~並ぶ/ 摆得整整齐齐、好好地、完全、确实、的的确确
一寸1 ちょっと // 稍微、一点、一会儿、暂且、难以（接否定）

如何して1 どうして // 如何、怎样、为什么、什么理由
突然0 とつぜん // 突然
とにかく1 // 总之、不管怎样
ともかく1 // 总之、不管怎样、暂且不论
何しろ1 なにしろ // 不管怎么说、总之
何分1 なにぶん // 请（多关照）、只是因为、无奈（天太黑）

残らず2 のこらず // 一个不剩、全部（都吃了）
果たして2 はたして // 果然（如我想的）、果真（表示疑问）
一先ず2 ひとまず // 暂且、首先、~~家へ帰ろう/ 先回趟家吧
殆んど2 ほとんど // 几乎、差不多
本来1 ほんらい // 本来、原来

全く0 まったく // 完全、确实 、~~すばらしい/ 真棒、实在
間もなく2 まもなく // 不久、~~終わる/ 一会儿就好
最も3 もっとも // 最（漂亮的花）
漸く0 ようやく // 好容易、总算（到了山顶）
何も1 なにも // 一切都、~~見えない/ 什么都看不到、用不着、不必
なんでも1 // 一切、不论什么、无论如何、不管怎样、仿佛、好像
何とか1 なんとか // （指不明确的事物）什么（如一个什么公司）、没法、想个办法
何となく4 なんとなく // 总觉得、不由地、若无其事（地混过去了）
何とも1 なんとも // （后接否定）无关紧要、无论怎么说、无论从哪方面说
結局0 けっきょく // 最终、结果、归根到底
できるだけ0 // 尽可能、尽量（早点来）
どうしても4 // 无论如何、必须、~~できない/ 怎么也不会
もしかしたら1 // 或许、说不定、同もしかすると/ 1
比較的0 ひかくてき // それは比較的難しい問題だ/ 那是比较难的问题
久しぶり5 ひさしぶり // 隔了好久、お~~/ 久违了

副 词 （ 两 个 字 ）
極1 ごく // 最、~~貧しい人々/ 极为贫穷的人们
是非1 ぜひ // 无论如何、一定、务必
ふと0 // 猛然、忽然、偶然
ほぼ1 // 基本上、差不多
元1 もと // 原来、从前
稍1 やや // 微微、稍微（大一点儿的碗）
良く1 よく // 仔细、~~考える/ 认真考虑、~~やった/ 干得很出色、
良く1 よく // （做反语时表示）竟敢、竟（跟没事似的）
より1 // 更加、~~楽しい/ 更美好的人生

副 词 （其 余 各 种）
いずれ0 // 总之、不管怎样、不久、早晚
何時か1 いつか // 早晚、以后、什么时间
何時も1 いつも // 经常、总是、平时
この間5 このあいだ // 上次、前几天、前些日子
この頃2 このごろ // 近来、最近
以後1 いご // ……以后、……之后、今后、往后
今後1 こんご // 今后、以后
今度1 こんど // 这回、下次、下回
今回1 こんかい // 这次、这回
最近0 さいきん // 最近（不包括以后）
最初0 さいしょ // 最初、首先、开始
先程0 さきほど // 方才、刚才
先日0 せんじつ // 前几天、前些日子
当時1 とうじ // 当时
当日0 とうじつ // 当日、~~うり/ 当天售出、~~券/ 当天有效的（票、券）
そのうち0 // 不久、过几天
少し2 すこし // 稍微、一点儿
少しも2 すこしも // （与否定呼应）一点儿也不……、丝毫也不……
少なくとも2 すくなくとも // 至少、起码
多少0 たしょう // ~~にかかわらず/ 不论多少、稍微、（知道）一些 ]]> 2009-7-7 17:55:00(0) shuven 2009-6-8星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=17661843&idWriter=0&Key=0 今天总算是主动把自己的离职申请用邮件发出去了
就如泼出去的水，想收也收不回了，更何况我还不想收呢
发给公司的经理的同时也CC给了IBM的PDM
这次公司是再想耍什么花样都无所谓了
大爷我心意已决
只要别耍什么阴谋手段就行
摆脱压在心头的这个大石头
为自己的未来奋斗
努力努力再努力！]]> 2009-6-8 14:48:00(0) shuven 2009-5-11星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=17345044&idWriter=0&Key=0 为自己考虑得太多那是自私
为别人考虑得太多是不是会失去自我呢
畏畏嗦嗦地，不敢去尝试
尝试了，最坏的结果又怎么样呢
总比现在这种一成不变的状况啊
勇气，不仅仅是为了自己
需要改变，需要努力，需要放下心中的畏惧
天下之大，哪没有爷混饭吃的地方啊
加油！！！！！！！！！！！！！！！]]> 2009-5-11 17:42:00(0) shuven 2009-4-30星期四(Thursday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=17239684&idWriter=0&Key=0 --------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
// DD DSN=ISAP.FINLP010.LOD,DISP=SHR
// DD DSN=ISAP.FIN2T010.LOD,DISP=SHR
// DD DSN=ISAP.FIN2P010.LOD,DISP=SHR
// DD DSN=ISAP.UTILT010.LOD,DISP=SHR
// DD DSN=ISAP.UTILP010.LOD,DISP=SHR
//*
//*****************************************************************
//* STEP UNLDORB - UNLOAD TABLE DB2MAPB.ORDER
//*****************************************************************
//UNLDORB EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=3200K,TIME=30
// DD DSN=ISAP.DBA1T010.LOD,DISP=SHR
// DD DSN=ISAP.DBA1P010.LOD,DISP=SHR
// DD DSN=DB2T.RUNLIB.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=VB,LRECL=133,DSORG=PS)
//SYSPUNCH DD DUMMY,
// DCB=(RECFM=FB,LRECL=80,DSORG=PS)
//SYSREC00 DD DSN=C207719.DB2MAPB.ORDER,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(2000,400),RLSE),UNIT=DISK
//SYSTSIN DD *
DSN SYSTEM(DB2T)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL)
//SYSIN DD *
DB2MAPB.ORDER
//*
//CKULORB EXEC PGM=ENDUT,REGION=330K,COND=(0,GE,UNLDORB)
//*
//*****************************************************************



-- Load data into DB2 Table

//*SUBMIT CL(A) MSGC(Y) MSGL(1,1) NOT LSYS(V300)
//JOBLIB DD DSN=SYS1.DB2T.SDSNLOAD,DISP=SHR
// DD DSN=ISAP.FIN2T010.LOD,DISP=SHR
// DD DSN=ISAP.FIN2P010.LOD,DISP=SHR
// DD DSN=ISAP.FINLT010.LOD,DISP=SHR
// DD DSN=ISAP.FINLP010.LOD,DISP=SHR
// DD DSN=ISAP.UTILT010.LOD,DISP=SHR
// DD DSN=ISAP.UTILP010.LOD,DISP=SHR
//*
//**********************************************************************
//* CHANGE THE DATA RECORD LENGTH FOR LOADING TO TABLE *
//**********************************************************************
//*
//STEP001 EXEC CSORT3,CYLS=40
//SORTIN DD DSN=C207719.DB2MAPB.ORDER,DISP=SHR
//SORTOUT DD DSN=CAV70N1.DB2MAPB.ORDER,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(30,10),RLSE),UNIT=PROD,
// DCB=(RECFM=FB,LRECL=537,DSORG=PS)
//SYSIN DD *
INREC FIELDS=(1,537)
SORT FIELDS=COPY
//**********************************************************************
//* STEP060 IKJEFT01 *
//* START THE TABLESPACE FOR UTILITY ACCESS *
//**********************************************************************
//STEP060 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=3200K
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2T)
-START DATABASE (MAPBDB01) SPACENAM (FCMXOBTS) ACCESS (UT)
//*
//**********************************************************************
//CHK060 EXEC PGM=ENDUT,PARM='999',COND=(0,EQ,STEP060)
//**********************************************************************
//*
//**********************************************************************
//* STEP070 DSNUTLIB *
//* LOAD REPLACE THE INVOICES INTO THE DB2INVN.VARIANCE TABLE *
//**********************************************************************
//STEP070 EXEC PGM=DSNUTILB,
// PARM='DB2T,ORDLOADB'
//STEPLIB DD DSN=SYS1.DB2T.SDSNLOAD,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SORTWK01 DD DSN=CAV70N1.ORDERB.SORTWK1A,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SORTWK02 DD DSN=CAV70N1.ORDERB.SORTWK2A,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SORTWK03 DD DSN=CAV70N1.ORDERB.SORTWK3A,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SORTWK04 DD DSN=CAV70N1.ORDERB.SORTWK4A,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SYSUT1 DD DSN=CAV70N1.ORDERB.SYSUT1A,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SORTOUT DD DSN=CAV70N1.ORDERB.SRTOUTA,UNIT=DISK,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(200,20),RLSE)
//SYSMAP DD DSN=CAV70N1.ORDERB.SYSMAPA,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(100,10),RLSE),
// UNIT=DISK,DCB=(RECFM=VB,BLKSIZE=23476)
//SYSERR DD DSN=CAV70N1.ORDERB.SYSERRA,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(100,10),RLSE),
// UNIT=DISK,DCB=(RECFM=VB,BLKSIZE=23476)
//SYSREC DD DSN=CAV70N1.DB2MAPB.ORDER,DISP=SHR
//SYSDISC DD DSN=CAV70N1.ORDERB.SYSDISCA,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(100,10),RLSE),
// UNIT=DISK,DCB=(*.SYSREC)
//SYSIN DD *
LOAD DATA INDDN SYSREC REPLACE LOG NO
INTO TABLE DB2MAPB.ORDER
REPAIR SET TABLESPACE MAPBDB01.FCMXOBTS NOCOPYPEND
//*
//**********************************************************************
//CHK070 EXEC PGM=ENDUT,PARM='999',COND=(4,GE,STEP070)
//**********************************************************************
//*
//**********************************************************************
//* STEP080 IKJEFT01 *
//* START THE TABLESPACE FOR READWRITE *
//**********************************************************************
//STEP080 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=3200K
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2T)
-START DATABASE (MAPBDB01) SPACENAM (FCMXOBTS) ACCESS (RW)
//*
//**********************************************************************
//CHK080 EXEC PGM=ENDUT,PARM='999',COND=(0,EQ,STEP080)
//**********************************************************************
//* ]]> 2009-4-30 16:47:00(0) shuven 2009-3-27星期五(Friday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=16891348&idWriter=0&Key=0 一つ（ひとつ）
二つ（ふたつ）
三つ（みっつ）
四つ（よっつ）
五つ（いつつ）
六つ（むっつ）
七つ（ななつ）
八つ（やっつ）
九つ（ここのつ）


一日（ついたち）
二日（ふつか）
三日（みっか）
四日（よっか）
五日（いつか）
六日（むいか）
七日（なのか）
八日（ようか）
九日（ここのか）
十日（とおか）
二十日（はつか）

二十歳（はたち）]]> 2009-3-27 21:02:00(0) shuven 2009-2-27星期五(Friday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=16610269&idWriter=0&Key=0 第一次相遇 2008年12月28日 下午 1点半 大连软件园16号楼 6楼 601会议室

第一次sametime聊天 2008年12月30日 1：54

第一次dinner 2009年2月9号]]> 2009-2-27 15:49:00(0) shuven 2008-12-30星期二(Tuesday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=16146646&idWriter=0&Key=0 More information please refer follow link.
Alternate Index for a VSAM, Keyed Sequential Data Set or KSDS
]]> 2008-12-30 15:16:00(0) shuven 2008-12-22星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=16083416&idWriter=0&Key=0 首先，請看我總結的一張表，如果有什么不明白的請看下面的說明：

======================================================================
 数据类型 值 存储方式 占用空间
======================================================================
1. 9(02) 89 0X F8F9 2 Bytes

2. S9(02) 89 0X F8C9 2 Bytes
 -89 0X F8D9 2 Bytes

3. S9(02)SIGN TRAILING 89 0X F8C9 2 Bytes
 -89 0X F8D9 2 Bytes

4. S9(02) SIGN LEADING 89 0X C8F9 2 Bytes
 -89 0X D8F9 2 Bytes

5. S9(02) SIGN TRAILING 89 0X F8F94E 3 Bytes
 SEPARATE -89 0X F8F960 3 Bytes

6. S9(02) SIGN LEADING 89 0X 4EF8F9 3 Bytes
 SEPARATE -89 0X 60F8F9 3 Bytes

7. S9(04) COMP 89 0X 0059 2 Bytes
 -89 0X FFA7 2 Bytes

8. 9(04) COMP-3 89 0X 0 08 9F 3 Bytes

9. S9(04) COMP-3 89 0X 0 08 9C 3 Bytes
 -89 0X 0 08 9D 3 Bytes

10. 9(03)V9(02) 123.45 0X F1F2F3F4F5 5 Bytes

11. S9(03)V9(02) 123.45 0X F1F2F3F4C5 5 Bytes
 -123.45 0X F1F2F3F4D5 5 Bytes

12. S9(03)V9(02) 123.45 0X F1F2F3F4C5 5 Bytes
 SIGN TRAILING -123.45 0X F1F2F3F4D5 5 Bytes

13. S9(03)V9(02) 123.45 0X C1F2F3F4F5 5 Bytes
 SIGN LEADING -123.45 0X D1F2F3F4F5 5 Bytes

14. S9(03)V9(02) 123.45 0X F1F2F3F4F54E 6 Bytes
 SIGN TRAILING SEPARATE -123.45 0X F1F2F3F4F560 6 Bytes

15. S9(03)V9(02) 123.45 0X 4EF1F2F3F4F5 6 Bytes
 SIGN LEADING SEPARATE -123.45 0X 60F1F2F3F4F5 6 Bytes

16. 9(03)V9(02) COMP-3 123.45 0X 12 34 5F 3 Bytes

17. S9(03)V9(02) COMP-3 123.45 0X 12 34 5C 3 Bytes
 -123.45 0X 12 34 5D 3 Bytes

****************************************************************************


說明：

1. 0XF0~0XF9表示‘0’～‘9’，0X4E表示‘+’，0X60表示‘-’

2. 非壓縮數據類型的數據的表示方式與一般的字符表示方式相同，0XF0~0XF9表示‘0’～‘9’。如果是帶符號的數據類型，表示方式稍微有點變化：

2.1 默認情況下符號是表示在最后一個字節的前四位。參考上表中的例子2，0X C9=0X F9 & 0X CF（正號），0X D9=0X F9 & 0X DF（負號）

2.2 在定義變量的時候可以添加‘SIGN TRAILING’，‘ SIGN LEADING’，‘ SIGN TRAILING SEPARATE’，‘ SIGN LEADING SEPARATE’這樣的子句來選擇符號的表示方式。前面也說了“默認情況下符號是表示在最后一個字節的前四位”，所以‘SIGN TRAILING’寫與不寫效果一樣，可參考上表中的例子2、3，所以對這個子句就不再做說明了。其他3種子句的說明如下：

2.2.1 ‘ SIGN LEADING’：與‘SIGN TRAILING’相反，符號表示在第一個字節的前四位。參考上表中的例子4，0X C8=0X F8 & 0X CF（正號），0X D8=0X F8 & 0X DF（負號）

2.2.2 ‘ SIGN TRAILING SEPARATE’、‘ SIGN LEADING SEPARATE’的不同之處就在于符號不是用四位而是用一個字節以字符的形式來表示的。可以參考上表中的例子5、14.

2.3 COMP型數據是壓縮型的數據類型，把數據轉換成十六進制補碼表示，請參考上表中的例子7。另外BINARY和COMP-4型與COMP型一樣;COMP-5與COMP型相似，區別在于Compiler option: COMP可指定TRUNC（BIN）或者TRUNC（OPT），而COMP-5不能指定TRUNC（），但COMP-5相當于COMP可指定了TRUNC（BIN）。關于TRUNC（）請參考附件56頁。

2.4 COMP-3也是壓縮型數據類型，以BCD碼表示數字，也就是4位表示一個數字。需要注意的是這種數據類型不管帶不帶符號，最后四位都會留著放符號，所以9（2） COMP-3也占用2 Bytes，相當于沒有壓縮。可參考上表例子中的8、9。

2.5 關于9(03)V9(02)這樣的數據類型我想不用做什么說明了吧，與9(02) 沒什么不同的。

2.6 另外上表中沒有提到的數據類型有COMP-1和COMP-2，他們占用的存儲空間是固定不變的。COMP-1占用4個字節，而COMP-2占用8字節。詳細信息請參考附件69～75頁。

這次小結的內容全部來自與附件，可能講的不是很全面，如果大家有發現什么錯誤或者要補充的歡迎一起討論！]]> 2008-12-22 21:12:00(0) shuven 2008-10-6星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=15423988&idWriter=0&Key=0 面试英语：突破面试口语16题精彩问答

找一份满意的工作吗? 面试中面对外国老板连珠炮似的提问, 有没有觉得心慌意乱、无所适从？求职过程中面试尤为重要，回答问题，如果能简明扼要，真诚中肯，合乎老 外口味，那么录取机会必定大大增加。当然，有的问题，也要轻描淡写，以免言多必失。本篇摘录了若干面试中出现频率较高的问题及精彩回答，希望能在您求职路上助您一臂之力。
　　1. Q： Can you sell yourself in two minutes？ Go for it. （你能在两分钟內自我推荐吗？大胆试试吧！）
　　A： With my qualifications and experience, I feel I am hardworking, responsible and diligent in any project I undertake. Your organization could benefit from my analytical and interpersonal skills.
　　(依我的资格和经验，我觉 得我对所从事的每一个项目都很努力、负责、勤勉。我的分析能力和与人相处的技巧，对贵单位必有价值。)
　　2. Q：Give me a summary of your current job des cription. (对你目前的工作，能否做个概括的说明。)
　　A：I have been working as a computer programmer for five years. To be specific, I do system analysis, trouble shooting and provide software support.
　　(我干了五年的电脑程序员。具体地说，我做系统分析，解决问题以及软件供应方面的支持。）
　　3. Q：Why did you leave your last job？(你为什么离职呢？)
　　A： Well, I am hoping to get an offer of a better position. If opportunity knocks, I will take it.（我希望能获得一份更好的工作，如果机会来临，我会抓 住。）
　　A：I feel I have reached the "glass ceiling" in my current job. / I feel there is no opportunity for advancement. （我觉得目前的工作，已经达到顶峰，即沒有升迁机会。)
　　4. Q：How do you rate yourself as a professional？(你如何评估自己是位专业人员呢？)
　　A：With my strong academic background, I am capable and competent. (凭借我 良好的学术背景，我可以胜任自己的工作，而且我认为自己很有竞争力。）
　　A：With my teaching experience, I am confident that I can relate to students very well. (依我的教学经验，我相信能与学生相处的很好。)
　　5. Q：What contribution did you make to your current (previous) organization？ (你对目前/从前的工作单位有何贡献？)
　　A： I have finished three new projects, and I am sure I can apply my experience to this position. (我已经完成三个新项目，我相信我能将我的经验用在 这份工作上。)
　　6. Q：What do you think you are worth to us？(你怎么认为你对我们有价值呢？)
　　A：I feel I can make some positive contributions to your company in the future. (我觉得我对贵公司能做些积极性的贡献。)
　　7. Q：What make you think you would be a success in this position？ (你如何知道你能胜任这份工作？）
　　A：My graduate school training combined with my internship should qualify me for this particular job. I am sure I will be successful.
 　　(我在研究所的训练，加上实习工作，使我适合这份工作。我相信我能成功。)
　　8. Q：Are you a multi-tasked individual？(你是一位可以同时承担数项工作的人吗？) or Do you work well under stress or pressure？(你能承受工作上的压力吗?)
　　A：Yes, I think so.
　　A：The trait is needed in my current（or previous) position and I know I can handle it well. (这种特点就是我目前（先前）工作所需要的，我知道我能应付自如。)
　　9. Q：What is your strongest trait(s)？(你个性上最大的特点是什么？)
　　A：Helpfulness and caring.（乐于助人和关心他人。）
　　A：Adaptability and sense of humor.（适应能力和幽默感。）
　　A：Cheerfulness and friendliness.（乐观和友爱。）
　　10. Q： How would your friends or colleagues describe you？（你的朋友或同事怎样形容你？）
　　A： (pause a few seconds) (稍等几秒钟再答，表示慎重考虑。) They say Mr. Chen is an honest, hardworking and responsible man who deeply cares for his family and friends. (他们说陈先生是位诚实、工作努力，负责任的人，他对家庭和朋友都很关心。)
　　A：They say Mr. Chen is a friendly, sensitive, caring and determined person. (他们说陈先生是位很友好、敏感、关心他人和有决心的人。)
　　11. Q：What personality traits do you admire？(你欣赏哪种性格的人？)
　　A： (I admire a person who is）honest, flexible and easy-going. (诚实、不死板而且容易相处的人。)
　　A： (I like) people who possess the "can do" spirit. (有"实际行动"的人。)
　　12. Q：What leadership qualities did you develop as an administrative personnel？(作为行政人员，你有什么样的领导才能？)
　　A：I feel that learning how to motivate people and to work together as a team will be the major goal of my leadership. (我觉得学习如何把人们的积极性调动起来，以及如何配合协同的团队精神，是我行政工作的主要目标。)
　　A：I have refined my management style by using an open-door policy. (我以开放式的政策，改进我的行政管理方式。)
　　13. Q：How do you normally handle criticism？(你通常如何处理別人的批评？)
　　A：Silence is golden. Just don’t say anything; otherwise the situation could become worse. I do, however, accept constructive criticism. (沈默是金。不必说什么，否则情况更糟，不过我会接受建设性的批评。)
　　A：When we cool off, we will discuss it later. (我会等大家冷靜下来再讨论。)
　　14. Q： What do you find frustrating in a work situation？(在工作中，什么事令你不高兴？)
　　A： Sometimes, the narrow-minded people make me frustrated. (胸襟狭窄的人，有时使我泄气。)
　　A：Minds that are not receptive to new ideas. (不能接受新思想的那些取。)
　　15. Q：How do you handle your conflict with your colleagues in your work?
　　(你如何处理与同事在工作中的意见不和？)
　　A：I will try to present my ideas in a more clear and civilized manner in order to get my points across. (我要以更清楚文明的方式，提出我的看法，使对方了解我的观点。)
　　16. Q：How do you handle your failure？(你怎样对待自己的失敗？)
　　A： None of us was born "perfect". I am sure I will be given a second chance to correct my mistake. （我们大家生来都不是十全十美的，我相信我有第二个机会改正我的错误。)]]> 2008-10-6 17:52:00(0) shuven 2008-8-20星期三(Wednesday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14911033&idWriter=0&Key=0 昨天听广播
猛然才发现，原来大连的夏天已经结束了
一直都听说大连的是没有夏天的城市
也一直有点怀疑
直到今天我才知道
大连原来是真的没有夏天的
当刚刚嗅到一点夏天的味道的时候
秋天就来了
很喜欢大连这样的气候，
总觉得每个季节对大连来说都是很温柔的
不像其他城市四季分明
那样来得热烈
人在这种温柔的季节里也变得懒散起来
或许我不是喜欢懒散的人
终究我还是会离开大连的吧
去追求那些更激情的生活]]> 2008-8-20 11:12:00(0) shuven 2008-7-28星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14702063&idWriter=0&Key=0 2008/07/26～2008/07/27 ISSC DALIAN OUTING
目的地是长兴岛
在之前估计是希望太大了，满脑子想的都是《荒岛余生》里的那样的小岛
可惜的是理想和现实总是有相当大的差距
首先这个岛我就根本看不出岛的样子来
就如大连一样
长兴岛是大连的一个半岛，大连是辽宁的一个半岛
只是大小不同而已
还好天气还不错，起码第一次在大海里面可以游泳
远看是蓝天碧海，非常漂亮
近看就不行了
没有好的沙滩，近海的水也不太干净
海里面的人也特别多
也造成了我遇到了一件很恶心的事
这事就不让大家再恶心了
就说这么多，以做纪念]]> 2008-7-28 17:10:00(0) shuven 2008-7-14星期一(Monday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14555182&idWriter=0&Key=0 leek 韭菜
caraway/coriander 香菜
spinach 菠菜
cabbage 卷心菜
chinese cabbage 白菜
celery 芹菜
cress 水芹
cauliflower 菜花
broccoli 西兰花
lettuce 生菜/莴苣

butterhead 球生菜

mustard leaf 芥菜/芥末
romaine 生菜
shepherd's purse 荠菜
water shield 莼菜
kale 甘蓝菜
rape/cole 油菜
mater convolvulus 空心菜
dried lily flower 金针菜
tarragon 蒿菜
agar-agar 紫菜
greens 青菜
day-lily buds 黄花菜
hair-like seaweed 发菜
preserved szechuan pickle 榨菜
salted vegetable 雪里红
turnip 白萝卜
carrot 胡萝卜
summer radish 水萝卜
potato 土豆
tomato 番茄
eggplant 茄子
cucumber 黄瓜
gherkin 小黄瓜
loofah 丝瓜
pumpkin 南瓜
bitter gourd 苦瓜
white gourd 冬瓜
sweet potato 地瓜
long crooked squash 菜瓜
string bean 四季豆
pea 豌豆
lentil/ hycacinth bean 扁豆
soy 大豆
marrow bean 菜豆
mung bean 绿豆
soybean 黄豆
kidney bean 芸豆
green soy bean 毛豆
soybean sprout 黄豆芽
mung bean sprout 绿豆芽
bean sprout 豆芽
lotus root 莲藕
water caltrop 菱角
lotus seed 莲子
garlic 蒜
garlic sprout 蒜苗/苔
green pepper 青椒
hot pepper 辣椒
marrow 西葫芦
onion 洋葱
ginger 生姜
garlic 大蒜
garlic bulb 蒜头
scallion 青葱
wheat gluten 面筋

]]> 2008-7-14 14:40:00(0) shuven 2008-6-25星期三(Wednesday)阴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14370368&idWriter=0&Key=0 It seems Everything become bright.
Some difficult thing become not difficult.
Just do my work well.
Get more experience and improve my technical skill.
Then I will get a bright tomorrow.
Ready to go....
---------------------------------------------------
何も簡単になりそうだ。
ある難しいことは難しくなりましたね。
俺の仕事をよく実行するだけだ。
多い経験を手に入れる。技術のレベルを高める。
後で明るい未来を得る。
明日のために離れておく。]]> 2008-6-25 9:41:00(0) shuven 2008-6-20星期五(Friday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14320522&idWriter=0&Key=0 //SORTJCL JOB 'DNET801',MSGCLASS=S,TIME=1440,NOTIFY=&SYSUID
//*
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DNET801.XUWEN.SORTIN,DISP=SHR
//UNCONF DD DSN=DNET801.XUWEN.UNCONF,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(60,(1000,200),RLSE),DSORG=PS,
// LRECL=60,RECFM=FB,AVGREC=K
//CONSHP DD DSN=DNET801.XUWEN.CONSHP,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(60,(1000,200),RLSE),DSORG=PS,
// LRECL=60,RECFM=FB,AVGREC=K
//SYSIN DD *
 SORT FIELDS=(14,10,CH,A,24,10,CH,A,34,2,CH,A)
 OUTREC FIELDS=(1,50,C'ABCDEFGHIJ')
 OUTFIL FNAMES=UNCONF,
 INCLUDE=(20,2,CH,EQ,C'65')
 OUTFIL FNAMES=CONSHP,SAVE
/*
//

At this example, SORTIN DD dataset’s length is 50.

SORT FIELDS=(14,10,CH,A,24,10,CH,A,34,2,CH,A)

Fields use (p,q,f,m) format, (14,10,CH,A) is one group. Means from column 14 to 23, use CH format, order by Ascending.

OUTREC FIELDS=(1,50,C'ABCDEFGHIJ')

This line means copy column 1 to 50 to out record, from 51 to 60, use character 'ABCDEFGHIJ' to replace.

OUTFIL FNAMES=UNCONF,

 INCLUDE=(20,2,CH,EQ,C'65')

This line means use UNCONF as output dataset, need the record include from column 20 to 21 equals ‘65’. So these record will copy to UNCONF.

OUTFIL FNAMES=CONSHP,SAVE

CONSHP is another output dataset, it will store records which delete by proceeding OUTFIL.



We can see the input and output.

If input is

8340021070412000068653300000000100034L501000000100

8340021070412000068653300000000200063320CE00000200

8340021070412000068653300000000300022P956200000300

834002107041200006865330000000040006841D2A00000400

8340021070412000068653300000000500022P956200000500

8340021070412000068861000000000100037L688000000600





UNCONF will look like this

8340021070412000068653300000000100034L501000000100ABCDEFGHIJ

8340021070412000068653300000000200063320CE00000200ABCDEFGHIJ

8340021070412000068653300000000300022P956200000300ABCDEFGHIJ

834002107041200006865330000000040006841D2A00000400ABCDEFGHIJ

8340021070412000068653300000000500022P956200000500ABCDEFGHIJ

And dataset CONSHP is

8340021070412000068861000000000100037L688000000600ABCDEFGHIJ


]]> 2008-6-20 15:46:00(0) shuven 2008-5-27星期二(Tuesday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=14048557&idWriter=0&Key=0 It hurts to love someone and not be loved in return.
But what is more painful is to love someone
and never find the courage to let that person know
how you feel.
A sad thing in life is
when you meet someone who means a lot to you,
only to find out in the end that
it was never meant to be and you just have to let go.]]> 2008-5-27 16:24:00(0) shuven 2008-4-15星期二(Tuesday)晴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=13421803&idWriter=0&Key=0 //PLIDBCPL JOB (PLIDB),'XUWEN',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 00010000
// NOTIFY=&SYSUID 00020000
//JOBLIB DD DSN=DB2.V7R1M0.DSNA.SDSNEXIT,DISP=SHR 00030000
// DD DSN=DB2.V7R1M0.SDSNLOAD,DISP=SHR 00040000
//***************************************************************** 00050000
//* JOB TO TRANSACT AND COMPILE AND LINK-EDIT PLI FOR DB2 00060000
//***************************************************************** 00070000
//PPLI EXEC PGM=IEL0AA,PARM='MACRO,NOSYNTAX,MDECK,NOINSOURCE' 00080000
//SYSLIN DD DUMMY 00090000
//STEPLIB DD DSN=PLI.V1R1M1.SIELCOMP,DISP=SHR 00100000
//SYSIN DD DSN=DNET801.XUWEN.PLI(QUERY),DISP=SHR 00110000
//*SYSLIB DD DSN=WENSON.TRAIN.INCLUDE,DISP=SHR 00120000
//SYSPRINT DD SYSOUT=*, 00130000
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629) 00140000
//SYSPUNCH DD DSN=&&DSNHIN,DISP=(MOD,PASS),UNIT=SYSDA, 00150000
// SPACE=(CYL,(5,2),RLSE) 00160000
//SYSUDUMP DD SYSOUT=* 00170000
//SYSUT1 DD SPACE=(1024,(60,60),,CONTIG),UNIT=SYSDA, 00180000
// DCB=BLKSIZE=1024 00190000
//***************************************************************** 00200000
//* PRECOMPILE THE PL/I PROGRAM 00210000
//***************************************************************** 00220000
//PC EXEC PGM=DSNHPC,PARM='HOST(PLI)',REGION=4M, 00230000
// COND=(8,LT,PPLI) 00240000
//DBRMLIB DD DSN=DNET801.XUWEN.DBRM(QUERY), 00250000
// DISP=SHR 00260000
//STEPLIB DD DISP=SHR,DSN=DB2.V7R1M0.DSNA.SDSNEXIT 00270000
// DD DISP=SHR,DSN=DB2.V7R1M0.SDSNLOAD 00280000
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA, 00290000
// SPACE=(800,(500,500)) 00300000
//SYSIN DD DSN=&&DSNHIN,DISP=(OLD,DELETE) 00310000
//*SYSLIB DD DSN=WENSON.TRAIN.INCLUDE,DISP=SHR 00320000
//SYSPRINT DD SYSOUT=* 00330000
//SYSTERM DD SYSOUT=* 00340000
//SYSUDUMP DD SYSOUT=* 00350000
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA 00360000
//****************************************************************** 00370000
//* COMPILE THE PL/I PROGRAM IF THE PRECOMPILE 00380000
//* RETURN CODE IS 4 OR LESS 00390000
//****************************************************************** 00400000
//PLI EXEC PGM=IEL0AA,PARM='OBJECT,NODECK', 00410000
// COND=((4,LT,PC),(8,LT,PPLI)) 00420000
//STEPLIB DD DSN=PLI.V1R1M1.SIELCOMP,DISP=SHR 00430000
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE) 00440000
//SYSLIB DD DISP=SHR,DSN=CICSTS.V2R3.CICS.SDFHPL1 00450000
// DD DSN=GDDM.SADMSAM,DISP=SHR 00460000
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 00470000
// SPACE=(800,(500,500)) 00480000
//SYSPRINT DD SYSOUT=* 00490000
//SYSUDUMP DD SYSOUT=* 00500000
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA 00510000
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA 00520000
//SYSUT3 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA 00530000
//SYSUT4 DD SPACE=(800,(500,500),,,ROUND),UNIT=SYSDA 00540000
//******************************************************************* 00550000
//* LINKEDIT IF THE COMPILE RETURN CODE IS 8 OR 00560000
//* LESS AND PRECOMPILE RETURN CODE IS 4 OR LESS 00570000
//******************************************************************* 00580000
//LKED EXEC PGM=IEWL,PARM='XREF', 00590000
// COND=((8,LT,PLI),(4,LT,PC),(8,LT,PPLI)) 00600000
//SYSLIB DD DISP=SHR,DSN=CEE.SCEELKED 00610000
// DD DISP=SHR,DSN=DB2.V7R1M0.SDSNLOAD 00620000
// DD DISP=SHR,DSN=IMS.V7R1M0.SDFSRESL 00630000
// DD DISP=SHR,DSN=CICSTS.V2R3.CICS.SDFHLOAD 00640000
// DD DISP=SHR,DSN=ISP.SISPLOAD 00650000
// DD DISP=SHR,DSN=GDDM.SADMMOD 00660000
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00670000
// DD DDNAME=SYSIN 00680000
// DD * 00690000
//SYSLMOD DD DSN=DNET801.XUWEN.LOADLIB(QUERY), 00700000
// DISP=SHR 00710000
//SYSPRINT DD SYSOUT=* 00720000
//SYSUDUMP DD SYSOUT=* 00730000
//SYSUT1 DD SPACE=(1024,(50,50)),UNIT=SYSDA 00740000
********************************************************************** 00750000
* BIND PACKAGE AND PLAN 00760000
********************************************************************** 00770000
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT) 00780000
//DBRMLIB DD DSN=DNET801.XUWEN.DBRM,DISP=SHR 00790000
//SYSTSPRT DD SYSOUT=* 00800000
//SYSPRINT DD SYSOUT=* 00810000
//SYSUDUMP DD SYSOUT=* 00820000
//*ACCDATE DD DSN=WENSON.TRAIN.INCLUDE(ACCDATE),DISP=SHR 00830000
//*CUGFILE DD DSN=WENSON.TRAIN.INCLUDE(CUGFILE),DISP=SHR 00840000
//SYSIN DD * 00850000
GRANT BIND, EXECUTE ON PACKAGE QUERY TO PUBLIC; 00860000
//*SYSTSIN DD * 00870000
//* DSN SYSTEM(DSNA) 00880000
//* BIND PACKAGE(WENSON) MEMBER(PLIDB2) - 00890000
//* ACT(REP) ISO(CS) ENCODING(EBCDIC) 00900000
//* BIND PLAN(PLANWS) MEMBER(PLIDB2) 00910000
//* RUN PROGRAM(PLIDB2) PLAN(PLANWS) - 00920000
//* LIB('WENSON.TRAIN.DB2.RUNLIB.LOAD') 00930000
//* END 00940000
//* 00950000
//SYSTSIN DD * 00960000
DSN SYSTEM(DSNA) 00970000
BIND PLAN(QUERY) MEMBER(QUERY) 01000000
RUN PROGRAM(QUERY) PLAN(QUERY) - 01010000
LIB('DNET801.XUWEN.LOADLIB') 01020000
END 01030000
//* 01040000
]]> 2008-4-15 13:13:00(0) SHUVEN 2008-4-9星期三(Wednesday)阴 http://blog.tianya.cn/blogger/post_show.asp?BlogID=386473&PostID=13348184&idWriter=0&Key=0 //CBLDBCPL JOB CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A,
// NOTIFY=&SYSUID
//********************************************************************
//* DSNHICOB - DB2 PRECOMPILE, IBM COBOL COMPILE, PRE-LINK, *
//* AND LINK EDIT A DB2 SQL PROGRAM. *
//********************************************************************
//DSNHICOB PROC WSPC=500,USER=DNET801
//********************************************************************
//* PRECOMPILE THE IBM COBOL PROGRAM *
//********************************************************************
//PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K
//DBRMLIB DD DSN=&USER..XUWEN.DBRM(&MEM),
// DISP=SHR
//STEPLIB DD DISP=SHR,DSN=DB2.V7R1M0.SDSNEXIT
// DD DISP=SHR,DSN=DB2.V7R1M0.SDSNLOAD
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(&WSPC,&WSPC))
//SYSLIB DD DSN=&USER..XUWEN.COBOL,
// DISP=SHR
//SYSIN DD DSN=&USER..XUWEN.COBOL(&MEM),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//********************************************************************
//* COMPILE THE IBM COBOL PROGRAM IF THE PRECOMPILE *
//* RETURN CODE IS 4 OR LESS. *
//********************************************************************
//COB EXEC PGM=IGYCRCTL,REGION=2048K,
// PARM='DLL,EXPORTALL',
// COND=(4,LT,PC)
//STEPLIB DD DSN=COBOL.V3R4.SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(&WSPC,&WSPC))
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT6 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//SYSUT7 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA
//********************************************************************
//* 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)
//* DD DSN=SOMMVS.SGOSIMP(GOSSOMK),DISP=SHR
//SYSMOD DD DSN=&&PLKSET,UNIT=SYSDA,DISP=(MOD,PASS),
// SPACE=(32000,(30,30)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSDEFSD DD DUMMY
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//********************************************************************
//* LINKEDIT IF THE PRECOMPILE AND COMPILE *
//* RETURN CODES ARE 4 OR LESS. *
//********************************************************************
//LKED EXEC PGM=IEWL,PARM='MAP',
// COND=((4,LT,PC),(4,LT,COB),(4,LT,PLKED))
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
// DD DISP=SHR,DSN=DB2.V7R1M0.SDSNLOAD
//* DD DISP=SHR,DSN=IMS.V6R1M0.RESLIB
// DD DISP=SHR,DSN=CICSTS.V2R3.CICS.SDFHLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=GDDM.SADMMOD
//SYSLIN DD DSN=&&PLKSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSN=&USER..XUWEN.LOADLIB(&MEM),
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50)),UNIT=SYSDA
// PEND
//*
// EXEC DSNHICOB,MEM=DBQRY
//BINDPACK EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=DB2.V7R1M0.SDSNEXIT
// DD DISP=SHR,DSN=DB2.V7R1M0.SDSNLOAD
//DBRMLIB DD DSN=DNET801.XUWEN.DBRM,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//REPORT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSNA)
BIND PACKAGE(DBQRY) -
MEMBER(DBQRY) -
ACT(REP) -
VALIDATE(BIND) CURRENTDATA(NO) -
ISOLATION(CS) RELEASE(DEALLOCATE) -
EXPLAIN(NO) DYNAMICRULES(BIND) -
QUALIFIER(SYSIBM)
END
/*

补充：
在上面的例子中，用户DNET801不具有BIND PACKAGE的权限
修改为
DSN SYSTEM(DSNA)
BIND PLAN(DBQRY) MEMBER(DBQRY)
RUN PROGRAM(DBQRY) PLAN(DBQRY) LIB('DNET801.XUWEN.LOADLIB')
END
运行结果正常]]> 2008-4-9 17:39:00(0)