OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-186
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
973
974 !------------------------------------------------------------------!
975 ! Use the FTM_CREATE_REQ_ and FTM_OPEN_REQ_ procedure calls to !
976 ! create and open the file on the destination system. Send these !
977 ! two requests out as a group. Initialize all necessary parameters !
978 ! for the create and open procedures. !
979 !------------------------------------------------------------------!
980
981 !------------------------------------------------------------------!
982 ! Initialize the parameters for the call to FTM_CREATE_REQ_. !
983 !------------------------------------------------------------------!
984
985
986 !------------------------------------------------------------------!
987 ! Set up the initial file attributes for the file to be created. !
988 !------------------------------------------------------------------!
989
990 ! Kernel Group !
991 initial_attr.zfilename.zlen := $occurs (dst_filename);
992 initial_attr.zfilename.zb ':=' dst_filename FOR
993 initial_attr.zfilename.zlen BYTES;
994 initial_attr.zpermittedactions ':=' file_attr.zpermittedactions
995 FOR 1 ELEMENTS;
996 initial_attr.zcntntstypevalue.zid := ZFTM^VAL^CNTNTSTYPE^DOCTYPE;
997 initial_attr.zcntntstypevalue.zdoctype.zdoctypename.znum^elements
998 := NUM_ELEM;
999 initial_attr.zcntntstypevalue.zdoctype.zdoctypename.zobj^id
1000 ':=' ftam_doc_type FOR NUM_ELEM WORDS;
1001 initial_attr.zcntntstypevalue.zdoctype.zuniversalclassispresent
1002 := ZAPS^VAL^ABSENT;
1003 initial_attr.zcntntstypevalue.zdoctype.zmaxstringlenispresent
1004 := file_attr.zcntntstypevalue.zdoctype.
1005 zmaxstringlenispresent;
1006 initial_attr.zcntntstypevalue.zdoctype.zmaxstringlen
1007 := file_attr.zcntntstypevalue.zdoctype.
1008 zmaxstringlen;
1009 initial_attr.zcntntstypevalue.zdoctype.zstringsigispresent
1010 := file_attr.zcntntstypevalue.zdoctype.
1011 zstringsigispresent;