OSI/FTAM Programming Reference Manual

FTM Procedures
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
4-74
FTM_ERASE_REQ_
37. END;
38. !----------------------------------------------------------------------!
39. ! Call APS_EVENT_RECEIVE_ to receive the confirm for the erase service.!
40. !----------------------------------------------------------------------!
41. status := APS_EVENT_RECEIVE_ ( cepi, WAIT_FOREVER );
42. IF ( status <> ZAPS^VAL^STATUS^EVENT ) THEN
43. BEGIN
44. CALL ABEND;
45. END;
46. !----------------------------------------------------------------------!
47. ! Call APS_STATUS_ to determine what event has been received. Verify !
48. ! that the event is the erase confirm. !
49. !----------------------------------------------------------------------!
50. error := APS_STATUS_ ( cepi, event_code );
51. IF ( error <> ZAPS^ERR^OK ) OR
52. ( event_code <> ZFTM^VAL^EVT^ERASE^CNF) THEN
53. BEGIN
54. CALL ABEND;
55. END;
56. !----------------------------------------------------------------------!
57. ! Call FTM_ERASE_CNF_ to get the action result and diagnostics. !
58. !----------------------------------------------------------------------!
59. error := FTM_ERASE_CNF_ ( cepi
60. , action_result
61. , diag );
62. IF ( error <> ZAPS^ERR^OK ) THEN
63. BEGIN
64. CALL ABEND;
65. END;
66. IF ( action_result <> ZFTM^VAL^ACTION^SUCCESS ) THEN
67. BEGIN
68. !----------------------------------------------------------------------!
69. ! The erase request failed. The diagnostics can be examined if !
70. ! more detailed diagnostic information is required by an application. !
71. !----------------------------------------------------------------------!
72. CALL ABEND;
73. END;