OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-64
Writing a File: TAL Programming Example
856 create_password.zlen := filestore_password.zlen;
857 create_password.zb ':=' filestore_password.zb FOR
858 create_password.zlen BYTES;
859
860 !------------------------------------------------------------------!
861 ! Set the requested_access parameter to provide this application !
862 ! with replace access on the remote file. !
863 !------------------------------------------------------------------!
864
865 requested_access.zread := ZAPS^VAL^FALSE;
866 requested_access.zinsert := ZAPS^VAL^FALSE;
867 requested_access.zreplace := ZAPS^VAL^TRUE;
868 requested_access.zextend := ZAPS^VAL^FALSE;
869 requested_access.zerase := ZAPS^VAL^FALSE;
870 requested_access.zreadattr := ZAPS^VAL^FALSE;
871 requested_access.zchngattr := ZAPS^VAL^FALSE;
872 requested_access.zdelete := ZAPS^VAL^FALSE;
873
874 !------------------------------------------------------------------!
875 ! Initialize parameters for the FTM_OPEN_REQ_ procedure call. !
876 !------------------------------------------------------------------!
877
878 !------------------------------------------------------------------!
879 ! Set up the processing mode to perform a read action on the file. !
880 !------------------------------------------------------------------!
881
882 process_mode.zread := ZAPS^VAL^FALSE;
883 process_mode.zinsert := ZAPS^VAL^FALSE;
884 process_mode.zreplace := ZAPS^VAL^TRUE;
885 process_mode.zextend := ZAPS^VAL^FALSE;
886 process_mode.zerase := ZAPS^VAL^FALSE;
887
888
889 !------------------------------------------------------------------!
890 ! Initialize the threshold for the begin-group request to indicate !
891 ! that both the services (select and open) must be successful for !
892 ! the group to succeed. !
893 !------------------------------------------------------------------!
894