



		    mtape_set_defaults.mapd         12/12/84  1046.2r w 12/12/84  1045.1       17874



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
          mtape_set_defaults command.  This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
          will be stored in the data space of the specified value segment.
	The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_set_defaults.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

          Created by S. Krupp 09/83.
*/


Program_name:		mtape_set_defaults;
Default_linear_form:	"-pathname >udd>[user project]>[user name]>[user name].value";
Initial_implied_option:	operation;

Option:			operation;
  Option_name:		-operation, -opn;
  First_argument:		operation_value;
Argument:			operation_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			volume_type;
  Option_name:		-volume_type, -vt;
  First_argument:		volume_type_value;
Argument:			volume_type_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			pathname;
  Option_name:		-pathname, -pn;
  First_argument:		pathname_value;
Argument:			pathname_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			default_arguments;
  Option_name:		-argument, -arguments, -ag;
  Unexclude:		default_arguments;
  First_argument:		default_argument_values;
Argument:			default_argument_values;
  Presence:		required;
  Force_literal:		;
  Next_argument:		default_argument_values;

End;




		    mtape_get_defaults.mapd         12/12/84  1046.2r w 12/12/84  1045.1       16947



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
          mtape_get_defaults command.  This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
          will be stored in the data space of the specified value segment.
	The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_get_defaults.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

          Created by S. Krupp 09/83.
*/


Program_name:                 mtape_get_defaults;
Default_linear_form:	"-use_search_list";
Initial_implied_option:	operation;

Option:			operation;
  Option_name:		-operation, -opn;
  First_argument:		operation_value;
Argument:			operation_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			volume_type;
  Option_name:		-volume_type, -vt;
  First_argument:		volume_type_value;
Argument:			volume_type_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			pathname;
  Option_name:		-pathname, -pn;
  Exclude:                    use_search_list;
  First_argument:		pathname_value;
Argument:			pathname_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			use_search_list;
  Option_name:		-use_search_list, -usl;
  Exclude:                    pathname;
Argument:			flag;
  Default_value:		"true";

End;




		    mtape_delete_defaults.mapd      12/12/84  1046.2r w 12/12/84  1045.1       15624



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
          mtape_delete_defaults command.  This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
          will be stored in the data space of the specified value segment.
	The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_delete_defaults.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

          Created by S. Krupp 09/83.
*/


Program_name:                 mtape_delete_defaults;
Default_linear_form:	"-pathname >udd>[user project]>[user name]>[user name].value";
Initial_implied_option:	operation;

Option:			operation;
  Option_name:		-operation, -opn;
  First_argument:		operation_value;
Argument:			operation_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			volume_type;
  Option_name:		-volume_type, -vt;
  First_argument:		volume_type_value;
Argument:			volume_type_value;
  Next_argument:		NONE;
  Presence:		required;

Option:			pathname;
  Option_name:		-pathname, -pn;
  First_argument:		pathname_value;
Argument:			pathname_value;
  Next_argument:		NONE;
  Presence:		required;

End;




		    mtape_.attach.mapd              12/12/84  1046.2r w 12/12/84  1045.1       44991



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	attach description of the mtape_ I/O module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.attach. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.attach.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/

Program_name:		mtape_.attach;

Default_linear_form:	"-density 1600 -device 1 -default_volume_type ansi",
			" -track 9 -wait_time 10 -error -label -no_display",
			" -no_ring -no_system -no_wait";

Initial_implied_option:       volume;

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment;
 Argument:		comment;
   Presence:		required;
   Validate:		"nless [length &r1]  65";
   Validate_explanation:	"The comment text must not exceed 64 characters",
			" in length.";

Option:			default_volume_type;
  Option_name:		-default_volume_type, -dvt;
  First_argument:		default_volume_type;
 Argument:		default_volume_type;
   Presence:		required;
   Validate:		"nless [length &r1] 22";
   Validate_explanation:	"The default_volume_type specification must not",
			" exceed 21 characters in length.";

Option:			density;
  Option_name:		-density, -den;
  First_argument:		density;
 Argument:		density;
   Presence:		required;
   Validate:		"or [nequal (200 556 800 1600 6250) &r1]";
   Validate_explanation:	"Valid density values are 200, 556, 800, 1600",
			" and 6250 only.";

