OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-57
Writing a File: TAL Programming Example
583 initiator_id.zlen := $occurs(init_id);
584 initiator_id.zb ':=' init_id FOR initiator_id.zlen BYTES;
585
586 !------------------------------------------------------------------!
587 ! Set the account for the association. !
588 !------------------------------------------------------------------!
589
590 account.zlen := $occurs(acct);
591 account.zb ':=' acct FOR account.zlen BYTES;
592
593 !------------------------------------------------------------------!
594 ! Set the filestore password for the association. !
595 !------------------------------------------------------------------!
596
597 filestore_password.zlen := $occurs(filestore_pw);
598filestore_password.zb ':=' filestore_pw FOR filestore_password.zlen BYTES;
599
600 !------------------------------------------------------------------!
601 ! Request the association. !
602 !-------------------------------------------------------------------!
603
604 status := FTM_INITIALIZE_REQ_ ( cepi
605 , aplmgr_name
606 , responding_appl
607 , wait_mode
608 , local_appl
609 , local_ae_title
610 , remote_ae_title
611 , service_class
612 , func_units
613 , attr_groups
614 , contents_type_list
615 , initiator_id
616 , account
617 , filestore_password );
618
619 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
620 BEGIN
621 tempbuf ':=' "FTM_INITIALIZE_REQ_ FAILED" -> @text_ptr;