OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-58
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
76
77 ?nolist, source zftmtal ! FTM DDL !
78 ?list
79 ?nolist, source zapstal ! APS DDL !
80 ?list
81 ?nocode
82 ?nomap
83
84 !-----------------------------------------------------------------------!
85 ! Global data declarations !
86 !-----------------------------------------------------------------------!
87
88 !-----------------------------------------------------------------------!
89 ! Macro for word addressing !
90 !-----------------------------------------------------------------------!
91
92 DEFINE SADDR( x ) = (@x '<<' 1)#; ! String address of word object !
93
94 !-----------------------------------------------------------------------!
95 ! Nowait I/O tags !
96 !-----------------------------------------------------------------------!
97
98 LITERAL ABORT_TAG = 1; ! User-abort request tag !
99 LITERAL DATA_TAG = 2; ! FTM data request tag !
100 LITERAL DATAEND_TAG = 3; ! FTM data-end request tag !
101 LITERAL EVENTREC_TAG = 4; ! APS event-receive req. tag !
102 LITERAL FILECLOSE_TAG = 5; ! FTM file-close req. tag !
103 LITERAL FILEOPEN_TAG = 6; ! FTM file-open req. tag !
104 LITERAL INITIALIZE_TAG = 7; ! FTM initialize req. tag !
105 LITERAL TERMINATE_TAG = 8; ! FTM terminate request tag !
106 LITERAL TRANSFEREND_TAG = 9; ! FTM transfer-end req. tag !
107 LITERAL WRITE_TAG = 10; ! FTM write request tag !
108 LITERAL READ_TAG = 11; ! Guardian read tag !
109
110 !----------------------------------------------------------------------!
111 ! Miscellaneous literals !
112 !----------------------------------------------------------------------!
113
114 LITERAL NOCEPI = -1; ! Indicates no valid CEPI !