ACCEPT 操作の正常終了

Normal termination of an ACCEPT operation returns a value of 0 in key-type, and in key-code-1 it returns a value of:

48

The ASCII code for 0, when the ACCEPT operation is terminated by pressing Enter.

1

When an auto-skip in the last field on the screen terminates the ACCEPT operation.

     accept data-item at 0101
     if key-type = "0"
     and key-code-1 = 48
       display "Terminated by return key"
     else
       display "Terminated by auto-skip last field"
     end-if.