NetCOBOL for .NET V8.0 メッセージ集

2.3.377 JMN2608I-S

@1@文は，最も外側のプログラムにただ一つだけしか指定できません．

引数の説明

@1@:

USE FOR DEAD-LOCK．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2608.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 PROCEDURE      DIVISION.
      000007     CALL "P2608SUB"
      000008     STOP RUN.
      000009*
      000010 IDENTIFICATION DIVISION.
      000011 PROGRAM-ID.    P2608SUB.
      000012 PROCEDURE      DIVISION.
      000013 DECLARATIVES.
      000014 ERROR-1 SECTION.
      000015     USE FOR DEAD-LOCK.
      000016     EXIT PROGRAM.
      000017 END DECLARATIVES.
      000018 END PROGRAM    P2608SUB.
      000019 END PROGRAM    P2608.
    

P2608.cob (15) : JMN2608I-S USE FOR DEAD-LOCK文は，最も外側のプログラムにただ一つだけしか指定できません．

詳細な説明

USE FOR DEAD-LOCK文では，デッドロックが生じたときに実行すべき手続きを指定します．指定された手続きは，トランザクションコントロールシステムによって実行されます．