1 :Info: get_ec_version_: 1982-08-05  get_ec_version_
 2 
 3 
 4 Entry points in get_ec_version_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: get_ec_version_: 1982-08-03  get_ec_version_
 9 
10 Function: returns the version number of an exec_com, and the character
11 position of the first character after the &version statement, if any.
12 
13 
14 Syntax:
15 dcl get_ec_version_ entry (char (*), char (*), fixed bin, fixed bin
16      (21), fixed bin (35));
17 call get_ec_version_ (dn, en, version, text_pos, code);
18 
19 
20 Arguments:
21 dn
22    is the directory containing the exec_com.  (Input)
23 en
24    is the name of the exec_com.  (Input)
25 version
26    is the version number of the exec_com.  (Output)
27 text_pos
28    is the character position of the first character following the
29    &version statement, if any, or 1.  (Output)
30 code
31    is a standard status code.  (Output)
32 
33 
34 Access required:
35 The user must have read access on the exec_com.
36 
37 
38 :hcom:
39 
40 
41 
42 /****^  HISTORY COMMENTS:
43   1) change(2020-04-24,GDixon), approve(2021-02-22,MCR10088),
44      audit(2021-05-27,Swenson), install(2021-05-27,MR12.6g-0056):
45      Correct entrypoint name in :Entry: get_version_ header line.
46                                                    END HISTORY COMMENTS */
47 
48 
49