OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-101
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1753 !-----------------------------------------------------------------!
1754
1755 tempbuf ':=' "ERROR # " -> @text_ptr;
1756 IF (error_code < 0) THEN
1757 BEGIN
1758 error_code := -error_code;
1759 text_ptr ':=' "-" -> @text_ptr;
1760 END;
1761 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1762 , $DBL ( error_code )
1763 , BASE );
1764 text_len := @text_ptr - @tempbuf;
1765 CALL WRITE ( termnum, outbuf, text_len);
1766
1767 tempbuf ':=' "The association has been aborted" -> @text_ptr;
1768 text_len := @text_ptr - @tempbuf;
1769 CALL WRITE ( termnum, outbuf, text_len );
1770
1771 !-----------------------------------------------------------------!
1772 ! Discard the API context information for the association !
1773 ! and exit normally. !
1774 !-----------------------------------------------------------------!
1775
1776 CALL APS_DISCARD_ ( cepi );
1777 CALL STOP;
1778
1779 END;
1780
1781 END; --- check_error ---
1782
1783
1784 ?PAGE "proc CHECK_ACTION_DIAG"
1785 !--------------------------------------------------------------------!
1786 ! !
1787 ! Name: check_action_diag !
1788 ! !
1789 ! Description: The following procedure determines whether the !
1790 ! action requested of a remote responder was successful !
1791 ! or not. If not, the procedure displays the !