OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-189
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1090 access_passwords.zchngattrpasswd.zlen := $occurs(password);
1091 access_passwords.zchngattrpasswd.zb ':=' password FOR
1092 access_passwords.zchngattrpasswd.zlen BYTES;
1093 access_passwords.zdeletepasswd.zlen := 0;
1094
1095 !------------------------------------------------------------------!
1096 ! Initialize parameters for the FTM_OPEN_REQ_ procedure call. !
1097 !------------------------------------------------------------------!
1098
1099 !------------------------------------------------------------------!
1100 !Set up the processing mode to perform a replace action on the file.!
1101 !------------------------------------------------------------------!
1102
1103 process_mode.zread := ZAPS^VAL^FALSE;
1104 process_mode.zinsert := ZAPS^VAL^FALSE;
1105 process_mode.zreplace := ZAPS^VAL^TRUE;
1106 process_mode.zextend := ZAPS^VAL^FALSE;
1107 process_mode.zerase := ZAPS^VAL^FALSE;
1108
1109 !------------------------------------------------------------------!
1110 ! Initialize the threshold for the begin-group request to specify !
1111 ! that both services (create and open) must be successful for the !
1112 ! group to succeed. !
1113 !------------------------------------------------------------------!
1114
1115 threshold := 2D;
1116
1117 status := FTM_BEGIN_GROUP_REQ_ ( dst_cepi
1118 , threshold );
1119 CALL check_status ( dst_cepi );
1120
1121 status := FTM_CREATE_REQ_ ( dst_cepi
1122 , initial_attr
1123 , override
1124 , filestore_password
1125 , requested_access
1126 , access_passwords
1127 , account );
1128 CALL check_status ( dst_cepi );