大家帮忙看看这段程序错在哪里?

pachenjun

*INKH     IFEQ '1'              
          EXSR \CHK02           
*IN99     IFEQ '1'              
*IN96     OREQ '1'              
          GOTO #20              
          END                  
          MOVEL'0'       *IN50  
          MOVEL'FMT09'   W@NEXT
          END                  
#20       ENDSR     

  

           \CHK02    BEGSR                           
**                                                   
           G2CODE    IFEQ *BLANK                     
                     MOVE MSG,01    G9MSG            
                     SETON                     4199  
                     END                             
*                                                   
           '@'       SCAN G2CODE                   16
   16                MOVE MSG,06    G9MSG            
                     SETON                     4196  
*                                                   
           G2CODE    CHAINITEMAS               60   
   60                MOVE MSG,02    G9MSG            
                     SETON                     4195  
**                                                   
                     ENDSR     

大家看看这段程序错在哪?

fairyboy

你的＼哪来的，程序里面能输入这个不？

tigerzt

没太明白楼主的意思,你先说说这段代码出现的错误是什么状况,大家才好分析的吧.而且...代码运行时候的数据是什么呢...期望的结果如何呢...

kempzhang

整理下再發吧