OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-44
Writing a File: TAL Programming Example
77 STRING .EXT init_id[0:5] := "initid";
78 STRING .EXT filestore_pw[0:2] := "aaa";
79 STRING .EXT acct[0:4] := "12345";
80 STRING .EXT manager_name[0:23] := "$APMGR ";
81 STRING .EXT remote_file_name[0:21] := "$VOLUME.SUBVOL.REMOTEF";
82 STRING local_file_name[0:20] := "$VOLUME.SUBVOL.LOCALF";
83
84 INT .EXT ftam_doc_type[0:NUM_ELEM-1] := [1,0,8571,5,1];
85 INT .EXT local_ap_title[0:NUM_ELEM-1] := [1,3,9999,1,7];
86 INT .EXT remote_ap_title[0:NUM_ELEM-1] := [1,3,9999,1,7];
87
88 INT (32) local_ae_qualifier := 0d;
89 INT (32) remote_ae_qualifier := 1d;
90 INT (32) max_string_len := 134d;
91 INT (32) uc_char_string := ZFTM^VAL^UC^IA5^STRING;
92
93
94 !---------------------------------------------------------------------!
95 ! Miscellaneous variables !
96 !---------------------------------------------------------------------!
97
98 INT cepi := NOCEPI; ! CEPI for remote file connection !
99 INT wait_mode; ! Wait or nowait I/O !
100 INT(32) threshold; ! Error threshold used in groups !
101 INT(32) max_filesize; ! See FILEINFO call !
102 INT event; ! FTAM event code !
103 INT width; ! Used in DNUMOUT calls !
104 INT i := 0; ! Indexing !
105 INT EOF_flag := 0; ! See read^file call !
106 INT local_file[0:11]; ! Local file in internal format !
107
108
109 !---------------------------------------------------------------------!
110 ! Error-handling variables !
111 !---------------------------------------------------------------------!
112
113 INT status; ! Used for I/O request calls !
114 INT error; ! Used for confirm calls !
115 INT error_code; ! Returns error number !