OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-105
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1909
1910 tempbuf ':=' "BAD STATE # " -> @text_ptr;
1911 text_len := @text_ptr - @tempbuf;
1912 width := DNUMOUT ( tempbuf[text_len]
1913 , $DBL ( state_result )
1914 , BASE );
1915 tempbuf[text_len + width] ':=' " Association aborted" -> @text_ptr;
1916 text_len := @text_ptr - @tempbuf;
1917 CALL WRITE ( termnum, outbuf, text_len );
1918
1919 !-----------------------------------------------------------------!
1920 ! Discard the API context information for the association !
1921 ! and abend the program. !
1922 !-----------------------------------------------------------------!
1923
1924 CALL APS_DISCARD_ ( cepi );
1925 CALL ABEND;
1926
1927 END; -- bad_state --