未知的程序

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" 發(fā)表：
當指針03為0時，把'TEST'賦值給B,顯示屏幕
但是沒有退出語句,如果要退出屏幕，要強制結束嘍~

我是想問關于指針這部分，能不能說的詳細些。

Keller_c

我想是author是先定義了一個DISPLAY FILE 叫testd,

然后DISPLAY FILE 里有個變量叫b,

當 F3 沒有被按下的時候，就給B付值TEST，然后顯示SCREEN.

當F3 被按下了，程序結束，并且返回。

excuse

簡單的說：指針有兩個值0和1,作為某個操作的結果
*IN03的初試值是0(*off),因此執(zhí)行循環(huán)體內(nèi)的賦值和顯示；當按F3時，*IN03為1(*on),則執(zhí)行l(wèi)eave,跳出循環(huán)，結束

noise

我確實沒有看明白，指針03到底在哪，而且像Keller_c所說，沒有定義變量“TEST”這樣可以嗎

excuse

指針03在DSPF(TESTD )中定義
"TEST"在這里是常量啊，不用定義的

noise

對于我這個外行，解釋起來一定很費勁，謝謝你耐心。

按照你的說法，這是個有嵌套的程序。