OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-60
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
154 INT wait_mode; ! Wait or nowait I/O !
155 INT condition_code; ! Condition code !
156 INT width; ! Used for DNUMOUT calls !
157
158 !----------------------------------------------------------------------!
159 ! Variables used by the MFM_AWAITIOX_ procedure !
160 !----------------------------------------------------------------------!
161
162 INT filenum; ! Returned by MFM_AWAITIOX_ !
163 INT(32) buffer_addr; ! Returned buffer address !
164 INT count_transferred; ! Number of bytes read !
165 INT buf_count_transferred; ! Holding place for # bytes !
166
167 !----------------------------------------------------------------------!
168 ! Variables used by the FTM procedures !
169 !----------------------------------------------------------------------!
170
171 INT(32) file_status; ! Used by FTM_FILE_OPEN_REQ_ !
172 INT(32) delete_action; ! Do not delete after close !
173 INT(32) state_result; ! Status of regime change !
174 INT(32) action_result; ! Status in FTM CNF_ calls !
175 INT(32) fadu_op; ! Insert operation used !
176
177 !----------------------------------------------------------------------!
178 ! Boolean variables used to manage nowait I/O processing !
179 !----------------------------------------------------------------------!
180
181 INT local_read_io_cmplt := FALSE; ! Local file read completed !
182 INT remote_io_cmplt := FALSE; ! Data-req to rem.completed !
183 INT remote_file_update_cmplt := FALSE; ! While loop control flag !
184 INT file_update_failed := TRUE; ! Remote file update failed !
185
186 !----------------------------------------------------------------------!
187 ! Error-handling variables !
188 !----------------------------------------------------------------------!
189
190 INT status; ! Used for I/O request calls !
191 INT error; ! Used for confirm calls !
192 INT error_code; ! Returns error number !