1 /* ***********************************************************
2 * *
3 * Copyright, C Honeywell Information Systems Inc., 1983 *
4 * *
5 *********************************************************** */
6
7 /* This is the argument processing definition source language for the
8 close description of the mtape_ IBM Per-Format module. This may be
9 compiled with the mtape_$mtape_cv_apd command and the binary result
10 will be stored in the specified value segment data space with the
11 name of mtape_.close.ibm. The syntax of the command line to perform
12 this task would be:
13
14 mtape_$mtape_cv_apd mtape_.close.ibm.mapd -target <value_seg_path>
15
16 where <value_seg_path> is the pathname of the desired value segment
17 which will be created if it does not exist. If no "-target" control
18 arg is given, then the binary definition is stored in the users
19 default value segment home_dir>user name.value.
20
21 Modification history:
22
23 Created by J. A. Bush 03/31/83
24 */
25 Program_name: mtape_.close.ibm;
26
27 Default_linear_form: "-close_position leave -no_display";
28
29 Option: close_position;
30 Option_name: -close_position, -cls_pos;
31 First_argument: close_position;
32 Argument: close_position;
33 Presence: required;
34 Validate: "or equal lowercase &r1 bof eof leave";
35 Validate_explanation: "Acceptable values for the ""-close_position""",
36 " control argument are ""bof"", ""eof"", or",
37 " ""leave"".";
38
39 Option: comment;
40 Option_name: -comment, -com;
41 First_argument: comment;
42 Argument: comment;
43 Presence: required;
44 Validate: "nless length &r1 81";
45 Validate_explanation: "The comment text may not exceed 80 characters",
46 " in length.";
47
48 Option: display;
49 Option_name: -display, -ds;
50 Antonym: -no_display, -nds;
51 Argument: flag;
52 Default_value: "true";
53 Antonym_value: "false";
54
55 End;