OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-188
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1051 initial_attr.zaccesscntrlattr.zaccesscntrl.zpasswdsispresent :=
1052 ZAPS^VAL^ABSENT;
1053 initial_attr.zaccesscntrlattr.zaccesscntrl.zlocationispresent :=
1054 ZAPS^VAL^ABSENT;
1055 initial_attr.zlegalqualifispresent := ZAPS^VAL^ABSENT;
1056
1057 !------------------------------------------------------------------!
1058 ! Specify that the application is to delete the named file if it !
1059 ! exists and create a new file using the attributes specified in !
1060 ! the initial_attr parameter. !
1061 !------------------------------------------------------------------!
1062
1063 override := ZFTM^VAL^OVR^CREATE^NEW;
1064
1065
1066 !------------------------------------------------------------------!
1067 ! Set the requested_access parameter to provide replace and !
1068 ! change attribute access on the file. !
1069 !------------------------------------------------------------------!
1070
1071 requested_access.zread := ZAPS^VAL^FALSE;
1072 requested_access.zreplace := ZAPS^VAL^TRUE;
1073 requested_access.zreadattr := ZAPS^VAL^FALSE;
1074 requested_access.zchngattr := ZAPS^VAL^TRUE;
1075 requested_access.zdelete := ZAPS^VAL^FALSE;
1076
1077 !------------------------------------------------------------------!
1078 ! Provide the access password for each action to be performed on !
1079 ! the file. !
1080 !------------------------------------------------------------------!
1081
1082 access_passwords.zreadpasswd.zlen := 0;
1083 access_passwords.zinsertpasswd.zlen := 0;
1084 access_passwords.zreplacepasswd.zlen := $occurs(password);
1085 access_passwords.zreplacepasswd.zb ':=' password FOR
1086 access_passwords.zreplacepasswd.zlen BYTES;
1087 access_passwords.zextendpasswd.zlen := 0;
1088 access_passwords.zerasepasswd.zlen := 0;
1089 access_passwords.zreadattrpasswd.zlen := 0;