Option:			device;
  Option_name:		-device, -dv;
  First_argument:		device;
 Argument:		device;
   Presence:		required;
   Validate:		"and [ngreater &r1 0] [nless &r1 64]";
   Validate_explanation:	"From 1 to 63 devices only may be specified.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			error;
  Option_name:		-error, -err;
  Antonym:		-no_error, -nerr;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			label;
  Option_name:		-label, -lbl;
  Antonym:		-no_labels, -no_label, -nlbl;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			ring;
  Option_name:		-ring, -rg;
  Antonym:		-no_ring, -nrg;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			speed;
  Option_name:		-speed, -ips;
  First_argument:		speed;
 Argument:		speed;
   Presence:		required;
   Validate:		"or [equal (75 125 200 75,125 75,200 75,125,200",
			" 75,200,125 125,75 125,200 125,75,200 125,200,75",
			" 200,75 200,125 200,75,125 200,125,75) &r1]";
   Validate_explanation:	"Acceptable speed values are 75, 125 and 200. If",
			" more than 1 speed is to be specified,",
			" additional speeds must be indicated in a comma",
			" seperated list (e.g. ""-speed 125,200"").";

Option:			system;
  Option_name:		-system, -sys;
  Antonym:		-no_system, -nsys;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			track;
  Option_name:		-track, -tk;
  First_argument:		track;
 Argument:		track;
   Presence:		required;
   Validate:		"or [nequal (7 9) &r1]";
   Validate_explanation:	"Values for the ""-track"" option may be either",
			" 7 or 9 only.";

Option:			volume;
  Option_name:		-volume, -vol;
  Unexclude:		volume;
  First_argument:		volume;
 Argument:		volume;
   Presence:		required;
   Force_literal:		;
   Next_argument:		NONE;
   Validate:		"nless [length &r1]  33";
   Validate_explanation:	"Volume name specifications must not exceed 32",
			" characters in length.";

Option:			volume_type;
  Option_name:		-volume_type, -vt;
  First_argument:		volume_type;
 Argument:		volume_type;
   Presence:		required;
   Validate:		"nless [length &r1]  22";
   Validate_explanation:	"The volume_type specification must not",
			" exceed 21 characters in length.";

Option:			wait;
  Option_name:		-wait, -wt;
  Antonym:		-no_wait, -nwt;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			wait_time;
  Option_name:		-wait_time, -wtm;
  First_argument:		wait_time;
 Argument:		wait_time;
   Presence:		required;
   Validate:		"and [ngreater &r1 0] [nless &r1 1441]";
   Validate_explanation:	"The wait_time value must be in the range of",
			" 1 to 1440 minutes (24 hours).";

End;







		    mtape_.close.ansi.mapd          12/12/84  1046.2r w 12/12/84  1045.1       17505



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	close description of the mtape_ ANSI Per-Format module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.close.ansi. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.close.ansi.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/

Program_name:		mtape_.close.ansi;

Default_linear_form:	"-close_position leave -no_display";

Option:			close_position;
  Option_name:		-close_position, -cls_pos;
  First_argument:		close_position;
 Argument:		close_position;
   Presence:		required;
   Validate:		"or [equal [lowercase &r1] (bof eof leave)]";
   Validate_explanation:	"Acceptable values for the ""-close_position""",
			" control argument are ""bof"", ""eof"", or",
			" ""leave"".";

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment;
 Argument:		comment;
   Presence:		required;
   Validate:		"nless [length &r1] 81";
   Validate_explanation:	"The comment text may not exceed 80 characters",
			" in length.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

End;




		    mtape_.close.ibm.mapd           12/12/84  1046.2r w 12/12/84  1045.2       17460



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	close description of the mtape_ IBM Per-Format module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.close.ibm. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.close.ibm.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/
Program_name:		mtape_.close.ibm;

Default_linear_form:	"-close_position leave -no_display";

Option:			close_position;
  Option_name:		-close_position, -cls_pos;
  First_argument:		close_position;
 Argument:		close_position;
   Presence:		required;
   Validate:		"or [equal [lowercase &r1] (bof eof leave)]";
   Validate_explanation:	"Acceptable values for the ""-close_position""",
			" control argument are ""bof"", ""eof"", or",
			" ""leave"".";

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment;
 Argument:		comment;
   Presence:		required;
   Validate:		"nless [length &r1] 81";
   Validate_explanation:	"The comment text may not exceed 80 characters",
			" in length.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

