OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-98
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1636 text_len := @text_ptr - @tempbuf;
1637 CALL WRITE ( termnum, outbuf, text_len );
1638
1639 tempbuf ':=' " ERROR SUBCODE # " -> @text_ptr;
1640 IF ( original_error_info.zerror.zerror^subcode < 0) THEN
1641 BEGIN
1642 original_error_info.zerror.zerror^subcode
1643 := -original_error_info.zerror.zerror^subcode;
1644 text_ptr ':=' "-" -> @text_ptr;
1645 END;
1646 @text_ptr := @text_ptr
1647 + DNUMOUT ( text_ptr
1648 , $DBL ( original_error_info.zerror.zerror^subcode )
1649 , BASE );
1650 text_len := @text_ptr - @tempbuf;
1651 CALL WRITE ( termnum, outbuf, text_len );
1652
1653 IF ( cepi = NOCEPI ) THEN
1654 return;
1655
1656 !----------------------------------------------------------------!
1657 ! Perform error handling, depending on the status value returned.
1658 ! Additional application-specific error handling or recovery !
1659 ! could be implemented depending on application requirements. !
1660 !----------------------------------------------------------------!
1661
1662 CASE status OF
1663 BEGIN
1664
1665 ZAPS^VAL^STATUS^NO^RETRY,
1666 ZAPS^VAL^STATUS^RETRY^LATER ->
1667
1668 !--------------------------------------------------------------!
1669 ! The nowait I/O completion indicates an error was detected !
1670 ! and the association should be aborted. If an abort request !
1671 ! is in progress, do not issue another abort request. !
1672 !--------------------------------------------------------------!
1673
1674 IF (tag <> $dbl (ABORT_TAG)) THEN