http://wiki.signature.net/index.php?action=history&feed=atom&title=IB_Statements%2Fexcp 2026-05-04T20:37:54Z Revision history for this page on the wiki MediaWiki 1.16.0 http://wiki.signature.net/index.php?title=IB_Statements/excp&diff=399&oldid=prev 2009-05-21T11:50:31Z

<p>New page: &#39;&#39;&#39;Exception path&#39;&#39;&#39; &#39;&#39;&#39;Parameter:&#39;&#39;&#39; EXCP=statement-label &#39;&#39;&#39;Discussion:&#39;&#39;&#39; This parameter is used in input/output statements to specify the statement-label where program control i...</p> <p><b>New page</b></p><div>'''Exception path''' <br /> <br /> '''Parameter:''' EXCP=statement-label <br /> <br /> '''Discussion:''' This parameter is used in input/output statements to specify the statement-label where program control is transferred if a runtime exception occurs. <br /> <br /> If a runtime exception occurs, the program will branch to the statement-label specified. At that statement label, the program may contain statements to inquire into the nature of the exception. <br /> <br /> For more information, see Exception Handling. <br /> <br /> Also see EXCPSUB=. <br /> <br /> Example: <br /> OPEN (1) &quot;CUSTFILE&quot;, EXCP=LABEL1 ! OPEN FILE<br /> .<br /> INPUT (0) CUSTNUM$ ! ENTER CUST. NO.<br /> READ (1,1000) KEY=CUSTNUM$, EXCP=LABEL2 ! READ RECORD<br /> .<br /> LABEL1: IF EXCP = 11 THEN ... ! FILE NOT FOUND EXCEPTION<br /> .<br /> LABEL2: IF EXCP = 32 THEN ... ! KEY NOT FOUND EXCEPTION<br /> IF EXCP = 33 THEN ... ! RECORD LOCKED EXCEPTION<br /> <br /> In this example, the OPEN statement attempts to open a file named &quot;CUSTFILE&quot;. If an exception occurs, the program branches to LABEL1:, where the system variable named EXCP is interrogated. <br /> If the EXCP variable equals 11, Comet was not able to find the data file (most likely because such a file name did not exist). <br /> <br /> The READ statement attempts to read a record from the customer file with a key value equal to the input value (i.e., the customer number). If an exception occurs, the program branches to LABEL2:, where the system variable named EXCP is interrogated. <br /> <br /> If EXCP equals 32, the specified customer number key was not found in the file. <br /> <br /> If EXCP equals 33, the specified customer number key was locked (extracted) by another user. <br /> <br /> See system variables and EXCP for more information.</div>

Badge