OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-85
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1129 ! Output: File-deselect/close request to remote responder !
1130 ! !
1131 !--------------------------------------------------------------------!
1132
1133 SUBPROC transend_cnf_close_req;
1134
1135 BEGIN
1136
1137 !-----------------------------------------------------------------!
1138 ! Retrieve the transfer-end confirm data. !
1139 !-----------------------------------------------------------------!
1140
1141 error := FTM_TRANSFER_END_CNF_ ( cepi
1142 , action_result
1143 , diag );
1144
1145 CALL check_error;
1146
1147 !-----------------------------------------------------------------!
1148 ! Check the action result and display any diagnostic messages. !
1149 !-----------------------------------------------------------------!
1150
1151 CALL check_action_diag;
1152
1153 !-----------------------------------------------------------------!
1154 ! The transfer is now complete. Deselect and close the remote !
1155 ! file. The delete-action parameter specifies closing the file !
1156 ! without deleting it. The FTM_FILE_CLOSE_REQ_ handles both !
1157 ! deselecting and closing the file. !
1158 !-----------------------------------------------------------------!
1159
1160 delete_action := ZFTM^VAL^CLOSE^NODELETE;
1161
1162 status := FTM_FILE_CLOSE_REQ_ ( cepi
1163 , delete_action
1164 , $dbl (FILECLOSE_TAG) );
1165
1166 CALL check_status;
1167