End;




		    mtape_.detach.mapd              12/12/84  1046.2r w 12/12/84  1045.2       15309



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	detach description of the mtape_ I/O module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.detach. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.detach.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/

Program_name:		mtape_.detach;

Default_linear_form:	"-no_display -rewind";

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment;
 Argument:		comment;
   Presence:		required;
   Validate:		"nless [length &r1] 65";
   Validate_explanation:	"The comment text may not exceed 64 characters",
			" in length.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			rewind;
  Option_name:		-rewind, -rew;
  Antonym:		-unload, -unld;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

End;




		    mtape_.open.ansi.mapd           12/12/84  1046.2r w 12/12/84  1045.2       79308



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	open description of the mtape_ ANSI Per-Format module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.open.ansi. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.open.ansi.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/

Program_name:		mtape_.open.ansi;

Default_linear_form:	"-block 2048 -format db -mode ascii",
			" -default_fixed_record 80 -default_variable_record 2048",
			" -default_spanned_record 1044480 -no_buffer_offset",
			" -next_file -no_display -no_force -no_generate";

Validate_result:		"   if [exists argument &(record)] -then",
			" ""   [if [or [equal (u f d fb db) [lowercase &(format)]]] -then",
			" """"     [if [not [ngreater &(record) &(block)]] -then",
			"              true",
			"          -else false] """" ",
			"      -else true] "" ",
			"   -else true";

Validate_result_explanation:	"The specified record length (&(record)) for ANSI ""&(format)"" format,",
			" cannot be greater than the specified block length (&(block)).";

Validate_result:		"   if [not [exists argument &(record)]] -then",
			" ""   [if [or [equal (u f fb) [lowercase &(format)]]] -then",
			" """"     [if [not [ngreater &(default_fix_rlen) &(block)]] -then",
			"              true",
			"          -else false] """" ",
			"      -else true] "" ",
			"   -else true";

Validate_result_explanation:	"The specified default fixed record length (&(default_fix_rlen))",
			" for ANSI ""&(format)"" format, cannot be greater than the",
			" specified block length (&(block)).";

Validate_result:		"    if [not [exists argument &(record)]] -then",
			" ""    [if [or [equal (d db) [lowercase &(format)]]] -then",
			" """"      [if [not [ngreater &(default_var_rlen) &(block)]] -then",
			"               true",
			"           -else false] """" ",
			"       -else true] "" ",
			"    -else true";

Validate_result_explanation:	"The specified default variable record length (&(default_var_rlen))",
			" for ANSI ""&(format)"" format, cannot be greater than the",
			" specified block length (&(block)).";

Option:			append;
  Option_name:		-append, -app;
  Exclude:		extend, pfm_opt_sw_1, last_file, modify, next_file;
  Antonym:		-no_append, -napp;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			block;
  Option_name:		-block, -bk;
  First_argument:		block_length;
 Argument:		block_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 99997]";
   Validate_explanation:	"The block length value must not be less than",
			" 18 characters, nor greater than 99996",
			" characters.";

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment_text;
 Argument:		comment_text;
   Presence:		required;
   Validate:		"nless [length &r1] 81";
   Validate_explanation:	"The comment text may not exceed 80 characters",
			" in length.";

Option:			default_fix_rlen;
  Option_name:		-default_fixed_record, -dfr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 99997]";
   Validate_explanation:	"Default fixed record lengths must fall in the",
			" range of 18 to 99996 characters.";

Option:			default_span_rlen;
  Option_name:		-default_spanned_record, -dsr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 1044481]";
   Validate_explanation:	"Default spanned record lengths must fall in the",
			" range of 18 to 1044480 characters.";

Option:			default_var_rlen;
  Option_name:		-default_variable_record, -dvr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 99997]";
   Validate_explanation:	"Default variable record lengths must fall in the",
			" range of 18 to 99996 characters.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			expires;
  Option_name:		-expires, -exp;
  First_argument:		expiration_date;
 Argument:		expiration_date;
   Presence:		required;
   Validate:		"date_time_valid &r1";
   Validate_explanation:	"The expiration date value given is not",
			" acceptable to the convert_date_to_binary_",
			" subroutine.";

