OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-62
Writing a File: TAL Programming Example
778 initial_attr.zpermittedactions.zreadattr := ZAPS^VAL^TRUE;
779 initial_attr.zpermittedactions.zchngattr := ZAPS^VAL^TRUE;
780 initial_attr.zpermittedactions.zdeletefile := ZAPS^VAL^TRUE;
781 initial_attr.zpermittedactions.ztraversal := ZAPS^VAL^FALSE;
782 initial_attr.zpermittedactions.zreversetraversal := ZAPS^VAL^FALSE;
783 initial_attr.zpermittedactions.zrandom := ZAPS^VAL^FALSE;
784 initial_attr.zcntntstypevalue ':=' contents_type
785 FOR $len( ZFTM^DDL^CNTNTS^TYPE^DEF ) BYTES;
786
787 ! Storage group !
788 IF ( attr_groups.zstorage = ZAPS^VAL^TRUE ) THEN
789 BEGIN
790 initial_attr.zstorageaccountispresent := ZAPS^VAL^ABSENT;
791 initial_attr.zfileavlbltyattrispresent := ZAPS^VAL^PRESENT;
792 initial_attr.zfileavlbltyattr.zid := ZFTM^VAL^ATTR^ISPRESENT;
793 initial_attr.zfileavlbltyattr.zfileavlblty := ZFTM^VAL^FILEAVLBLTY^IMMED;
794 initial_attr.zfuturefilesizeispresent := ZAPS^VAL^PRESENT;
795 initial_attr.zfuturefilesize.zid := ZFTM^VAL^ATTR^ISPRESENT;
796 initial_attr.zfuturefilesize.zfilesize := max_filesize;
797 END
798 ELSE
799 BEGIN
800 initial_attr.zstorageaccountispresent := ZAPS^VAL^ABSENT;
801 initial_attr.zfileavlbltyattrispresent := ZAPS^VAL^ABSENT;
802 initial_attr.zfuturefilesizeispresent := ZAPS^VAL^ABSENT;
803 END;
804
805 ! Security Group !
806 IF ( attr_groups.zsecurity = ZAPS^VAL^TRUE ) THEN
807 BEGIN
808 initial_attr.zaccesscntrlattrispresent := ZAPS^VAL^PRESENT;
809
810 !----------------------------------------------------------------!
811 ! Set the next two attributes to allow write and change-attribute!
812 ! capabilities during the create. !
813 !----------------------------------------------------------------!
814
815 initial_attr.zaccesscntrlattr.zid := ZFTM^VAL^ATTR^ISPRESENT;
816 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zread :=