内部函数%SWITCH测试的作业开关,是自定义的,还是系统特定的?

李海隽

忘说了，默认值是8个0。

依然沈

谢谢你的回答,我还是没弄清楚.
比如说有下例代码:
CALL       PGM(EDI510P) PARM(&CTLNBR &FILNAM)         
IF         COND(%SWITCH(X1XXXXXX)) THEN(DO)           
CHGVAR     VAR(&MSG) VALUE('Invalid control or file +
             name, try again !')                     
GOTO       CMDLBL(STRDSP)                             
ENDDO   
这边关注的是第二位是否为1,那么这第二位到底是指的什么,是不是就如同异常CPF9815一样,是固定指示某个错误呢?

李海隽

据我所知它没有特定含义，可以任意组合，跟错误代码不一样。
你看一下这本程序或与它关联的程序中有没有类似CHGJOB     SWS(X1XXXXXX)或者
CHGVAR    VAR(&ABC) VALUE(%SWITCH(X1XXXXXX))这样的代码？
问问别的人吧，我说的可能也不对。
这个东西我只在练习时用过，还没在项目中使用过呢。要不你把相关代码贴上来，让我涨涨见识。

依然沈

哦,我知道了.
我在文件EDI510P中重新指定了指示器的值.

谢谢你,李海隽!!

依然沈

在EDI510P里有这段代码!
C           CTLKEY    CHAINXCTL                 13      
C   13                SETON                     U2      
C  N13                SETOF                     U2      

呵呵,你给看看,上面说的对吗.
是通过U2给新赋值的吗?

李海隽

是啊，是啊。原来用的是外部指示器啊。用U1到U8与开关的1到8位相关联。

依然沈

呵呵,这下知道了,又长知识啦!

谢谢了.

hxfang2000

疑问：怎么把U1到U8的指示器与%SWITCH的1到8位关联起来呢？需要在程序中作什么设定么？能不能发个完全实现功能的程序上来呀？谢谢！