tips:Record Locks

yoyoage

by Barbara Morris

If you are processing records in a primary file and you want to just skip any records that get input errors, you can code an INFSR subroutine for the file. On the ENDSR of the subroutine, code '*GETIN'. That will cause control to go to the part of the cycle that gets the next record.

1. 
   
2. Fmyfile    ip   e             disk    infsr(myinfsr)
   
3. C     myinfsr       begsr
   
4. C                   ... file error
   
5. C                       endsr     '*GETIN'

复制代码

If you also want to ignore program errors encountered when processing the data in a record, code a *PSSR subroutine the same way. If you don't have any file-specific processing in your INFSR subroutine, you can use the *PSSR as the INFSR.

1. 
   
2. Fmyfile    ip   e             disk    infsr(*pssr)
   
3. C     *pssr         begsr
   
4. C                   ... general error
   
5. C                   endsr     '*GETIN'

复制代码

If you don't always want to just go straight to the next record, you can soft-code the return point on the ENDSR.

1. 
   
2. Fmyfile    ip   e             disk    infsr(myinfsr)
   
3. D infsrEnd        s              6a
   
4. D recordLock      c                   1218
   
5. C     myinfsr       begsr
   
6. C                   eval      infsrEnd = '*CANCL'
   
7. C                   if        %status(myfile) = recordLock
   
8. C                   eval      infsrEnd = '*GETIN'
   
9. C                   endif
   
10. C                   endsr     infsrEnd
    

复制代码

michael9406

这么好的贴子是该设为精华了。

yoyoage

没错，可是 ，不是原创阿 。。。
多谢老大鼓励~

riancy1106

永远支持

sean810

Very Good!

yj2yq

支持!大家一起来!

yoyoage

有时间写好了再给大家：----我担心的是，英文的海勉强可以看懂，被我一折腾成中文的，就没人看懂了HOHO~