*
     FIN      UF  F    9999            DISK
      *
     IINREC       DS                           9999
      *
      *
     C           *INLR     DOUEQ'1'
     C                     READ IN        INREC          LR
     C                     ENDDO
      *
     C           '1'       IFEQ '0'
     C                     UPDATIN        INREC
     C                     ENDIF
      *
      *
     C                     RETRN
      *