OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-179
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
700 ! Verify that the functional units have not been negotiated down !
701 ! from what was requested. If the requested functional units are !
702 ! not available, discard both associations and exit. Additional !
703 ! application-specific error handling or recovery could be !
704 ! implemented if required by an application. !
705 !------------------------------------------------------------------!
706 IF ( dst_func_units.zwrite <> ZAPS^VAL^TRUE OR
707 dst_func_units.zgroup <> ZAPS^VAL^TRUE OR
708 dst_func_units.zfilemgmt <> ZAPS^VAL^TRUE OR
709 dst_func_units.zfilemgmtenhanced <> ZAPS^VAL^TRUE ) THEN
710 BEGIN
711 tempbuf ':=' "Functional units unavailable on destination association"
712 -> @text_ptr;
713 text_len := @text_ptr - @tempbuf;
714 CALL WRITE ( termnum, outbuf, text_len );
715
716 CALL abort_discard;
717 CALL STOP;
718 END;
719
720 !------------------------------------------------------------------!
721 ! Verify that the attribute groups have not been negotiated down !
722 ! from what was requested. If the requested attribute groups are !
723 ! not available, discard both associations and exit. Additional !
724 ! application-specific error handling or recovery could be !
725 ! implemented if required by an application. !
726 !------------------------------------------------------------------!
727 IF ( dst_attr_groups.zstorage <> ZAPS^VAL^TRUE OR
728 dst_attr_groups.zsecurity <> ZAPS^VAL^TRUE ) THEN
729 BEGIN
730 tempbuf ':=' "Attribute groups unavailable on destination association"
731 -> @text_ptr;
732 text_len := @text_ptr - @tempbuf;
733 CALL WRITE ( termnum, outbuf, text_len );
734
735 CALL abort_discard;
736 CALL STOP;
737 END;
738