OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-79
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
895 status := FTM_U_ABORT_REQ_( cepi
896 , action_result
897 , ! diagnostic !
898 , $dbl (ABORT_TAG) );
899
900 !----------------------------------------------------------------!
901 ! If the above abort request is sent to the remote system, then !
902 ! the calling main procedure sets the remote_file_update_cmplt !
903 ! flag, and the program is terminated. If the request is not sent!
904 ! out, set the flag here and return to the main procedure. !
905 !----------------------------------------------------------------!
906
907 IF status <> ZAPS^VAL^STATUS^OK THEN
908 BEGIN
909 remote_file_update_cmplt := TRUE;
910 END;
911 RETURN;
912 END;
913
914 !--------------------------------------------------------------------!
915 ! Check to make sure that FTAM-2 is returned as negotiated !
916 ! contents-type-list. If it is available, set the contents-type !
917 ! to be used later in the FTM_FILE_OPEN_REQ_ call. If it is not, !
918 ! this application aborts the association. !
919 !--------------------------------------------------------------------!
920
921 IF ( contents_type_list.zcntnts^type^list[0].zcntntstype.zobj^id =
922 [1,0,8571,5,2] ) THEN
923 BEGIN
924 contents_type.zid := ZFTM^VAL^CNTNTSTYPE^DOCTYPE;
925 contents_type.zdoctype.zdoctypename.znum^elements := 5;
926 contents_type.zdoctype.zdoctypename.zobj^id ':=' [1,0,8571,5,2];
927 contents_type.zdoctype.zuniversalclassispresent := ZAPS^VAL^PRESENT;
928 contents_type.zdoctype.zuniversalclass := ZFTM^VAL^UC^GRAPHIC^STRING;
929 contents_type.zdoctype.zmaxstringlenispresent := ZAPS^VAL^PRESENT;
930 contents_type.zdoctype.zmaxstringlen := $dbl (MAX_READ_COUNT);
931 contents_type.zdoctype.zstringsigispresent := ZAPS^VAL^PRESENT;
932 contents_type.zdoctype.zstringsig := ZFTM^VAL^STRINGSIG^NOTSIG;
933