OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-84
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1090 !------------------------------------------------------------------!
1091
1092 fadu_op := ZFTM^VAL^FADU^OP^INSERT;
1093
1094 !-----------------------------------------------------------------!
1095 ! Specify the target FADU identity. Records can be inserted !
1096 ! only at the end of an FTAM-2 file. !
1097 !-----------------------------------------------------------------!
1098
1099 fadu_id.zid := ZFTM^VAL^FADUID^BEGINEND;
1100 fadu_id.zbeginend := ZFTM^VAL^FADUID^END;
1101
1102 !-----------------------------------------------------------------!
1103 ! Issue the write-request primitive. !
1104 !-----------------------------------------------------------------!
1105
1106 status := FTM_WRITE_REQ_ ( cepi
1107 , fadu_op
1108 , fadu_id
1109 , $dbl (WRITE_TAG) );
1110
1111 CALL check_status;
1112
1113 END; --- open_cnf_write_req ---
1114
1115
1116 ?PAGE "subproc TRANSEND_CNF_CLOSE_REQ"
1117 !--------------------------------------------------------------------!
1118 ! !
1119 ! Name: transend_cnf_close_req !
1120 ! !
1121 ! Description: This subprocedure is called when a transfer-end !
1122 ! confirm is received. It calls FTM_TRANSFER_END_CNF_ !
1123 ! and checks the error status and state result. It !
1124 ! then calls FTM_FILE_CLOSE_REQ_ and returns to the !
1125 ! calling routine. !
1126 ! !
1127 ! Input: Transfer-end confirm !
1128 ! !