OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-190
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1129
1130 status := FTM_OPEN_REQ_ ( dst_cepi
1131 , process_mode
1132 , contents_type );
1133 CALL check_status ( dst_cepi );
1134
1135 status := FTM_END_GROUP_REQ_ ( dst_cepi );
1136 CALL check_status ( dst_cepi );
1137
1138 !------------------------------------------------------------------!
1139 ! Call the following procedures to process the confirms !
1140 ! returned by each request. The begin-group and end-group !
1141 !requests do not have separate confirm function but, if successful,!
1142 ! they result in confirm events. Call a get_event for each. !
1143 !------------------------------------------------------------------!
1144
1145 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
1146 CALL get_event ( event, dst_cepi );
1147
1148 event := ZFTM^VAL^EVT^CREATE^CNF;
1149 CALL get_event ( event, dst_cepi );
1150 error := FTM_CREATE_CNF_ ( dst_cepi
1151 , state_result
1152 , action_result
1153 , initial_attr
1154 , diag );
1155 CALL check_error;
1156
1157 CALL check_action_diag;
1158 CALL check_state;
1159
1160 event := ZFTM^VAL^EVT^OPEN^CNF;
1161 CALL get_event ( event, dst_cepi );
1162 error := FTM_OPEN_CNF_ ( dst_cepi
1163 , state_result
1164 , action_result
1165 , contents_type
1166 , diag );
1167 CALL check_error;