OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-62
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
232 INT infile [0:11];
233 INT outfile [0:11];
234 STRING params [0:131];
235 END;
236
237 INT .receive [0:11] := ["$RECEIVE",8*[" "]];
238 INT fn := -1;
239
240 !---------------------------------------------------------------------!
241 ! Variables used for local terminal I/O processing !
242 !---------------------------------------------------------------------!
243
244 INT termname [0:11];
245 INT termnum;
246 INT text_len;
247 INT .outbuf [0:133];
248 STRING .tempbuf := SADDR(outbuf);
249 STRING .text_ptr;
250
251 !---------------------------------------------------------------------!
252 ! End global data declarations !
253 !----------------------------------------------------------------------!
254
255 !----------------------------------------------------------------------!
256 ! External function declarations for FTM, APS, MFM, and Guardian !
257 ! procedures !
258 !----------------------------------------------------------------------!
259
260 ?nolist, source extdecs0 ( FTM_INITIALIZE_REQ_
261 ? , FTM_INITIALIZE_CNF_
262 ? , FTM_FILE_OPEN_REQ_
263 ? , FTM_FILE_OPEN_CNF_
264 ? , FTM_FILE_CLOSE_REQ_
265 ? , FTM_FILE_CLOSE_CNF_
266 ? , FTM_LOCATE_REQ_
267 ? , FTM_LOCATE_CNF_
268 ? , FTM_WRITE_REQ_
269 ? , FTM_DATA_REQ_
270 ? , FTM_DATA_END_REQ_