未知的程序

noise

一个朋友给了段程序，不知道是做什么的，能否帮忙看看，谢谢！！！！！！


*************** Beginning of data ***********************************************************************
0001.00      FTESTD   CF  E                    WORKSTN                                       050928              
0002.00      　　　　　　　　　　　                                                                050928               
0003.00      C           *INKC   　DOWEQ*OFF                                                 050928              
0004.00      C                     MOVE 'TEST'    B      10                                  051020              
0005.00      C                     EXFMTDSP01                                                050928              
0006.00      C                     ENDDO                                                     050928              
0007.00                                                                         　　　　　　　　050928               
0008.00      C                     SETON                     LR                              050928              
0009.00      C                     RETRN                                                     050928              
        ****************** End of data **************************************************************************

excuse

当指针03为0时，把'TEST'赋值给B,显示屏幕
但是没有退出语句,如果要退出屏幕，要强制结束喽~

noise

怎么是个半截子的东西。

谢谢了！！！能不能说的详细些。

excuse

在EXFMT后加上一条
'CL0N01N02N03Factor1+++OpcdeFactor2+....'
C     03                           leave
就可乐

noise

原帖由 "excuse" 发表：
当指针03为0时，把'TEST'赋值给B,显示屏幕
但是没有退出语句,如果要退出屏幕，要强制结束喽~

我是想问关于指针这部分，能不能说的详细些。

Keller_c

我想是author是先定义了一个DISPLAY FILE 叫testd,

然后DISPLAY FILE 里有个变量叫b,

当 F3 没有被按下的时候，就给B付值TEST，然后显示SCREEN.

当F3 被按下了，程序结束，并且返回。

excuse

简单的说：指针有两个值0和1,作为某个操作的结果
*IN03的初试值是0(*off),因此执行循环体内的赋值和显示；当按F3时，*IN03为1(*on),则执行leave,跳出循环，结束

noise

我确实没有看明白，指针03到底在哪，而且像Keller_c所说，没有定义变量“TEST”这样可以吗

excuse

指针03在DSPF(TESTD )中定义
"TEST"在这里是常量啊，不用定义的

noise

对于我这个外行，解释起来一定很费劲，谢谢你耐心。

按照你的说法，这是个有嵌套的程序。