OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-209
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1870
1871 ZAPS^VAL^STATUS^DISCARD ->
1872 BEGIN
1873 !---------------------------------------------------------------!
1874 ! A status of DISCARD returned on an FTM request indicates !
1875 ! that the association associated with that CEPI has been !
1876 ! lost. Set the appropriate control flag to indicate the !
1877 ! association is lost and call abort_discard to abort the !
1878 ! other association. !
1879 !---------------------------------------------------------------!
1880
1881 ! Determine which association has been lost. !
1882 IF ( cepi = src_cepi ) THEN
1883 BEGIN
1884 src_con_established := FALSE;
1885 END
1886 ELSE
1887 BEGIN
1888 dst_con_established := FALSE;
1889 END;
1890
1891 CALL abort_discard;
1892
1893 CALL STOP;
1894
1895 END;
1896
1897 OTHERWISE -> ! unknown status value !
1898
1899 tempbuf ':=' "Unknown Status" -> @text_ptr;
1900 text_len := @text_ptr - @tempbuf;
1901 CALL WRITE ( termnum, outbuf, text_len );
1902 CALL ABEND;
1903
1904 END;
1905
1906 END; -- check_status --
1907
1908