OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-80
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
934 !------------------------------------------------------------------!
935 ! Set the remaining contents_type.zdoctype elements to !
936 ! ZAPS^VAL^ABSENT. !
937 !------------------------------------------------------------------!
938 contents_type.zdoctype.zfileattrsispresent := ZAPS^VAL^ABSENT;
939
940 END
941 ELSE
942 BEGIN
943 tempbuf ':=' "Contents type unavailable for the association"
944 -> @text_ptr;
945 text_len := @text_ptr - @tempbuf;
946 CALL WRITE ( termnum, outbuf, text_len );
947
948 action_result := ZFTM^VAL^ACTION^FAILURE;
949
950 status := FTM_U_ABORT_REQ_ ( cepi
951 , action_result
952 , ! diagnostics !
953 , $dbl (ABORT_TAG) );
954
955 !-------------------------------------------------------------------!
956 ! If the above abort request is sent to remote system, then !
957 ! calling the main procedure sets the remote_file_update_cmplt !
958 ! flag, and the program is terminated. If the request is not !
959 ! sent out, set the flag here and return to the main procedure. !
960 !-------------------------------------------------------------------!
961
962 IF status <> ZAPS^VAL^STATUS^OK THEN
963 BEGIN
964 remote_file_update_cmplt := TRUE;
965 END;
966 RETURN;
967 END;
968
969
970 !--------------------------------------------------------------------!
971 ! The following sections initialize the parameters for the !
972 ! FTM_FILE_OPEN_REQ_ procedure. !