OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-183
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
856 attr_names.zlastreaderid := ZAPS^VAL^FALSE;
857 attr_names.zlastattrmodid := ZAPS^VAL^FALSE;
858 attr_names.zfilesize := ZAPS^VAL^FALSE;
859
860 ! security group !
861 !------------------------------------------------------------------!
862 ! Set access control to ZAPS^VAL^TRUE. !
863 !------------------------------------------------------------------!
864
865 attr_names.zaccesscntrl := ZAPS^VAL^TRUE;
866
867 !------------------------------------------------------------------!
868 ! Set the remaining security attribute to ZAPS^VAL^FALSE. !
869 !------------------------------------------------------------------!
870
871 attr_names.zlegalqualif := ZAPS^VAL^FALSE;
872
873
874 ! private attributes group is not supported !
875 attr_names.zprivateuse := ZAPS^VAL^FALSE;
876
877 !------------------------------------------------------------------!
878 ! Initialize the parameters for the FTM_OPEN_REQ_ procedure call. !
879 !------------------------------------------------------------------!
880
881 !------------------------------------------------------------------!
882 ! Set up the processing mode to perform a read action on the file. !
883 !------------------------------------------------------------------!
884
885 process_mode.zread := ZAPS^VAL^TRUE;
886 process_mode.zinsert := ZAPS^VAL^FALSE;
887 process_mode.zreplace := ZAPS^VAL^FALSE;
888 process_mode.zextend := ZAPS^VAL^FALSE;
889 process_mode.zerase := ZAPS^VAL^FALSE;
890
891
892 !------------------------------------------------------------------!
893 ! Initialize the threshold for the begin-group request to indicate !
894 ! that all three services (select, read-attributes, and open) must !