OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-172
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
427 !------------------------------------------------------------------!
428
429 src_appl.zpsap.zpsel.zlen := 0;
430 src_appl.zpsap.zssel.zlen := 0;
431 src_appl.zpsap.ztsel.zlen := 0;
432 src_appl.zpsap.znsap.zlen := 0;
433 src_appl.zappl^name.zlen := $occurs(src_appl_name);
434 src_appl.zappl^name.zb ':=' src_appl_name FOR
435 src_appl.zappl^name.zlen BYTES;
436
437 dst_appl.zpsap.zpsel.zlen := 0;
438 dst_appl.zpsap.zssel.zlen := 0;
439 dst_appl.zpsap.ztsel.zlen := 0;
440 dst_appl.zpsap.znsap.zlen := 0;
441 dst_appl.zappl^name.zlen := $occurs(dst_appl_name);
442 dst_appl.zappl^name.zb ':=' dst_appl_name FOR
443 dst_appl.zappl^name.zlen BYTES;
444
445 local_appl.zpsap.zpsel.zlen := 0;
446 local_appl.zpsap.zssel.zlen := 0;
447 local_appl.zpsap.ztsel.zlen := 0;
448 local_appl.zpsap.znsap.zlen := 0;
449 local_appl.zappl^name.zlen := $occurs (local_appl_name);
450 local_appl.zappl^name.zb ':=' local_appl_name FOR
451 local_appl.zappl^name.zlen BYTES;
452
453 !------------------------------------------------------------------!
454 ! The ae_title and src_ae_title parameters are optional parameters !
455 ! supplied for example only. !
456 !------------------------------------------------------------------!
457
458 ae_title.zae^title^type := zaps^val^ae^title^format2;
459 ae_title.zae^title^format2.zae^qualifier^ispresent :=
460 ZAPS^VAL^PRESENT;
461 ae_title.zae^title^format2.zae^qualifier := ae_qualifier;
462 ae_title.zae^title^format2.zap^title.znum^elements := NUM_ELEM;
463 ae_title.zae^title^format2.zap^title.zobj^id ':='
464 ap_title FOR NUM_ELEM WORDS;
465