Option:			extend;
  Option_name:		-extend, -ext;
  Exclude:		append, pfm_opt_sw_1, modify;
  Antonym:		-no_extend, -next;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			force;
  Option_name:		-force, -fc;
  Antonym:		-no_force, -nfc;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			format;
  Option_name:		-format, -fmt;
  First_argument:		file_format;
 Argument:		file_format;
   Presence:		required;
   Validate:		"or [equal (u f d s fb db sb) [lowercase &r1]]";
   Validate_explanation:	"Acceptable file format specifications are",
			" ""u"", ""f"", ""d"", ""s"", ""fb"", ""db"",",
			" and ""sb"" only.";

Option:			pfm_opt_sw_1;
  Option_name:		-generate, -gen;
  Exclude:		append, extend, modify;
  Antonym:		-no_generate, -ngen;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			pfm_opt_sw_2;
  Option_name:		-buffer_offset, -bo;
  Antonym:		-no_buffer_offset, -nbo;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			label_entry;
  Option_name:		-label_entry, -lbe;
  First_argument:		external_entry;
 Argument:		external_entry;
   Presence:		required;
   Validate:		"not [on active_function_error ""nothing"" -bf ""nothing [wh &r1]""]";
   Validate_explanation:	"Could not find the ""&(label_entry)"" label",
			" entry using the current object search rules.";
 
Option:			last_file;
  Option_name:		-last_file, -lf;
  Exclude:		append, next_file, name, number;
  Antonym:		-not_last_file, -nlf;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			mode;
  Option_name:		-mode, -md;
  First_argument:		recording_mode;
 Argument:		recording_mode;
   Presence:		required;
   Validate:		"or [equal (ascii ebcdic binary bin) [lowercase &r1]]";
   Validate_explanation:	"Acceptable recording mode values are ""ascii"",",
			" ""ebcdic"", ""binary"", or ""bin"" only.";

Option:			modify;
  Option_name:		-modify, -mod;
  Exclude:		append, extend, pfm_opt_sw_1;
  Antonym:		-no_modify, -nmod;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			name;
  Option_name:		-name, -nm;
  Exclude:		next_file, last_file, replace;
  First_argument:		file_name;
 Argument:		file_name;
   Presence:		required;
   Validate:		"nless [length &r1] 33";
   Validate_explanation:	"File name specifications may not exceed 32",
			" characters in length.";

Option:			next_file;
  Option_name:		-next_file, -nf;
  Exclude:		append, last_file, number, name;
  Antonym:		-not_next_file, -nnf;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			number;
  Option_name:		-number, -nb;
  Exclude:		next_file, last_file;
  First_argument:		sequence_number;
 Argument:		sequence_number;
   Presence:		required;
   Validate:		"and [ngreater &r1 0] [nless &r1 10000]";
   Validate_explanation:	"Valid file sequence numbers must be in the",
			" range of 1 to 99999.";

Option:			record;
  Option_name:		-record, -rec;
  Exclude:		default_fix_rlen, default_span_rlen, default_var_rlen;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 1044481]";
   Validate_explanation:	"Valid record lengths must fall in the range of",
			" 18 to 1044480 characters.";

Option:			replace;
  Option_name:		-replace, -rpl;
  Exclude:		name, next_file, last_file;
  First_argument:		file_name;
 Argument:		file_name;
   Presence:		required;
   Validate:		"nless [length &r1] 33";
   Validate_explanation:	"The length of the replacement id file name",
			" must not exceed 32 characters.";

End;




		    mtape_.open.ibm.mapd            12/12/84  1046.2r w 12/12/84  1045.2       81153



/* ***********************************************************
   *                                                         *
   * Copyright, (C) Honeywell Information Systems Inc., 1983 *
   *                                                         *
   *********************************************************** */

/*	This is the argument processing definition source language for the
	open description of the mtape_ IBM Per-Format module. This may be
	compiled with the mtape_$mtape_cv_apd command and the binary result
	will be stored in the specified value segment data space with the 
	name of mtape_.open.ibm. The syntax of the command line to perform
	this task would be:

	mtape_$mtape_cv_apd mtape_.open.ibm.mapd -target <value_seg_path>

	where <value_seg_path> is the pathname of the desired value segment
	which will be created if it does not exist. If no "-target" control 
	arg is given, then the binary definition is stored in the users
	default value segment ([home_dir]>[user name].value).

	Modification history:

	Created by J. A. Bush 03/31/83
*/

