OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-69
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
505 , ! initiator_id - defaults to spaces !
506 , ! account - defaults to spaces !
507 , ! filestore_password - defaults to spaces !
508 , $dbl (INITIALIZE_TAG) );
509
510 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
511 BEGIN
512 CALL check_status;
513 CALL STOP;
514 END;
515
516 !---------------------------------------------------------------------!
517 ! The main control loop continues processing until an abort or !
518 ! discard, or until the last data request is sent. !
519 !---------------------------------------------------------------------!
520
521 WHILE ( NOT remote_file_update_cmplt ) DO
522 BEGIN
523
524 !-----------------------------------------------------------------!
525 ! Assign a filenum value of -1 to make the process wait for the !
526 ! first I/O completion of an FTM, APS, or Guardian file system !
527 ! procedure. !
528 !-----------------------------------------------------------------!
529
530 filenum := -1;
531
532 !-----------------------------------------------------------------!
533 ! Wait for the next I/O completion from an FTM, APS, or !
534 ! Guardian file-system procedure. !
535 !-----------------------------------------------------------------!
536
537 CALL MFM_AWAITIOX_ ( status ! Output !
538 , filenum ! I/O !
539 , buffer_addr ! Output !
540 , count_transferred ! Output !
541 , tag ! Output !
542 , WAIT_FOREVER ! Input !
543 , ! segment_id ! );