OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-60
Writing a File: TAL Programming Example
700 ! attributed to the account. This parameter should be used only if !
701 ! the account parameter was used in the FTM_INITIALIZE_REQ_ call. !
702 ! The information returned in the charging parameter is not used !
703 ! in this example. !
704 !------------------------------------------------------------------!
705
706 error := FTM_TERMINATE_CNF_ ( cepi, charging );
707 IF ( error <> ZAPS^ERR^OK ) THEN
708 CALL check_error;
709
710 !------------------------------------------------------------------!
711 ! Discard the API context information for the association. !
712 !------------------------------------------------------------------!
713
714 status := APS_DISCARD_ ( cepi );
715 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
716 CALL check_status;
717
718 END; --- ftam_regime ---
719
720
721 ?PAGE "FILE_SELECTION_OPEN_REGIME"
722 !---------------------------------------------------------------------!
723 ! !
724 ! Name: file_selection_open_regime !
725 ! !
726 ! Description: This procedure establishes the file-selection and !
727 ! file-open regimes. It creates and opens the remote !
728 ! file.After calling the data_transfer_regime routine, !
729 ! it closes and deselects the remote file and gets !
730 ! out of the file-selection and open regimes. !
731 ! !
732 !---------------------------------------------------------------------!
733
734 PROC file_selection_open_regime;
735
736 BEGIN
737
738 !------------------------------------------------------------------!