OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-97
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1597 tempbuf ':=' "ERROR SUBCODE # " -> @text_ptr;
1598 IF (error_subcode < 0) THEN
1599 BEGIN
1600 error_subcode := -error_subcode;
1601 text_ptr ':=' "-" -> @text_ptr;
1602 END;
1603 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1604 , $DBL ( error_subcode )
1605 , BASE );
1606 text_len := @text_ptr - @tempbuf;
1607 CALL WRITE ( termnum, outbuf, text_len );
1608
1609 !----------------------------------------------------------------!
1610 ! Display the original error code and original error subcode. !
1611 !----------------------------------------------------------------!
1612
1613 tempbuf ':=' "ORIGINAL ERROR INFO - " -> @text_ptr;
1614 text_len := @text_ptr - @tempbuf;
1615 CALL WRITE ( termnum, outbuf, text_len );
1616
1617 tempbuf ':=' " SERVICE ID # " -> @text_ptr;
1618 @text_ptr := @text_ptr
1619 + DNUMOUT ( text_ptr
1620 , $DBL ( original_error_info.zerror.zservice^id )
1621 , BASE );
1622 text_len := @text_ptr - @tempbuf;
1623 CALL WRITE ( termnum, outbuf, text_len );
1624
1625 tempbuf ':=' " ERROR CODE # " -> @text_ptr;
1626 IF ( original_error_info.zerror.zerror^code < 0) THEN
1627 BEGIN
1628 original_error_info.zerror.zerror^code
1629 := -original_error_info.zerror.zerror^code;
1630 text_ptr ':=' "-" -> @text_ptr;
1631 END;
1632 @text_ptr := @text_ptr
1633 + DNUMOUT ( text_ptr
1634 , $DBL ( original_error_info.zerror.zerror^code )
1635 , BASE );