OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-219
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2260 ! for an FTM_U_ABORT_REQ_ call. The diagnostic values set here are !
2261 ! for example only; a real application might be more specific, for !
2262 ! instance, in the error code. Here, type is set to "permanent"; !
2263 ! error code is set to "no reason"; observer of error is this !
2264 ! application, and source of error is not categorized. !
2265 !------------------------------------------------------------------!
2266
2267 diag.zdiagcount := 1;
2268 diag.zdiagelemsispresent := ZAPS^VAL^TRUE;
2269 diag.zdiagelems.zdiagtype := ZFTM^VAL^DIAG^PERMANENT;
2270 diag.zdiagelems.zerrorid := ZFTM^DIAG^NO^REASON;
2271 diag.zdiagelems.zerrorobserver := ZFTM^VAL^ENTITYREF^INITFSRVUSR;
2272 diag.zdiagelems.zerrorsource := ZFTM^VAL^ENTITYREF^NOCATPOSS;
2273 diag.zdiagelems.zsuggesteddelayispresent := ZAPS^VAL^FALSE;
2274 diag.zdiagelems.zfurtherdetailsispresent := ZAPS^VAL^FALSE;
2275
2276 !------------------------------------------------------------------!
2277 ! Abort the source association if it exists. !
2278 !------------------------------------------------------------------!
2279
2280 IF ( src_con_established ) THEN
2281 BEGIN
2282 status := FTM_U_ABORT_REQ_ ( src_cepi
2283 , action_result
2284 , diag);
2285 IF (status <> ZAPS^VAL^STATUS^OK) THEN
2286 BEGIN
2287 tempbuf ':=' "Abort of the source association failed" -> @text_ptr;
2288 text_len := @text_ptr - @tempbuf;
2289 CALL WRITE ( termnum, outbuf, text_len );
2290 END;
2291 END;
2292
2293 !------------------------------------------------------------------!
2294 ! Abort the destination association if it exists. !
2295 !------------------------------------------------------------------!
2296
2297 IF ( dst_con_established ) THEN
2298 BEGIN