OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-175
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
544
545 event := ZFTM^VAL^EVT^INITIALIZE^CNF;
546 CALL get_event ( event, src_cepi );
547
548 !------------------------------------------------------------------!
549 ! The optional output parameters for local_appl, src_appl, and !
550 ! src_ae_title are supplied to the confirm procedure for example !
551 ! only. The application returns the OSI addresses in the local_appl !
552 ! src_appl parameters, and the AE title of the source responder, in !
553 ! the src_ae_title parameter. !
554 !------------------------------------------------------------------!
555
556 error := FTM_INITIALIZE_CNF_ ( src_cepi
557 , state_result
558 , action_result
559 , local_appl
560 , src_appl
561 , src_ae_title
562 , !src_service_class defaults to transfer!
563 , src_func_units
564 , src_attr_groups
565 , src_contents_type_list
566 , diag );
567
568 CALL check_error;
569 CALL check_action_diag;
570 CALL check_state;
571
572 !------------------------------------------------------------------!
573 ! The source association has been established. Set the flag that !
574 ! is used in error processing to determine whether a source !
575 ! association exists. !
576 !------------------------------------------------------------------!
577
578 src_con_established := TRUE;
579
580 !------------------------------------------------------------------!
581 ! Verify that the functional units have not been negotiated down !
582 ! from what was requested. If the requested functional units are !