OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-78
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
856 , responding_appl
857 , ! remote_ae_title !
858 , service_class
859 , func_units
860 , ! attr_groups !
861 , contents_type_list
862 , diag );
863
864 CALL check_error;
865
866 !--------------------------------------------------------------------!
867 ! Check the state result and the action result. !
868 !--------------------------------------------------------------------!
869
870 CALL check_action_diag;
871 IF ( state_result = ZFTM^VAL^STATE^FAILURE ) THEN
872 BEGIN
873 CALL bad_state;
874 END;
875
876 !--------------------------------------------------------------------!
877 ! Check to make sure that the requested functional units have not !
878 ! been negotiated down from what was requested. If the requested !
879 ! functional units are not available, this application aborts the !
880 ! association. !
881 !--------------------------------------------------------------------!
882
883 IF ( func_units.zread <> ZAPS^VAL^TRUE OR
884 func_units.zwrite <> ZAPS^VAL^TRUE OR
885 func_units.zgroup <> ZAPS^VAL^TRUE OR
886 func_units.zfileaccess <> ZAPS^VAL^TRUE ) THEN
887 BEGIN
888 tempbuf ':=' "Functional Units unavailable for the association"
889 -> @text_ptr;
890 text_len := @text_ptr - @tempbuf;
891 CALL WRITE ( termnum, outbuf, text_len );
892
893 action_result := ZFTM^VAL^ACTION^FAILURE;
894