OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-181
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
778 ! requirements. !
779 !------------------------------------------------------------------!
780
781 src_file.zlen := $occurs ( src_filename );
782 src_file.zb ':=' src_filename FOR src_file.zlen BYTES;
783
784 !------------------------------------------------------------------!
785 ! Set the requested_access parameter to provide this application !
786 ! with read, read-attribute, and delete access on the remote !
787 ! source file that is being moved. !
788 !------------------------------------------------------------------!
789
790 requested_access.zread := ZAPS^VAL^TRUE;
791 requested_access.zinsert := ZAPS^VAL^FALSE;
792 requested_access.zreplace := ZAPS^VAL^FALSE;
793 requested_access.zextend := ZAPS^VAL^FALSE;
794 requested_access.zerase := ZAPS^VAL^FALSE;
795 requested_access.zreadattr := ZAPS^VAL^TRUE;
796 requested_access.zchngattr := ZAPS^VAL^FALSE;
797 requested_access.zdelete := ZAPS^VAL^TRUE;
798
799 !------------------------------------------------------------------!
800 ! Provide the access password for each action to be performed !
801 ! on the file. !
802 !------------------------------------------------------------------!
803
804 access_passwords.zreadpasswd.zlen := $occurs (password);
805 access_passwords.zreadpasswd.zb ':=' password FOR
806 access_passwords.zreadpasswd.zlen BYTES;
807 access_passwords.zinsertpasswd.zlen := 0;
808 access_passwords.zreplacepasswd.zlen := 0;
809 access_passwords.zextendpasswd.zlen := 0;
810 access_passwords.zerasepasswd.zlen := 0;
811 access_passwords.zreadattrpasswd.zlen := $occurs (password);
812 access_passwords.zreadattrpasswd.zb ':=' password FOR
813 access_passwords.zreadattrpasswd.zlen BYTES;
814 access_passwords.zchngattrpasswd.zlen := 0;
815 access_passwords.zdeletepasswd.zlen := $occurs (password);
816 access_passwords.zdeletepasswd.zb ':=' password FOR