OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-207
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1792 IF (error_subcode < 0) THEN
1793 BEGIN
1794 error_subcode := -error_subcode;
1795 text_ptr ':=' "-" -> @text_ptr;
1796 END;
1797 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1798 , $DBL ( error_subcode )
1799 , BASE );
1800 text_len := @text_ptr - @tempbuf;
1801 CALL WRITE ( termnum, outbuf, text_len );
1802
1803 !------------------------------------------------------------------!
1804 ! Display the original error code and original error subcode. !
1805 !------------------------------------------------------------------!
1806
1807 tempbuf ':=' "ORIGINAL ERROR INFO - " -> @text_ptr;
1808 text_len := @text_ptr - @tempbuf;
1809 CALL WRITE ( termnum, outbuf, text_len );
1810
1811 tempbuf ':=' " SERVICE ID # " -> @text_ptr;
1812 @text_ptr := @text_ptr
1813 + DNUMOUT ( text_ptr
1814 , $DBL ( original_error_info.zerror.zservice^id )
1815 , BASE );
1816 text_len := @text_ptr - @tempbuf;
1817 CALL WRITE ( termnum, outbuf, text_len );
1818
1819 tempbuf ':=' " ERROR CODE # " -> @text_ptr;
1820 IF ( original_error_info.zerror.zerror^code < 0) THEN
1821 BEGIN
1822 original_error_info.zerror.zerror^code
1823 := -original_error_info.zerror.zerror^code;
1824 text_ptr ':=' "-" -> @text_ptr;
1825 END;
1826 @text_ptr := @text_ptr
1827 + DNUMOUT ( text_ptr
1828 , $DBL ( original_error_info.zerror.zerror^code )
1829 , BASE );
1830 text_len := @text_ptr - @tempbuf;