OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-70
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
544
545
546
547 !-----------------------------------------------------------------!
548 ! If an I/O completion for READX is received, save the value of !
549 ! count_transferred in buf_count_transferred for later use. !
550 !-----------------------------------------------------------------!
551
552 IF <> THEN
553 condition_code := -1;
554
555 IF ( count_transferred <> -1 ) THEN
556 buf_count_transferred := count_transferred;
557
558
559 IF ( filenum <> local_filenum ) THEN
560 !-----------------------------------------------------------------!
561 ! Process the I/O completion of an FTM or APS procedure or event. !
562 !-----------------------------------------------------------------!
563 BEGIN
564
565 !--------------------------------------------------------------!
566 ! Determine whether an FTAM I/O operation completed or an FTAM !
567 ! event was received. If neither, display the error code and !
568 ! error subcode. !
569 !--------------------------------------------------------------!
570
571 IF ( status = ZAPS^VAL^STATUS^OK ) THEN
572 BEGIN
573 CALL ftam_io_cmpl;
574 END
575 ELSE IF ( status = ZAPS^VAL^STATUS^EVENT ) THEN
576 BEGIN
577 CALL ftam_event_rcvd;
578 END
579 ELSE
580 BEGIN
581 CALL check_status;
582 CALL APS_DISCARD_ ( cepi );