OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-182
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
817 access_passwords.zdeletepasswd.zlen BYTES;
818
819 !------------------------------------------------------------------!
820 !Initialize parameters for the FTM_READ_ATTRIB_REQ_ procedure call.!
821 !------------------------------------------------------------------!
822
823 !------------------------------------------------------------------!
824 ! Indicate which file attributes from the kernel and negotiated !
825 ! attribute groups are requested. This application requests all !
826 ! kernel attributes, the file availability and future filesize !
827 ! attributes from the storage group, and access control from the !
828 ! security group. !
829 !------------------------------------------------------------------!
830
831 ! Kernel group !
832 attr_names.zfilename := ZAPS^VAL^TRUE;
833 attr_names.zpermittedactions := ZAPS^VAL^TRUE;
834 attr_names.zcntntstype := ZAPS^VAL^TRUE;
835
836 ! Storage group !
837 !------------------------------------------------------------------!
838 ! Set the file-availability and future-filesize attributes to !
839 ! ZAPS^VAL^TRUE. !
840 !------------------------------------------------------------------!
841
842 attr_names.zfileavlblty := ZAPS^VAL^TRUE;
843 attr_names.zfuturefilesize := ZAPS^VAL^TRUE;
844
845 !------------------------------------------------------------------!
846 ! Set the remaining storage attributes to ZAPS^VAL^FALSE. !
847 !------------------------------------------------------------------!
848
849 attr_names.zstorageaccount := ZAPS^VAL^FALSE;
850 attr_names.zcreation := ZAPS^VAL^FALSE;
851 attr_names.zlastmod := ZAPS^VAL^FALSE;
852 attr_names.zlastreadaccess := ZAPS^VAL^FALSE;
853 attr_names.zlastattrmod := ZAPS^VAL^FALSE;
854 attr_names.zcreatorid := ZAPS^VAL^FALSE;
855 attr_names.zlastmodid := ZAPS^VAL^FALSE;