某"高手" 程序集锦
这不就是你的古董光标位置法?这么烂的20年前的算法,也好意出来献丑?
//第三、使用光标技巧
//位置判断
Begsr Juspst;
Exsr subcur;
Select;
when cury =12 and
(curx >31 and
curx <34);
exsr subpro1;
when cury = 13 and
curx = 32;
exsr subpro2;
endsl;
endsr;
这不就是你用来支持的F1=Help的弹出窗口求助法?不懂又不肯学习,误人子弟!
//或者 当按下F1或F4时,做相应处理
Begsr JusFun;
Select;
when *in01 = *on ;
exsr Juspst;
when *in04 = *on;
exsr Fun04;
Endsl;
Endsr;
/end-Free
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(9)
你们这帮淫!谈论个技术问题也能吵骂起来呵呵呵
点错了
[ 本帖最后由 huangxkst 于 2009-11-29 21:58 编辑 ]
我还用的找您老来教?少来班门弄斧啦。省点力气看您的电视吧。
呵呵..我来学东西..
有本事把你一个rpgle处理多个subfile的算法做出来,让你认为的‘菜鸟’学习学习。不要在再胡搅蛮缠。让事实说话。
我的算法是经过很多人实践过的,是可靠的。IBM rpgle reference中也有类似的算法。我在blog中的算法,比较简单明了,实用,易接受。
教教你,这才是做一个老程序员对新手的经验介绍。
[ 本帖最后由 passthru 于 2009-11-29 21:36 编辑 ]
把你这喷大便的臭嘴洗干净再来跟我说话。
对你这类回答,我早就在cu和我的blog中做过回答。在一个程序中处理多个subfile时,会出错。
你就是这个水平呀?还到处乱喷粪!
[ 本帖最后由 passthru 于 2009-11-29 21:17 编辑 ]
早就有人批判你啦,你从来不看别人的批评?怪不得不长进,做了20多年才这种水准。
你一定在一间名不见经传的小公司里面混饭吃吧?这样的歪路子还能混得下去。
大公司里面都有开发标准,歪路子的程序员进公司就要经过培训坚决执行公司标准。歪路子早就被校正啦。
有胆就亮出你的公司名字。
网友: fxf_china 时间:2007-08-20 08:24:59 IP地址:61.202.225.★
要获取光标所在的域很简单阿,可以使用下面的(DSPF)
A RTNCSRLOC(&RCD &FLD &POS)
A RCD 10A H
A FLD 10A H
A POS 4S 0H
FLD就是光标所在的FILELD名字
搂主的方法和具体位置有关,每次调整显示位置,
[ 本帖最后由 franliu 于 2009-11-29 21:12 编辑 ]
呵呵,你就说说你现代的算法程序呀,我俩的争议,可以让你认为的‘菜鸟’收益,也不错呀。
不要只说不练。