OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-211
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1948 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1949 , $DBL ( error_code )
1950 , BASE );
1951 text_len := @text_ptr - @tempbuf;
1952 CALL WRITE ( termnum, outbuf, text_len );
1953
1954 tempbuf ':=' "Association discarded"
1955 -> @text_ptr;
1956 text_len := @text_ptr - @tempbuf;
1957 CALL WRITE ( termnum, outbuf, text_len );
1958
1959 !------------------------------------------------------------------!
1960 ! Abort both associations and exit the program. !
1961 !------------------------------------------------------------------!
1962
1963 CALL abort_discard;
1964
1965 CALL STOP;
1966
1967 END;
1968
1969 END; -- check_error --
1970
1971
1972 ?PAGE "CHECK_STATE"
1973 !---------------------------------------------------------------------!
1974 ! !
1975 ! Name: check_state !
1976 ! !
1977 ! Description: The check_state procedure checks for a state-result !
1978 ! failure on an FTM confirm call. If the state result !
1979 ! is "failure," this procedure displays an error message,!
1980 ! calls abort_discard, and exits the program. !
1981 ! !
1982 ! Input: None !
1983 ! !
1984 ! Output: Error message to terminal !
1985 ! !
1986 !---------------------------------------------------------------------!