OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-74
Writing a File: TAL Programming Example
1246 IF ( event = ZFTM^VAL^EVT^PABORT^IND ) THEN
1247 BEGIN
1248 !--------------------------------------------------------------!
1249 ! Retrieve the action result and diagnostic messages for the !
1250 ! P-abort. !
1251 !--------------------------------------------------------------!
1252
1253 error := FTM_P_ABORT_IND_ ( cepi
1254 , action_result
1255 , diag );
1256 IF ( error <> ZAPS^ERR^OK ) THEN
1257 CALL check_error;
1258
1259 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
1260 CALL check_action;
1261
1262 END
1263 ELSE
1264 IF ( event = ZFTM^VAL^EVT^UABORT^IND ) THEN
1265 BEGIN
1266 !--------------------------------------------------------------!
1267 ! Retrieve the action result and diagnostic messages for the !
1268 ! U-abort. !
1269 !--------------------------------------------------------------!
1270
1271 error := FTM_U_ABORT_IND_ ( cepi
1272 , action_result
1273 , diag );
1274 IF ( error <> ZAPS^ERR^OK ) THEN
1275 CALL check_error;
1276
1277 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
1278 CALL check_action;
1279
1280 END
1281 ELSE
1282 IF ( event = ZFTM^VAL^EVT^CANCEL^IND ) THEN
1283 BEGIN
1284 !--------------------------------------------------------------!