OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-191
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1168 CALL check_action_diag;
1169 CALL check_state;
1170
1171 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
1172 CALL get_event ( event, dst_cepi );
1173
1174 !------------------------------------------------------------------!
1175 ! Establish the source-file and destination-file data-transfer !
1176 ! regimes. !
1177 !------------------------------------------------------------------!
1178
1179 !------------------------------------------------------------------!
1180 ! Initialize the parameters for the FTM_WRITE_REQ_ and !
1181 ! FTM_READ_REQ_ procedures. !
1182 !------------------------------------------------------------------!
1183
1184 !------------------------------------------------------------------!
1185 ! Set the dst_fadu_op parameter to replace the destination-file !
1186 ! contents. !
1187 !------------------------------------------------------------------!
1188
1189 dst_fadu_op := ZFTM^VAL^FADU^OP^REPLACE;
1190
1191 !------------------------------------------------------------------!
1192 ! To establish a position at the beginning of an FTAM-3 type file, !
1193 ! specify a FADU of "first." !
1194 !------------------------------------------------------------------!
1195
1196 dst_fadu_id.zid := ZFTM^VAL^FADUID^FIRSTLAST;
1197 dst_fadu_id.zfirstlast := ZFTM^VAL^FADUID^FIRST;
1198
1199 src_fadu_id.zid := ZFTM^VAL^FADUID^FIRSTLAST;
1200 src_fadu_id.zfirstlast := ZFTM^VAL^FADUID^FIRST;
1201
1202 !------------------------------------------------------------------!
1203 ! The access context for an FTAM-3 file is always "unstructured !
1204 ! access." !
1205 !------------------------------------------------------------------!
1206