OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-173
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
466 src_ae_title.zae^title^type := zaps^val^ae^title^format2;
467 src_ae_title.zae^title^format2.zae^qualifier^ispresent :=
468 ZAPS^VAL^PRESENT;
469 src_ae_title.zae^title^format2.zae^qualifier := src_ae_qualifier;
470 src_ae_title.zae^title^format2.zap^title.znum^elements := NUM_ELEM;
471 src_ae_title.zae^title^format2.zap^title.zobj^id ':='
472 src_ap_title FOR NUM_ELEM WORDS;
473
474
475 !------------------------------------------------------------------!
476 ! Select the functional units required of the source system for !
477 ! moving the file: read, limited file management (required to read !
478 ! files, file attributes, and delete files), and grouping !
479 ! (required for the file-transfer service class). !
480 !------------------------------------------------------------------!
481
482 func_units.zread := ZAPS^VAL^TRUE;
483 func_units.zwrite := ZAPS^VAL^FALSE;
484 func_units.zfileaccess := ZAPS^VAL^FALSE;
485 func_units.zfilemgmt := ZAPS^VAL^TRUE;
486 func_units.zfilemgmtenhanced := ZAPS^VAL^FALSE;
487 func_units.zgroup := ZAPS^VAL^TRUE;
488 func_units.zfadulock := ZAPS^VAL^FALSE;
489 func_units.zrecovery := ZAPS^VAL^FALSE;
490 func_units.zrestart := ZAPS^VAL^FALSE;
491
492 !------------------------------------------------------------------!
493 ! Select the required attribute groups. Since this application !
494 ! reads the source-file attributes, all supported groups !
495 ! are selected. (The private group is not supported.) !
496 !------------------------------------------------------------------!
497
498 attr_groups.zstorage := ZAPS^VAL^TRUE;
499 attr_groups.zsecurity := ZAPS^VAL^TRUE;
500 attr_groups.zprivate := ZAPS^VAL^FALSE;
501
502 !------------------------------------------------------------------!
503 ! Set up the contents-type-list to request a document of !
504 ! type FTAM-3. !