OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-87
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1207 CALL check_action_diag;
1208
1209 !-------------------------------------------------------------------!
1210 ! The file has been closed. The association can be terminated. !
1211 !-------------------------------------------------------------------!
1212
1213 status := FTM_TERMINATE_REQ_ ( cepi
1214 , $dbl (TERMINATE_TAG) );
1215
1216 CALL check_status;
1217
1218 END; --- close_cnf_terminate_req ---
1219
1220 ?PAGE "Continue proc FTAM_EVENT_RCVD"
1221
1222 !--------------------------------------------------------------------!
1223 ! MAIN BODY of ftam_event_rcvd procedure !
1224 !--------------------------------------------------------------------!
1225
1226 !-----------------------------------------------------------------!
1227 ! An event-receive call is completed. Retrieve the event code !
1228 ! from APS. !
1229 !-----------------------------------------------------------------!
1230
1231 error := APS_STATUS_ ( cepi
1232 , event_code );
1233
1234 CALL check_error;
1235
1236 !-----------------------------------------------------------------!
1237 ! Process the event that was received. !
1238 !-----------------------------------------------------------------!
1239
1240 CASE event_code OF
1241 BEGIN
1242 ZFTM^VAL^EVT^INITIALIZE^CNF ->
1243 CALL init_cnf_open_req;
1244
1245 ZFTM^VAL^EVT^FILEOPEN^CNF ->