OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-176
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
583 ! not available, discard the association and exit. Additional !
584 ! application-specific error handling or recovery could be !
585 ! implemented if required by an application. !
586 !------------------------------------------------------------------!
587 IF ( src_func_units.zread <> ZAPS^VAL^TRUE OR
588 src_func_units.zfilemgmt <> ZAPS^VAL^TRUE OR
589 src_func_units.zgroup <> ZAPS^VAL^TRUE ) THEN
590 BEGIN
591 tempbuf ':=' "Functional units unavailable on source association"
592 -> @text_ptr;
593 text_len := @text_ptr - @tempbuf;
594 CALL WRITE ( termnum, outbuf, text_len );
595
596 CALL abort_discard;
597 CALL STOP;
598 END;
599
600 !------------------------------------------------------------------!
601 ! Verify that the attribute groups have not been negotiated down !
602 ! from what was requested. If the requested attribute groups are !
603 ! not available, discard the association and exit. Additional !
604 ! application-specific error handling or recovery could be !
605 ! implemented if required by an application. !
606 !------------------------------------------------------------------!
607 IF ( src_attr_groups.zstorage <> ZAPS^VAL^TRUE OR
608 src_attr_groups.zsecurity <> ZAPS^VAL^TRUE ) THEN
609 BEGIN
610 tempbuf ':=' "Attribute groups unavailable on source association"
611 -> @text_ptr;
612 text_len := @text_ptr - @tempbuf;
613 CALL WRITE ( termnum, outbuf, text_len );
614
615 CALL abort_discard;
616 CALL STOP;
617 END;
618
619 !------------------------------------------------------------------!
620 ! Establish the destination-file FTAM regime. !
621 !------------------------------------------------------------------!