OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-56
Writing a File: TAL Programming Example
544 !-------------------------------------------------------------------!
545 ! Select the file attribute groups required. !
546 !-------------------------------------------------------------------!
547
548 attr_groups.zstorage := ZAPS^VAL^TRUE;
549 attr_groups.zsecurity := ZAPS^VAL^TRUE;
550 attr_groups.zprivate := ZAPS^VAL^FALSE;
551
552 !------------------------------------------------------------------!
553 ! Select the functional units required. !
554 !------------------------------------------------------------------!
555
556 func_units.zread := ZAPS^VAL^FALSE;
557 func_units.zwrite := ZAPS^VAL^TRUE;
558 func_units.zfileaccess := ZAPS^VAL^FALSE;
559 func_units.zfilemgmt := ZAPS^VAL^TRUE;
560 func_units.zfilemgmtenhanced := ZAPS^VAL^FALSE;
561 func_units.zgroup := ZAPS^VAL^TRUE;
562 func_units.zfadulock := ZAPS^VAL^FALSE;
563 func_units.zrecovery := ZAPS^VAL^FALSE;
564 func_units.zrestart := ZAPS^VAL^FALSE;
565
566 !------------------------------------------------------------------!
567 ! Set up the contents-type-list to request a document of !
568 ! of type FTAM-1 through ftam_doc_type. !
569 !------------------------------------------------------------------!
570
571 contents_type_list.zcount := 1;
572 contents_type_list.zcntnts^type^ispresent := ZAPS^VAL^PRESENT;
573 contents_type_list.zcntnts^type^list[0].zid:=ZFTM^VAL^CNTNTSLIST^DOCNAME;
574 contents_type_list.zcntnts^type^list[0].zcntntstype.znum^elements
575 := NUM_ELEM;
576 contents_type_list.zcntnts^type^list[0].zcntntstype.zobj^id
577 ':=' ftam_doc_type FOR NUM_ELEM WORDS;
578
579 !------------------------------------------------------------------!
580 ! Set the initiator ID for the association. !
581 !------------------------------------------------------------------!
582