OSI/FTAM Programming Reference Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

471

472

473

474

475

476

477

478

479

480

NonStop FTAM Programming Examples

HP NonStop OSI/FTAM Programming Reference Manual—528611-001

G-166

Example 2 in TAL—Moving a File Between Two

Remote Systems (in Wait Mode)

193 STRUCT .EXT ae_title ( ZAPS^DDL^AE^TITLE^DEF );

194 STRUCT .EXT src_ae_title ( ZAPS^DDL^AE^TITLE^DEF );

195 STRUCT .EXT dst_ae_title ( ZAPS^DDL^AE^TITLE^DEF );

196 STRUCT .EXT func_units ( ZFTM^DDL^FUNC^UNITS^DEF );

197 STRUCT .EXT attr_groups ( ZFTM^DDL^ATTR^GROUPS^DEF );

198 STRUCT .EXT contents_type_list ( ZFTM^DDL^CNTNTS^LIST^DEF );

199 STRUCT .EXT initiator_id ( ZAPS^DDL^CHAR32^DEF );

200 STRUCT .EXT account ( ZAPS^DDL^CHAR32^DEF );

201 STRUCT .EXT filestore_password ( ZAPS^DDL^CHAR32^DEF );

202 STRUCT .EXT src_func_units ( ZFTM^DDL^FUNC^UNITS^DEF );

203 STRUCT .EXT dst_func_units ( ZFTM^DDL^FUNC^UNITS^DEF );

204 STRUCT .EXT src_attr_groups ( ZFTM^DDL^ATTR^GROUPS^DEF );

205 STRUCT .EXT dst_attr_groups ( ZFTM^DDL^ATTR^GROUPS^DEF );

206 STRUCT .EXT src_contents_type_list ( ZFTM^DDL^CNTNTS^LIST^DEF );

207 STRUCT .EXT dst_contents_type_list ( ZFTM^DDL^CNTNTS^LIST^DEF );

208 STRUCT .EXT diag ( ZFTM^DDL^DIAGNOSTIC^DEF );

209 STRUCT .EXT src_file ( ZAPS^DDL^CHAR128^DEF );

210 STRUCT .EXT original_error_info ( ZAPS^DDL^ORIGINAL^ERROR^DEF );

211 STRUCT .EXT requested_access ( ZFTM^DDL^REQUESTED^ACCESS^DEF );

212 STRUCT .EXT access_passwords ( ZFTM^DDL^ACCESS^PASSWDS^DEF );

213 STRUCT .EXT attr_names ( ZFTM^DDL^ATTR^NAMES^DEF );

214 STRUCT .EXT process_mode ( ZFTM^DDL^PROC^MODE^DEF );

215 STRUCT .EXT file_attr ( ZFTM^DDL^READ^ATTR^DEF );

216 STRUCT .EXT contents_type ( ZFTM^DDL^CNTNTS^TYPE^DEF );

217 STRUCT .EXT initial_attr ( ZFTM^DDL^CREATE^ATTR^DEF );

218 STRUCT .EXT dst_fadu_id ( ZFTM^DDL^FADU^ID^DEF );

219 STRUCT .EXT src_fadu_id ( ZFTM^DDL^FADU^ID^DEF );

220 STRUCT .EXT access_context ( ZFTM^DDL^ACCESS^CNTXT^DEF );

221 STRUCT .EXT src_charging ( ZFTM^DDL^CHARGING^DEF );

222 STRUCT .EXT dst_charging ( ZFTM^DDL^CHARGING^DEF );

223 STRUCT .EXT change_attr ( ZFTM^DDL^CHANGE^ATTR^DEF );

224

225

226 !----------------------------------------------------------------------!

227 ! Variables used for startup-message processing !

228 !----------------------------------------------------------------------!

229

230 STRUCT .STARTUP;

231 BEGIN