OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-174
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
505 !------------------------------------------------------------------!
506
507 contents_type_list.zcount := 1;
508 contents_type_list.zcntnts^type^ispresent := ZAPS^VAL^PRESENT;
509contents_type_list.zcntnts^type^list[0].zid:= ZFTM^VAL^CNTNTSLIST^DOCNAME;
510 contents_type_list.zcntnts^type^list[0].zcntntstype.znum^elements
511 := NUM_ELEM;
512 contents_type_list.zcntnts^type^list[0].zcntntstype.zobj^id ':='
513 ftam_doc_type FOR NUM_ELEM WORDS;
514
515 !------------------------------------------------------------------!
516 ! Initialize the initiator-ID, filestore-password, and account !
517 ! parameters according to the requirements of the remote system. !
518 ! The initialization shown here is for example only. !
519 !------------------------------------------------------------------!
520
521 initiator_id.zlen := $occurs (init_id);
522 initiator_id.zb ':=' init_id FOR initiator_id.zlen BYTES;
523 filestore_password.zlen := $occurs (password);
524 filestore_password.zb ':=' password FOR filestore_password.zlen BYTES;
525 account.zlen := $occurs (charge_account);
526 account.zb ':=' charge_account FOR account.zlen BYTES;
527
528 status := FTM_INITIALIZE_REQ_ ( src_cepi
529 , aplmgr_name
530 , src_appl
531 , wait_mode
532 , local_appl
533 , ae_title
534 , src_ae_title
535 , ! service_class defaults to transfer !
536 , func_units
537 , attr_groups
538 , contents_type_list
539 , initiator_id
540 , account
541 , filestore_password );
542
543 CALL check_status ( src_cepi );