OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-204
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1675 ! A bad status has been received. !
1676 !----------------------------------------------------------------!
1677
1678 CALL check_status ( cepi );
1679 END;
1680
1681 !------------------------------------------------------------------!
1682 ! Get the event code. !
1683 !------------------------------------------------------------------!
1684
1685 error := APS_STATUS_ ( cepi
1686 , event_code );
1687 CALL check_error;
1688
1689 !------------------------------------------------------------------!
1690 ! Verify that the expected event was received. If the expected !
1691 ! event = ANYEVENT, then any event code is valid. !
1692 !------------------------------------------------------------------!
1693
1694 IF ( event_code <> expected_event) AND
1695 ( expected_event <> ANYEVENT ) THEN
1696 BEGIN
1697 CALL bad_event ( event_code, cepi );
1698 END;
1699
1700 !-----------------------------------------------------------------!
1701 ! Return the received event code to the caller. !
1702 !-----------------------------------------------------------------!
1703 IF ( expected_event = ANYEVENT ) THEN
1704 expected_event := event_code;
1705
1706 END; -- get_event --
1707
1708
1709 ?PAGE "CHECK_STATUS"
1710 !---------------------------------------------------------------------!
1711 ! !
1712 ! Name: check_status !
1713 ! !