OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-54
Writing a File: TAL Programming Example
466 !------------------------------------------------------------------!
467 ! The following sections initialize the various parameters !
468 ! for the FTM_INITIALIZE_REQ_ procedure. !
469 !------------------------------------------------------------------!
470
471 !------------------------------------------------------------------!
472 ! Set the wait mode for the association to wait. !
473 !------------------------------------------------------------------!
474
475 wait_mode := ZAPS^VAL^WAITED;
476
477 !------------------------------------------------------------------!
478 ! Set the APLMGR name for the association. !
479 !------------------------------------------------------------------!
480
481 aplmgr_name.zb ':=' manager_name FOR $occurs(manager_name) BYTES;
482
483 !------------------------------------------------------------------!
484 ! Set the remote appl for the association. !
485 !------------------------------------------------------------------!
486
487 responding_appl.zpsap.zpsel.zlen := 0;
488 responding_appl.zpsap.zssel.zlen := 0;
489 responding_appl.zpsap.ztsel.zlen := 0;
490 responding_appl.zpsap.znsap.zlen := 0;
491
492 responding_appl.zappl^name.zlen := $occurs(responding_appl_name);
493 responding_appl.zappl^name.zb ':=' responding_appl_name FOR
494 responding_appl.zappl^name.zlen BYTES;
495
496 !------------------------------------------------------------------!
497 ! Set the local appl for the association. !
498 !------------------------------------------------------------------!
499
500 local_appl.zpsap.zpsel.zlen := 0;
501 local_appl.zpsap.zssel.zlen := 0;
502 local_appl.zpsap.ztsel.zlen := 0;
503 local_appl.zpsap.znsap.zlen := 0;
504