OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-178
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
661 , dst_ae_title
662 , ! service_class defaults to transfer !
663 , func_units
664 , attr_groups
665 , contents_type_list
666 , initiator_id
667 , account
668 , filestore_password );
669
670 CALL check_status ( dst_cepi );
671
672 event := ZFTM^VAL^EVT^INITIALIZE^CNF;
673 CALL get_event ( event, dst_cepi );
674
675 error := FTM_INITIALIZE_CNF_ ( dst_cepi
676 , state_result
677 , action_result
678 , local_appl
679 , dst_appl
680 , dst_ae_title
681 , ! dst_service_class !
682 , dst_func_units
683 , dst_attr_groups
684 , dst_contents_type_list
685 , diag );
686
687 CALL check_error;
688 CALL check_action_diag;
689 CALL check_state;
690
691 !------------------------------------------------------------------!
692 ! The destination association has been established. Set the flag !
693 ! that is used in error processing to determine whether an !
694 ! association exists. !
695 !------------------------------------------------------------------!
696
697 dst_con_established := TRUE;
698
699 !------------------------------------------------------------------!