OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-163
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
76
77 !-----------------------------------------------------------------------!
78 ! Source in the FTM and APS structure definitions and literals from !
79 ! the appropriate volume and subvolume. !
80 !-----------------------------------------------------------------------!
81
82 ?nolist, source zftmtal ! FTM DDL !
83 ?list
84 ?nolist, source zapstal ! APS DDL !
85 ?list
86 ?NOMAP
87 ?NOCODE
88 !-----------------------------------------------------------------------!
89 ! Global data declarations !
90 !-----------------------------------------------------------------------!
91
92 !-----------------------------------------------------------------------!
93 ! Macro for word addressing !
94 !-----------------------------------------------------------------------!
95
96 DEFINE SADDR( x ) = (@x '<<' 1)#; ! String address of word object !
97
98 !-----------------------------------------------------------------------!
99 ! Miscellaneous literals !
100!-----------------------------------------------------------------------!
101
102 LITERAL ANYEVENT = -1; ! Wait for receipt of any FTAM event !
103 LITERAL MAX_BUF = 1000; ! Buffer size used for receiving data !
104 LITERAL NOCEPI = -1; ! Uninitialized or invalid CEPI !
105 LITERAL WAIT_FOREVER = -1D; ! Wait indefinitely for FTAM event !
106 LITERAL NUM_ELEM = 5; ! No. of elements in ae-title/doc-type!
107 LITERAL BASE = 10; ! Base parameter for Guardian DNUMOUT !
108
109 LITERAL FALSE = 0; ! Implies false condition !
110 LITERAL TRUE = 1; ! Implies true condition !
111
112 !----------------------------------------------------------------------!
113 ! Environment-specific fields !
114 ! !