OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-177
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
622
623 !------------------------------------------------------------------!
624 ! Set the optional parameter dst_ae_title. !
625 !------------------------------------------------------------------!
626
627 dst_ae_title.zae^title^type := zaps^val^ae^title^format2;
628 dst_ae_title.zae^title^format2.zae^qualifier^ispresent :=
629 ZAPS^VAL^PRESENT;
630 dst_ae_title.zae^title^format2.zae^qualifier := dst_ae_qualifier;
631 dst_ae_title.zae^title^format2.zap^title.znum^elements := NUM_ELEM;
632 dst_ae_title.zae^title^format2.zap^title.zobj^id ':='
633 dst_ap_title FOR NUM_ELEM WORDS;
634
635 !------------------------------------------------------------------!
636 ! Specify the functional units required of the destination system !
637 ! to write to a file: write, limited file management (required for !
638 ! enhanced file management), enhanced file management (required !
639 ! to change file attributes) and grouping (required by the file- !
640 ! transfer service class). !
641 !------------------------------------------------------------------!
642
643 func_units.zread := ZAPS^VAL^FALSE;
644 func_units.zwrite := ZAPS^VAL^TRUE;
645 func_units.zfilemgmt := ZAPS^VAL^TRUE;
646 func_units.zfilemgmtenhanced := ZAPS^VAL^TRUE;
647 func_units.zgroup := ZAPS^VAL^TRUE;
648
649 !------------------------------------------------------------------!
650 ! Set the wait mode for the association to wait mode. !
651 !------------------------------------------------------------------!
652
653 wait_mode := ZAPS^VAL^WAITED;
654
655 status := FTM_INITIALIZE_REQ_ ( dst_cepi
656 , aplmgr_name
657 , dst_appl
658 , wait_mode
659 , local_appl
660 , ae_title