OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-104
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1870 CALL APS_DISCARD_ ( cepi );
1871 tempbuf ':=' "Association discarded" -> @text_ptr;
1872 text_len := @text_ptr - @tempbuf;
1873 CALL WRITE ( termnum, outbuf, text_len );
1874 CALL STOP;
1875
1876 END;
1877
1878 END; --- check_action_diag ---
1879
1880
1881 ?PAGE "proc BAD_STATE"
1882 !---------------------------------------------------------------------!
1883 ! !
1884 ! Name: bad_state !
1885 ! !
1886 ! Description: The following procedure is called when an FTM !
1887 ! confirm procedure returns a bad state result. The !
1888 ! procedure displays an error message, discards the !
1889 ! association, and abends the program. Additional !
1890 ! application-specific error handling or recovery !
1891 ! could be implemented, depending on application !
1892 ! requirements. !
1893 ! !
1894 ! Input: None !
1895 ! !
1896 ! Output: Error message to terminal !
1897 ! !
1898 !---------------------------------------------------------------------!
1899
1900 PROC bad_state;
1901
1902 BEGIN
1903
1904 !-----------------------------------------------------------------!
1905 ! Display the invalid state-result error message. You might also !
1906 ! want to print out the diagnostic field to obtain more !
1907 ! information about the error condition. !
1908 !-----------------------------------------------------------------!