OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-55
Writing a File: TAL Programming Example
505 local_appl.zappl^name.zlen := $occurs(local_appl_name);
506 local_appl.zappl^name.zb ':=' local_appl_name FOR
507 local_appl.zappl^name.zlen BYTES;
508
509 !------------------------------------------------------------------!
510 ! Set the local AE title for the association. !
511 !------------------------------------------------------------------!
512
513 local_ae_title.zae^title^type := ZAPS^VAL^AE^TITLE^FORMAT2;
514 local_ae_title.zae^title^format2.zae^qualifier^ispresent
515 := ZAPS^VAL^PRESENT;
516 local_ae_title.zae^title^format2.zae^qualifier := local_ae_qualifier;
517 local_ae_title.zae^title^format2.zap^title.znum^elements := NUM_ELEM;
518 local_ae_title.zae^title^format2.zap^title.zobj^id
519 ':=' local_ap_title FOR NUM_ELEM WORDS;
520
521 !------------------------------------------------------------------!
522 ! Set the remote AE title for the association. !
523 !------------------------------------------------------------------!
524
525 remote_ae_title.zae^title^type := ZAPS^VAL^AE^TITLE^FORMAT2;
526 remote_ae_title.zae^title^format2.zae^qualifier^ispresent
527 := ZAPS^VAL^PRESENT;
528 remote_ae_title.zae^title^format2.zae^qualifier := remote_ae_qualifier;
529 remote_ae_title.zae^title^format2.zap^title.znum^elements := NUM_ELEM;
530 remote_ae_title.zae^title^format2.zap^title.zobj^id
531 ':=' remote_ap_title FOR NUM_ELEM WORDS;
532
533 !------------------------------------------------------------------!
534 ! Select the service class/classes required. This application !
535 ! needs only the file-transfer service class. !
536 !------------------------------------------------------------------!
537
538 service_class.zunconstrained := ZAPS^VAL^FALSE;
539 service_class.zmgmt := ZAPS^VAL^FALSE;
540 service_class.ztransfer := ZAPS^VAL^TRUE;
541 service_class.ZXFERMGMT := ZAPS^VAL^FALSE;
542 service_class.zaccess := ZAPS^VAL^FALSE;
543