OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-63
Writing a File: TAL Programming Example
817 ZAPS^VAL^TRUE;
818 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zinsert :=
819 ZAPS^VAL^FALSE;
820 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zreplace :=
821 ZAPS^VAL^TRUE;
822 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zextend :=
823 ZAPS^VAL^TRUE;
824 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zerase :=
825 ZAPS^VAL^TRUE;
826 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zreadattr :=
827 ZAPS^VAL^TRUE;
828 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zchngattr :=
829 ZAPS^VAL^TRUE;
830 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zdelete :=
831 ZAPS^VAL^TRUE;
832 initial_attr.zaccesscntrlattr.zaccesscntrl.zconcurrencyispresent :=
833 ZAPS^VAL^ABSENT;
834 initial_attr.zaccesscntrlattr.zaccesscntrl.zidentityispresent :=
835 ZAPS^VAL^ABSENT;
836 initial_attr.zaccesscntrlattr.zaccesscntrl.zpasswdsispresent :=
837 ZAPS^VAL^ABSENT;
838 initial_attr.zaccesscntrlattr.zaccesscntrl.zlocationispresent :=
839 ZAPS^VAL^ABSENT;
840 initial_attr.zlegalqualifispresent := ZAPS^VAL^ABSENT;
841 END
842 ELSE
843 BEGIN
844 initial_attr.zaccesscntrlattrispresent := ZAPS^VAL^ABSENT;
845 initial_attr.zlegalqualifispresent := ZAPS^VAL^ABSENT;
846 END;
847
848 !------------------------------------------------------------------!
849 ! Specify that the application is to delete the named file if it !
850 ! exists and create a new file using the attributes specified in !
851 ! the initial_attr parameter. Set the create_password also. !
852 !------------------------------------------------------------------!
853
854 override := ZFTM^VAL^OVR^CREATE^NEW;
855