Program_name:		mtape_.open.ibm;

Default_linear_form:	"-block 8192 -format vb -mode ebcdic",
			" -default_fixed_record 80 -default_variable_record 8192",
			" -default_spanned_record 1044480",
			" -next_file -no_display -no_force -not_dos -no_system_use";

Validate_result:		"   if [or [equal (v vb vs vbs) [lowercase &(format)]]] -then",
			" ""   [if [nless &(block) 32761] -then",
			"          true",
			"      -else false] "" ",
			"   -else true";

Validate_result_explanation:	"The specified block length (&(block)) for IBM ""&(format)"" format,",
			" is greater than the maximum of 32760 bytes.";


Validate_result:		"   if [exists argument &(record)] -then",
			" ""   [if [or [equal (u f v fb vb) [lowercase &(format)]]] -then",
			" """"     [if [not [ngreater &(record) &(block)]] -then",
			"              true",
			"          -else false] """" ",
			"      -else true] "" ",
			"   -else true";

Validate_result_explanation:	"The specified record length (&(record)) for IBM ""&(format)"" format,",
			" cannot be greater than the specified block length (&(block)).";

Validate_result:		"   if [not [exists argument &(record)]] -then",
			" ""   [if [or [equal (u f fb) [lowercase &(format)]]] -then",
			" """"     [if [not [ngreater &(default_fix_rlen) &(block)]] -then",
			"              true",
			"          -else false] """" ",
			"      -else true] "" ",
			"   -else true";

Validate_result_explanation:	"The specified default fixed record length (&(default_fix_rlen))",
			" for IBM ""&(format)"" format, cannot be greater than the",
			" specified block length (&(block)).";

Validate_result:		"    if [not [exists argument &(record)]] -then",
			" ""    [if [or [equal (v vb) [lowercase &(format)]]] -then",
			" """"      [if [not [ngreater &(default_var_rlen) &(block)]] -then",
			"               true",
			"           -else false] """" ",
			"       -else true] "" ",
			"    -else true";

Validate_result_explanation:	"The specified default variable record length (&(default_var_rlen))",
			" for IBM ""&(format)"" format, cannot be greater than the",
			" specified block length (&(block)).";

Option:			append;
  Option_name:		-append, -app;
  Exclude:		extend, last_file, modify, next_file;
  Antonym:		-no_append, -napp;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			block;
  Option_name:		-block, -bk;
  First_argument:		block_length;
 Argument:		block_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 99997]";
   Validate_explanation:	"The block length value must not be less than",
			" 18 characters, nor greater than 99996",
			" characters.";

Option:			comment;
  Option_name:		-comment, -com;
  First_argument:		comment_text;
 Argument:		comment_text;
   Presence:		required;
   Validate:		"nless [length &r1] 81";
   Validate_explanation:	"The comment text may not exceed 80 characters",
			" in length.";

Option:			default_fix_rlen;
  Option_name:		-default_fixed_record, -dfr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 99997]";
   Validate_explanation:	"Default fixed record lengths must fall in the",
			" range of 18 to 99996 characters.";

Option:			default_span_rlen;
  Option_name:		-default_spanned_record, -dsr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 1044481]";
   Validate_explanation:	"Default spanned record lengths must fall in the",
			" range of 18 to 1044480 characters.";

Option:			default_var_rlen;
  Option_name:		-default_variable_record, -dvr;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 32761]";
   Validate_explanation:	"Default variable record lengths must fall in the",
			" range of 18 to 32760 characters.";

Option:			display;
  Option_name:		-display, -ds;
  Antonym:		-no_display, -nds;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			pfm_opt_sw_1;
  Option_name:		-dos;
  Antonym:		-ndos, -not_dos;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			pfm_opt_sw_2;
  Option_name:		-system_use, -sys_use;
  Antonym:		-no_system_use, -nsys_use;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			expires;
  Option_name:		-expires, -exp;
  First_argument:		expiration_date;
 Argument:		expiration_date;
   Presence:		required;
   Validate:		"date_time_valid &r1";
   Explanation:		"The expiration date value given is not",
			" acceptable to the convert_date_to_binary_",
			" subroutine.";

