OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-67
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
427 responding_appl.zappl^name.zlen BYTES;
428
429 local_appl.zpsap.zpsel.zlen := 0;
430 local_appl.zpsap.zssel.zlen := 0;
431 local_appl.zpsap.ztsel.zlen := 0;
432 local_appl.zpsap.znsap.zlen := 0;
433 local_appl.zappl^name.zlen := $occurs(local_appl_name);
434 local_appl.zappl^name.zb ':=' local_appl_name FOR
435 local_appl.zappl^name.zlen BYTES;
436
437 !--------------------------------------------------------------------!
438 ! Select the service class/classes required. This application needs !
439 ! only the file-access service class. The file-access service class !
440 ! allows insertion of data into a structured file. !
441 !--------------------------------------------------------------------!
442
443 service_class.zunconstrained := ZAPS^VAL^FALSE;
444 service_class.zmgmt := ZAPS^VAL^FALSE;
445 service_class.ztransfer := ZAPS^VAL^FALSE;
446 service_class.zxfermgmt := ZAPS^VAL^FALSE;
447 service_class.zaccess := ZAPS^VAL^TRUE;
448
449 !--------------------------------------------------------------------!
450 ! Select the functional units required by this application. The !
451 ! following functional units are mandatory for the file-access !
452 ! service class: read, write, and file-access. !
453 ! !
454 ! Also, the FTM_FILE_OPEN_REQ_ and FTM_FILE_CLOSE_REQ_ procedures !
455 ! require that you select the grouping functional unit. !
456 !--------------------------------------------------------------------!
457
458 func_units.zread := ZAPS^VAL^TRUE;
459 func_units.zwrite := ZAPS^VAL^TRUE;
460 func_units.zfileaccess := ZAPS^VAL^TRUE;
461 func_units.zfilemgmt := ZAPS^VAL^FALSE;
462 func_units.zfilemgmtenhanced := ZAPS^VAL^FALSE;
463 func_units.zgroup := ZAPS^VAL^TRUE;
464 func_units.zfadulock := ZAPS^VAL^FALSE;
465 func_units.zrecovery := ZAPS^VAL^FALSE;