IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

ZAPing负载模块


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
螺丝刀

新的用户


已加入:2009年3月16日
帖子:11
地点:浦那

发布发表:2010年7月19日星期一1:29 pm
引用回复

你好

我想在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
所在地:荷兰,阿姆斯特尔芬

发布发表:2010年7月19日星期一3:09 pm
引用回复

你为什么不问授权这种花招的人呢?
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:2010年7月19日星期一4:53 pm
引用回复

数据库很可能会将提供的语句转换为内部格式并删除文字。除非您非常精通数据库,否则如果没有站点支持小组或供应商(或两者)的帮助,您将不可能做到这一点。
回到顶部
查看用户资料 发送私信
螺丝刀

新的用户


已加入:2009年3月16日
帖子:11
地点:浦那

发布发表:2010年7月19日星期一4:58 pm
引用回复

因此,你们两个都建议我与供应商/支持小组联系。 icon_idea.gif
好的,谢谢你的建议。
但是,如果此论坛中针对此技巧有一些具体的解决方案,它将更加有用。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:2010年7月19日星期一5:02 pm
引用回复

您有两个被忽略的建议,这很好地表明您不太可能在该论坛上找到解决方案。尤其是因为您甚至都不想告诉我们您要更改哪个数据库。
回到顶部
查看用户资料 发送私信
比尔·奥博伊尔

CICS主持人


已加入:2008年1月14日
帖子:2504
地点:美国乔治亚州亚特兰大

发布发表:2010年7月19日星期一5:03 pm
引用回复

我同意彼得和罗伯特的看法。除非您知道自己在做什么,否则不要将更新目标代码弄乱。

寻求技术支持和/或供应商的协助不会感到羞耻。

如果您搞砸了,您将如何向您的管理层解释?

法案
回到顶部
查看用户资料 发送私信
螺丝刀

新的用户


已加入:2009年3月16日
帖子:11
地点:浦那

发布发表:2010年7月19日星期一5:15 pm
引用回复

我试图在IDMS数据库中执行此操作。 DMCL加载模块仅由我使用generatepunch and link(GPL)(使用批处理命令工具实用程序)创建。
我可以进行更改,将定义写入字典文件中,并使用GPL创建新模块,这总是一个看不见的地方,但是我想直接在加载模块中进行此更改。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2010年7月19日星期一5:18 pm
引用回复

引用:
想要直接在加载模块中进行此更改。


这意味着绝对没有审核记录,
任何查看字典文件的人都会很有趣,
试图确定当字典说50时,
实际为100。

由于50是x'32',为什么不将在转储中找到的所有x'32'更改为x'64'。
回到顶部
查看用户资料 发送私信
威廉·汤普森

全球主持人


已加入:2006年11月18日
帖子:3156
所在地:亚利桑那州图森

发布发表:2010年7月19日星期一5:18 pm
引用回复

螺丝刀写道:
但是,如果此论坛中针对此技巧有一些具体的解决方案,它将更加有用。
更换模块很容易,诀窍是知道要更换什么。
将COBOL的“如果相等”更改为“如果不相等”是很容易的,但是所有涉及“ 50”的引用都埋在相关模块中。
小姐和繁荣。
一对多和繁荣。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2010年7月19日星期一5:19 pm
引用回复

您为什么要违背Peter,Robert和BIll所说的话。
回到顶部
查看用户资料 发送私信
螺丝刀

新的用户


已加入:2009年3月16日
帖子:11
地点:浦那

发布发表:2010年7月19日星期一5:42 pm
引用回复

引用:
但是所有提到的“ 50”的引用都埋在相关模块中



是的,我也面临着这个问题。试图找到x'32'但我有两个50 icon_biggrin.gif


引用:
本地模式缓冲区页面50


引用:
初始页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
所在地:意大利

发布发表:2010年7月19日星期一5:46 pm
引用回复

引用:
如果您能理解我愿意更改的要求值。


您为什么期望我们应该知道?您生成了模块..我们没有 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
彼得·荷兰

全球主持人


已加入:2009年10月27日
帖子:2475
所在地:荷兰,阿姆斯特尔芬

发布发表:2010年7月19日星期一5:48 pm
引用回复

引用:

由于50是x'32',为什么不将在转储中找到的所有x'32'更改为x'64'。


哦,迪克,太酷了。 36_2_35.gif
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2010年7月19日星期一5:49 pm
引用回复

可以同时击打或掷硬币。

此外,由于您正在增加最小页面数,
同样,增加缓冲区可能也是个好主意。

但是,然后您了解了这些parm之间的相互作用,不是吗?

彼得
很高兴您欣赏我的幽默。
回到顶部
查看用户资料 发送私信
螺丝刀

新的用户


已加入:2009年3月16日
帖子:11
地点:浦那

发布发表:2010年7月19日星期一5:59 pm
引用回复

掷硬币会是个好主意;)但这是我试图避免的事情....谢谢您的帮助和建议 icon_smile.gif .

引用:
那么您就了解了这些参数之间的相互作用


好吧,一定要掷硬币使我了解这些事情。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
没有新帖 如何在BMS Ph中列出BMS MAP屏幕... CICS 2
没有新帖 作业正在加载多个模块的加载模块。 COBOL程式设计 12
没有新帖 无法编译模块 PL / I和组装商 6
没有新帖 需要有关大型机中DB2加载的帮助 DB2 5
没有新帖 我需要有关COBOL分析的帮助... 所有其他大型机主题 14
搜索我们的论坛:


回到顶部