Option:			extend;
  Option_name:		-extend, -ext;
  Exclude:		append, modify;
  Antonym:		-no_extend, -next;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			force;
  Option_name:		-force, -fc;
  Antonym:		-no_force, -nfc;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			format;
  Option_name:		-format, -fmt;
  First_argument:		file_format;
 Argument:		file_format;
   Presence:		required;
   Validate:		"or [equal (u f v vs fb vb vbs) [lowercase &r1]]";
   Explanation:		"Acceptable file format specifications are",
			" ""u"", ""f"", ""v"", ""vs"", ""fb"", ""vb"",",
			" and ""vbs"" only.";

Option:			label_entry;
  Option_name:		-label_entry, -lbe;
  First_argument:		external_entry;
 Argument:		external_entry;
   Presence:		required;
   Validate:		"not [on active_function_error ""nothing"" -bf ""nothing [wh &r1]""]";
   Explanation:		"Could not find the ""&(label_entry)"" label",
			" entry using the current object search rules.";
 
Option:			last_file;
  Option_name:		-last_file, -lf;
  Exclude:		append, next_file, name, number;
  Antonym:		-not_last_file, -nlf;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			mode;
  Option_name:		-mode, -md;
  First_argument:		recording_mode;
 Argument:		recording_mode;
   Presence:		required;
   Validate:		"or [equal (ascii ebcdic binary bin) [lowercase &r1]]";
   Explanation:		"Acceptable recording mode values are ""ascii"",",
			" ""ebcdic"", ""binary"", or ""bin"" only.";

Option:			modify;
  Option_name:		-modify, -mod;
  Exclude:		append, extend;
  Antonym:		-no_modify, -nmod;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			name;
  Option_name:		-name, -nm;
  Exclude:		next_file, last_file, replace;
  First_argument:		file_name;
 Argument:		file_name;
   Presence:		required;
   Validate:		"nless [length &r1] 33";
   Explanation:		"File name specification may not exceed 32",
			" characters in length.";


Option:			next_file;
  Option_name:		-next_file, -nf;
  Exclude:		append, last_file, number, name;
  Antonym:		-not_next_file, -nnf;
 Argument:		flag;
   Default_value:		"true";
   Antonym_value:		"false";

Option:			number;
  Option_name:		-number, -nb;
  Exclude:		next_file, last_file;
  First_argument:		sequence_number;
 Argument:		sequence_number;
   Presence:		required;
   Validate:		"and [ngreater &r1 0] [nless &r1 10000]";
   Explanation:		"Valid file sequence numbers must be in the",
			" range of 1 to 99999.";

Option:			record;
  Option_name:		-record, -rec;
  Exclude:		default_fix_rlen, default_span_rlen, default_var_rlen;
  First_argument:		record_length;
 Argument:		record_length;
   Presence:		required;
   Validate:		"and [ngreater &r1 17] [nless &r1 1044481]";
   Validate_explanation:	"Valid record lengths must fall in the range of",
			" 18 to 1044480 characters.";

Option:			replace;
  Option_name:		-replace, -rpl;
  Exclude:		name, next_file, last_file;
  First_argument:		file_name;
 Argument:		file_name;
   Presence:		required;
   Validate:		"nless [length &r1] 33";
   Validate_explanation:	"The length of the replacement id file name",
			" must not exceed 32 characters.";

End;






		    bull_copyright_notice.txt       08/30/05  1008.4r   08/30/05  1007.3    00020025

                                          -----------------------------------------------------------


Historical Background

This edition of the Multics software materials and documentation is provided and donated
to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. 
as a contribution to computer science knowledge.  
This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology,
Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull
and Bull HN Information Systems Inc. to the development of this operating system. 
Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970),
renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership
of Professor Fernando Jose Corbato.Users consider that Multics provided the best software architecture for 
managing computer hardware properly and for executing programs. Many subsequent operating systems
incorporated Multics principles.
Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., 
as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .

                                          -----------------------------------------------------------

Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without
fee is hereby granted,provided that the below copyright notice and historical background appear in all copies
and that both the copyright notice and historical background and this permission notice appear in supporting
documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining
to distribution of the programs without specific prior written permission.
    Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc.
    Copyright 2006 by Bull HN Information Systems Inc.
    Copyright 2006 by Bull SAS
    All Rights Reserved
