7.56.2 EXIT の使用例

例1:ファンクションを終了し、テキスト・メッセージを発行します。

EXIT    MSGTXT('LANSA ended at user request')
 

例2:メッセージ識別子およびメッセージ・ファイルを使用してファンクションを終了します。

EXIT  MSGID(USR0046) MSGF(QUSRMSG)
 
EXIT  MSGID(USR0167) MSGF(QUSRMSG.*LIBL)
 
EXIT  MSGID(USR8046) MSGF(QUSRMSG.USERLIB01)