OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-218
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2221 CALL STOP;
2222
2223 END;
2224
2225 END; --- check_action_diag ---
2226
2227
2228 ?PAGE "ABORT_DISCARD"
2229 !---------------------------------------------------------------------!
2230 ! !
2231 ! Name: abort_discard !
2232 ! !
2233 ! Description: The abort_discard procedure discards established !
2234 ! associations. !
2235 ! !
2236 ! Input: None !
2237 ! !
2238 ! Output: None !
2239 ! !
2240 !---------------------------------------------------------------------!
2241
2242 PROC abort_discard;
2243
2244 BEGIN
2245
2246 !------------------------------------------------------------------!
2247 ! Initialize the parameters for the U-abort request. !
2248 !------------------------------------------------------------------!
2249
2250
2251 !------------------------------------------------------------------!
2252 ! Send a failed action result since the following diagnostic !
2253 ! message type is set to "permanent." !
2254 !------------------------------------------------------------------!
2255 action_result := ZFTM^VAL^ACTION^FAILURE;
2256
2257
2258 !------------------------------------------------------------------!
2259 ! The following code demonstrates how to set the diagnostic parameter !