OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-103
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1831 ! Display the diagnostic message type and error ID for each !
1832 ! diagnostic message. !
1833 !--------------------------------------------------------------!
1834
1835 FOR i := 0 TO diag.zdiagcount-1 DO
1836 BEGIN
1837 tempbuf ':=' " Diagnostic Type: " -> @text_ptr;
1838 text_len := @text_ptr - @tempbuf;
1839 width := DNUMOUT ( tempbuf[text_len]
1840 , $DBL ( diag.zdiagelems[i].zdiagtype )
1841 , BASE );
1842 text_len := text_len + width;
1843 CALL WRITE ( termnum, outbuf, text_len );
1844
1845 tempbuf ':=' " Error ID: " -> @text_ptr;
1846 text_len := @text_ptr - @tempbuf;
1847 width := DNUMOUT ( tempbuf[text_len]
1848 , $DBL ( diag.zdiagelems[i].zerrorid )
1849 , BASE );
1850 text_len := text_len + width;
1851 CALL WRITE ( termnum, outbuf, text_len );
1852
1853 IF ( diag.zdiagelems[i].zfurtherdetailsispresent = ZAPS^VAL^PRESENT )
1854 THEN
1855 BEGIN
1856 tempbuf ':=' " Details: " -> @text_ptr;
1857 text_len := @text_ptr - @tempbuf;
1858 tempbuf[text_len] ':=' diag.zdiagelems[i].zfurtherdetails.zb
1859 FOR diag.zdiagelems[i].zfurtherdetails.zlen BYTES;
1860 text_len := text_len + diag.zdiagelems[i].zfurtherdetails.zlen;
1861 CALL WRITE ( termnum, outbuf, text_len );
1862 END;
1863 END;
1864
1865 !--------------------------------------------------------------!
1866 ! Discard the API context information for the association !
1867 ! and exit normally. !
1868 !--------------------------------------------------------------!
1869