OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-46
Writing a File: TAL Programming Example
155 STRUCT .EXT initiator_id ( ZAPS^DDL^CHAR32^DEF );
156 STRUCT .EXT account ( ZAPS^DDL^CHAR32^DEF );
157 STRUCT .EXT filestore_password ( ZAPS^DDL^CHAR32^DEF );
158 STRUCT .EXT create_password ( ZAPS^DDL^CHAR32^DEF );
159 STRUCT .EXT local_ae_title ( ZAPS^DDL^AE^TITLE^DEF );
160 STRUCT .EXT remote_ae_title ( ZAPS^DDL^AE^TITLE^DEF );
161 STRUCT .EXT charging ( ZFTM^DDL^CHARGING^DEF );
162
163
164 !---------------------------------------------------------------------!
165 ! Variables used for startup-message processing !
166 !---------------------------------------------------------------------!
167
168 STRUCT .STARTUP;
169 BEGIN
170 INT msg_code;
171 INT default_vol [0:7];
172 INT infile [0:11];
173 INT outfile [0:11];
174 STRING params [0:131];
175 END;
176
177 INT .receive [0:11] := ["$RECEIVE",8*[" "]];
178
179 !---------------------------------------------------------------------!
180 ! Variables used for local terminal-I/O processing !
181 !---------------------------------------------------------------------!
182
183 INT fn := -1;
184 INT termname [0:11];
185 INT termnum;
186 INT outnum;
187 INT text_len;
188 INT .outbuf [0:133];
189 STRING .tempbuf := SADDR(outbuf);
190 STRING .text_ptr;
191
192
193 !---------------------------------------------------------------------!