OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-83
Writing a File: TAL Programming Example
1597 CALL WRITE ( termnum, outbuf, text_len );
1598
1599 tempbuf ':=' " ERROR CODE # " -> @text_ptr;
1600 IF ( original_error_info.zerror.zerror^code < 0) THEN
1601 BEGIN
1602 original_error_info.zerror.zerror^code
1603 := -original_error_info.zerror.zerror^code;
1604 text_ptr ':=' "-" -> @text_ptr;
1605 END;
1606 @text_ptr := @text_ptr
1607 + DNUMOUT ( text_ptr
1608 , $DBL ( original_error_info.zerror.zerror^code )
1609 , BASE );
1610 text_len := @text_ptr - @tempbuf;
1611 CALL WRITE ( termnum, outbuf, text_len );
1612
1613 tempbuf ':=' " ERROR SUBCODE # " -> @text_ptr;
1614 IF ( original_error_info.zerror.zerror^subcode < 0) THEN
1615 BEGIN
1616 original_error_info.zerror.zerror^subcode
1617 := -original_error_info.zerror.zerror^subcode;
1618 text_ptr ':=' "-" -> @text_ptr;
1619 END;
1620 @text_ptr := @text_ptr
1621 + DNUMOUT ( text_ptr
1622 , $DBL ( original_error_info.zerror.zerror^subcode )
1623 , BASE );
1624 text_len := @text_ptr - @tempbuf;
1625 CALL WRITE ( termnum, outbuf, text_len );
1626
1627 CALL APS_DISCARD_ ( cepi );
1628 tempbuf ':=' "Association discarded" -> @text_ptr;
1629 text_len := @text_ptr - @tempbuf;
1630 CALL WRITE ( termnum, outbuf, text_len );
1631 CALL STOP;
1632
1633 END; -- check_status --
1634
1635