OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-82
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1012 process_mode.zextend := ZAPS^VAL^FALSE;
1013 process_mode.zerase := ZAPS^VAL^FALSE;
1014
1015 !--------------------------------------------------------------------!
1016 ! Issue the file-open request. !
1017 !--------------------------------------------------------------------!
1018
1019 status := FTM_FILE_OPEN_REQ_ ( cepi
1020 , remote_file
1021 , file_status
1022 , requested_access
1023 , ! access_passwords !
1024 , ! initial_attr !
1025 , ! create_password !
1026 , process_mode
1027 , contents_type
1028 , ! account !
1029 , $dbl (FILEOPEN_TAG) );
1030
1031 CALL check_status;
1032
1033 END; --- init_cnf_open_req ---
1034
1035
1036
1037 ?PAGE "subproc OPEN_CNF_WRITE_REQ"
1038 !---------------------------------------------------------------------!
1039 ! !
1040 ! Name: open_cnf_write_req !
1041 ! !
1042 ! Description: This subprocedure is called when a file-open !
1043 ! confirm is received. It calls FTM_FILE_OPEN_CNF_ !
1044 ! and checks the error status and state result. It !
1045 ! then calls FTM_WRITE_REQ and returns to the calling !
1046 ! routine. !
1047 ! !
1048 ! Input: File-select/open confirm !
1049 ! !
1050 ! Output: Write request sent to remote responder !