OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-61
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
193 INT error_subcode; ! Returns error subcodes !
194 INT file_error; ! Local file I/O errors !
195
196 !----------------------------------------------------------------------!
197 ! Local and remote buffer pointers !
198 !----------------------------------------------------------------------!
199
200 STRING .EXT remote_buffer[0:MAX_BUF-1]; ! Used for FTM_DATA_REQ_ !
201 STRING .EXT local_buffer[0:MAX_READ_COUNT-1];!Used for Guardian read !
202 INT .EXT data_ptr; ! Points to remote_buffer !
203
204 !----------------------------------------------------------------------!
205 ! Structures used by the FTM procedures !
206 !----------------------------------------------------------------------!
207
208 STRUCT .EXT element_hdr_ptr ( ZAPS^DDL^DATA^ELEMENT^HDR^DEF );
209 STRUCT .EXT data_hdr_ptr ( ZAPS^DDL^DATA^HDR^DEF );
210 STRUCT .EXT aplmgr_name ( ZAPS^DDL^FILENAME^DEF );
211 STRUCT .EXT responding_appl ( ZAPS^DDL^APPL^ADDR^DEF );
212 STRUCT .EXT local_appl ( ZAPS^DDL^APPL^ADDR^DEF );
213 STRUCT .EXT func_units ( ZFTM^DDL^FUNC^UNITS^DEF );
214 STRUCT .EXT service_class ( ZFTM^DDL^SERVICE^CLASS^DEF );
215 STRUCT .EXT remote_file ( ZAPS^DDL^CHAR128^DEF );
216 STRUCT .EXT original_error_info ( ZAPS^DDL^ORIGINAL^ERROR^DEF );
217 STRUCT .EXT requested_access ( ZFTM^DDL^REQUESTED^ACCESS^DEF );
218 STRUCT .EXT process_mode ( ZFTM^DDL^PROC^MODE^DEF );
219 STRUCT .EXT contents_type_list ( ZFTM^DDL^CNTNTS^LIST^DEF );
220 STRUCT .EXT contents_type ( ZFTM^DDL^CNTNTS^TYPE^DEF );
221 STRUCT .EXT fadu_id ( ZFTM^DDL^FADU^ID^DEF );
222 STRUCT .EXT diag ( ZFTM^DDL^DIAGNOSTIC^DEF );
223
224 !----------------------------------------------------------------------!
225 ! Variables used for startup-message processing !
226 !----------------------------------------------------------------------!
227
228 STRUCT .STARTUP;
229 BEGIN
230 INT msg_code;
231 INT default_vol [0:7];