OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-187
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1012 initial_attr.zcntntstypevalue.zdoctype.zstringsig
1013 := file_attr.zcntntstypevalue.zdoctype.
1014 zstringsig;
1015 initial_attr.zcntntstypevalue.zdoctype.zfileattrsispresent
1016 := ZAPS^VAL^ABSENT;
1017
1018 ! Storage group !
1019 initial_attr.zstorageaccountispresent := ZAPS^VAL^ABSENT;
1020 initial_attr.zfileavlbltyattrispresent := ZAPS^VAL^PRESENT;
1021 initial_attr.zfileavlbltyattr.zid := ZFTM^VAL^ATTR^ISPRESENT;
1022initial_attr.zfileavlbltyattr.zfileavlblty := ZFTM^VAL^FILEAVLBLTY^IMMED;
1023 initial_attr.zfuturefilesizeispresent := ZAPS^VAL^PRESENT;
1024 initial_attr.zfuturefilesize.zid := ZFTM^VAL^ATTR^ISPRESENT;
1025 initial_attr.zfuturefilesize.zfilesize := file_attr.
1026 zfuturefilesize.zfilesize;
1027
1028 ! Security Group !
1029 initial_attr.zaccesscntrlattrispresent := ZAPS^VAL^PRESENT;
1030
1031 !------------------------------------------------------------------!
1032 ! Set the next two attributes to allow write and change-attribute !
1033 ! capabilities during the move. The procedure applies the !
1034 ! original attributes that were read from the source file to the !
1035 ! destination file after the move is complete. !
1036 !------------------------------------------------------------------!
1037
1038 initial_attr.zaccesscntrlattr.zid := ZFTM^VAL^ATTR^ISPRESENT;
1039 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zreplace :=
1040 ZAPS^VAL^TRUE;
1041 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zchngattr :=
1042 ZAPS^VAL^TRUE;
1043 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zread :=
1044 ZAPS^VAL^TRUE;
1045 initial_attr.zaccesscntrlattr.zaccesscntrl.zactionlist.zdelete :=
1046 ZAPS^VAL^TRUE;
1047 initial_attr.zaccesscntrlattr.zaccesscntrl.zconcurrencyispresent :=
1048 ZAPS^VAL^ABSENT;
1049 initial_attr.zaccesscntrlattr.zaccesscntrl.zidentityispresent :=
1050 ZAPS^VAL^ABSENT;