查看上一个主题 :: 查看下一个主题
|
作者 |
信息 |
螺丝刀
新的用户
已加入:2009年3月16日 帖子:11 地点:浦那
|
|
|
|
你好
我想在loadmodule“ DMCL”中更改其中一个缓冲区页面值:
代码:
缓冲DMCL.ABC-BUFFER
页大小13680个字符
本地模式缓冲区页面50
OPSYS储存
中央版本模式缓冲区
初始页50
最多500页
我想将“ 初始页50”更改为“ INITIAL PAGES 100”
使用AMASPZAP。有人可以帮忙吗?
我无法理解显示HEXX值的加载模块DMCL的转储,因此无法识别要替换的值。
以下是转储对ABC-BUFFER的说明:
ZAP LEDR SLR STH STH STH STH * *
004120 4040 C7C5 D560 F1F3 D260 C2E4 C6C6 C5D9 4040 4040 0000 0000 * ABC缓冲*
STH CLC MVO MVC SLGFICLGHR STH STH * ........ *
STH STH STH STH STH STH CLC MVO MVC SLGFI * ABC-BU *
0000 0000 0000 0000 4040 4040 4040 4040 4040 4040 4040 4040 * FFER .... * |
|
回到顶部 |
|
 |
彼得·荷兰
全球主持人

已加入:2009年10月27日 帖子:2475 所在地:荷兰,阿姆斯特尔芬
|
|
|
|
你为什么不问授权这种花招的人呢? |
|
回到顶部 |
|
 |
罗伯特·桑普
全球主持人

已加入:2008年6月6日 帖子:8569 地点:美国爱荷华州迪比克
|
|
|
|
数据库很可能会将提供的语句转换为内部格式并删除文字。除非您非常精通数据库,否则如果没有站点支持小组或供应商(或两者)的帮助,您将不可能做到这一点。 |
|
回到顶部 |
|
 |
螺丝刀
新的用户
已加入:2009年3月16日 帖子:11 地点:浦那
|
|
|
|
因此,你们两个都建议我与供应商/支持小组联系。
好的,谢谢你的建议。
但是,如果此论坛中针对此技巧有一些具体的解决方案,它将更加有用。 |
|
回到顶部 |
|
 |
罗伯特·桑普
全球主持人

已加入:2008年6月6日 帖子:8569 地点:美国爱荷华州迪比克
|
|
|
|
您有两个被忽略的建议,这很好地表明您不太可能在该论坛上找到解决方案。尤其是因为您甚至都不想告诉我们您要更改哪个数据库。 |
|
回到顶部 |
|
 |
比尔·奥博伊尔
CICS主持人

已加入:2008年1月14日 帖子:2504 地点:美国乔治亚州亚特兰大
|
|
|
|
我同意彼得和罗伯特的看法。除非您知道自己在做什么,否则不要将更新目标代码弄乱。
寻求技术支持和/或供应商的协助不会感到羞耻。
如果您搞砸了,您将如何向您的管理层解释?
法案 |
|
回到顶部 |
|
 |
螺丝刀
新的用户
已加入:2009年3月16日 帖子:11 地点:浦那
|
|
|
|
我试图在IDMS数据库中执行此操作。 DMCL加载模块仅由我使用generatepunch and link(GPL)(使用批处理命令工具实用程序)创建。
我可以进行更改,将定义写入字典文件中,并使用GPL创建新模块,这总是一个看不见的地方,但是我想直接在加载模块中进行此更改。 |
|
回到顶部 |
|
 |
dbzTHEdinosauer
全球主持人

已加入:2006年10月20日 帖子:6967 位置:瓷宝座
|
|
|
|
这意味着绝对没有审核记录,
任何查看字典文件的人都会很有趣,
试图确定当字典说50时,
实际为100。
由于50是x'32',为什么不将在转储中找到的所有x'32'更改为x'64'。 |
|
回到顶部 |
|
 |
威廉·汤普森
全球主持人
已加入:2006年11月18日 帖子:3156 所在地:亚利桑那州图森
|
|
|
|
螺丝刀写道: |
但是,如果此论坛中针对此技巧有一些具体的解决方案,它将更加有用。 |
更换模块很容易,诀窍是知道要更换什么。
将COBOL的“如果相等”更改为“如果不相等”是很容易的,但是所有涉及“ 50”的引用都埋在相关模块中。
小姐和繁荣。
一对多和繁荣。 |
|
回到顶部 |
|
 |
外籍人士
全球主持人

已加入:2007年3月14日 帖子:8794 地点:威尔士威尔士
|
|
|
|
您为什么要违背Peter,Robert和BIll所说的话。 |
|
回到顶部 |
|
 |
螺丝刀
新的用户
已加入:2009年3月16日 帖子:11 地点:浦那
|
|
|
|
引用: |
但是所有提到的“ 50”的引用都埋在相关模块中 |
是的,我也面临着这个问题。试图找到x'32'但我有两个50
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 C2C3 F5F3 0000 0000 C2C3 F5F3 0000 C7C5 D560 F1F3 * .. *
CLC MVO * .... BC53 ..... ABC *
D260 C2E4 C6C6 C5D9 4040 4040 0000 0000 0000 0000 0000 3570 0000 0000 0000 0000 3570 0000 0032 0000 0032 *-缓冲 ....*
MVC SLGFICLGHR STH STH LEDR LEDR * ....... *
如果您能理解我愿意更改的要求值。 |
|
回到顶部 |
|
 |
恩里科·索里切蒂
高级主持人

已加入:2007年3月14日 帖子:10715 所在地:意大利
|
|
|
|
您为什么期望我们应该知道?您生成了模块..我们没有  |
|
回到顶部 |
|
 |
彼得·荷兰
全球主持人

已加入:2009年10月27日 帖子:2475 所在地:荷兰,阿姆斯特尔芬
|
|
|
|
引用: |
由于50是x'32',为什么不将在转储中找到的所有x'32'更改为x'64'。
|
哦,迪克,太酷了。  |
|
回到顶部 |
|
 |
dbzTHEdinosauer
全球主持人

已加入:2006年10月20日 帖子:6967 位置:瓷宝座
|
|
|
|
可以同时击打或掷硬币。
此外,由于您正在增加最小页面数,
同样,增加缓冲区可能也是个好主意。
但是,然后您了解了这些parm之间的相互作用,不是吗?
彼得
很高兴您欣赏我的幽默。 |
|
回到顶部 |
|
 |
螺丝刀
新的用户
已加入:2009年3月16日 帖子:11 地点:浦那
|
|
|
|
掷硬币会是个好主意;)但这是我试图避免的事情....谢谢您的帮助和建议 .
好吧,一定要掷硬币使我了解这些事情。 |
|
回到顶部 |
|
 |
|