OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-67
Writing a File: TAL Programming Example
973
974 !------------------------------------------------------------------!
975 ! Terminate the file-selection and file-open regimes. !
976 !------------------------------------------------------------------!
977
978
979 !------------------------------------------------------------------!
980 ! Issue a close request for the remote file. !
981 !------------------------------------------------------------------!
982
983 !------------------------------------------------------------------!
984 ! Initialize the threshold for the begin-group request to indicate !
985 ! that close service must be successful for the group to succeed. !
986 !------------------------------------------------------------------!
987
988 threshold := 2D;
989
990 status := FTM_BEGIN_GROUP_REQ_ ( cepi, threshold );
991 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
992 CALL check_status;
993
994 status := FTM_CLOSE_REQ_ ( cepi );
995 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
996 CALL check_status;
997
998 status := FTM_DESELECT_REQ_ ( cepi );
999 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
1000 CALL check_status;
1001
1002 error := FTM_END_GROUP_REQ_ ( cepi );
1003 IF ( error <> ZAPS^ERR^OK ) THEN
1004 CALL check_error;
1005
1006 !------------------------------------------------------------------!
1007 ! Call the following procedures to process the confirms returned !
1008 ! in response to each request. The begin-group and end-group !
1009 ! requests do not have separate confirm procedures, but they do !
1010 ! have confirms returned. Call get_event for each. !
1011 !------------------------------------------------------------------!