fte/config/m_rexx.fte

13     InsertString "/*";
14     LineNew; InsertString "* Filename: ";
15     InsertString $FileName;
16     LineNew; InsertString "*   Author: ";
17     LineNew; InsertString "*  Created: ";
19     LineNew; InsertString "*  Purpose: ";
20     LineNew; InsertString "*  Changes: ";
21     LineNew; InsertString "*/";
28     ?MoveBlockStart; InsertString "/* ";
29     ?MoveBlockEnd; InsertString " */"; BlockUnmark;
34     InsertString "/* Load RexxUtil Library */";
35     LineNew; InsertString "If RxFuncQuery('SysLoadFuncs') Then";
36     LineNew; InsertString "Do";
37     LineNew; InsertString "Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'";
38     LineNew; InsertString "Call SysLoadFuncs";
39     LineNew; InsertString "End";
45     InsertString "/* Load RxSock Library */";
46     LineNew; InsertString "If RxFuncQuery('SockLoadFuncs') Then";
47     LineNew; InsertString "Do";
48     LineNew; InsertString "Call RxFuncAdd 'SockLoadFuncs','RxSock','SockLoadFuncs'";
49     LineNew; InsertString "Call SockLoadFuncs";
50     LineNew; InsertString "End";
55     InsertString "/* Load RxFTP Library */";
56     LineNew; InsertString "If RxFuncQuery('FTPLoadFuncs') Then";
57     LineNew; InsertString "Do";
58     LineNew; InsertString "Call RxFuncAdd 'FTPLoadFuncs','RxFTP','FTPLoadFuncs'";
59     LineNew; InsertString "Call FTPLoadFuncs";
60     LineNew; InsertString "End";
67     InsertString "DO   [TO]  [BY]  [FOR] ";
69     InsertString "END";
77     InsertString "DO   [TO]  [BY]  [FOR]   UNTIL ";
79     InsertString "END";
87     InsertString "DO   [TO]  [BY]  [FOR]   WHILE ";
89     InsertString "END";
97     InsertString "DO FOREVER";
99     InsertString "END";
106     InsertString "IF   THEN";
108     InsertString "ELSE";
114     InsertString "SELECT";
115     LineNew; InsertString "WHEN   THEN";
116     LineNew; InsertString "/* instruction */";
117     LineNew; InsertString "WHEN   THEN";
118     LineNew; InsertString "/* instruction */";
119     LineNew; InsertString "WHEN   THEN";
120     LineNew; InsertString "/* instruction */";
121     LineNew; InsertString "OTHERWISE";
122     LineNew; InsertString "/* instruction */";
123     LineNew; InsertString "END"; LineNew;