OSI/FTAM Programming Reference Manual

FTM Procedures
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
4-110
FTM_LOCATE_REQ_
37. IF ( status <> ZAPS-VAL-STATUS-EVENT ) THEN
38. BEGIN
39. CALL ABEND;
40. END;
41. !----------------------------------------------------------------------!
42. ! Call APS_STATUS_ to determine what event has been received. Verify !
43. ! that the event is the locate confirm. !
44. !----------------------------------------------------------------------!
45. error := APS_STATUS_ ( cepi, event_code );
46. IF ( error <> ZAPS-ERR-OK ) OR
47. ( event_code <> ZFTM-VAL-EVT-LOCATE-CNF) THEN
48. BEGIN
49. CALL ABEND;
50. END;
51. !----------------------------------------------------------------------!
52. ! Call FTM_LOCATE_CNF_. If the service is successful and the responder !
53. ! returns a value for the FADU identity, the value for fadu_id is the !
54. ! relative record number that was located; otherwise, the ZID field of !
55. ! of the ZFTM-DDL-FADU-ID structure has a value of !
56. ! ZFTM-VAL-FADU-NOVALUE. !
57. !----------------------------------------------------------------------!
58. error := FTM_LOCATE_CNF_ ( cepi
59. , action_result
60. , fadu_id
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 locate request failed. The diagnostics can be examined if !
70. ! more detailed diagnostic information is required by an application. !
71. !----------------------------------------------------------------------!
72. CALL ABEND;
73. END;