文件异常/错误子例程

标示下注意点:

1. 可在隐式文件操作（主文件或次文件）或明确的文件操作（在73－74列设有指示器）中发生异常/错误时接受控制。

2. 文件异常/错误子例程可用EXSR操作码运行。

3. ENDSR操作必须是文件异常/错误子例程的最后一个说明语句，且做如下说明：

标识子例程执行以后控制返回到何处，该项必须是一个6 位长的字符型字段、文字或数组元素，它可为下列指定的返回点之一。    

     *DETL    在明细行的开始处继续             *GETIN  在取得输入记录子例程处继续

  *TOTC    在总计计算开始处继        *TOTL    在总计行开始处继续 

      *OFL      在溢出行开始处继续        *DETC   在明细计算开始处继续

  *CANCL 撤消执行的程序 空格 

      

ltpf      uf   e           k disk    infsr(*pssr)                         
fltdspfcbf cf   e             workstn                                      
d opl             s              6                                         
d                sds                                                       
d username              254    263                                         
d procname          *proc                                                  
d recn                   21     28                                         
d sts               *status                                                
c                   read      altpf                                        
c                   exfmt     aaa                                          
c                   update    altpf                                        
c                   seton                                        lr        
c******** pssr                                                             
c     *pssr         begsr                                                  
c     'username='   dsply                   username                       
c     'procname='   dsply                   procname                       
c     'recn='       dsply                   recn                           
c     'status='     dsply                   sts                            
c                   eval      opl='*cancel'                                
c                   endsr     opl