COPGUAD Copy guard

This macro copies a guard.

You can copy the guards that you own. Users with the GUARD-ADMINISTRATION privilege can copy to their own or other IDs. Other users can only copy a guard they do not own when the SCOPE attribute (CREGUAD or MODGUAD) permits it.

RFA may be used only if both the source guard and the destination guard are locally accessible on the same computer.

Macro	Operanden
COPGUAD	MF = D / L / C / M / E ,PREFIX = P / <name 1> ,MACID = ROO / <name 3> ,PARAM = <name 1..8> ,FRNAME = <c-string: filename 1..24 without-gen-vers> / <var: char(24)> / (<reg: A(char(24))>) ,TONAME = <c-string: filename 1..24 without-gen-vers> / <var: char(24)> / (<reg: A(char(24))>) ,REPLACE = *NO / *YES / *DIALOG / <var: enum REPLACE> / (<reg: enum REPLACE>)

For a description of the parameters MF, PREFIX, MACID, PARAM see the “Executive Macros” manual [ 16 ].

FRNAME

Fully qualified name of the guard which is to be copied. Only uppercase characters may be used.

TONAME

Fully qualified new name for the guard. This name must be entered in uppercase letters. A guard may be copied only within the user’s own user ID. Since a user with the privilege GUARD-ADMINISTRATION owns all user IDs, he/she may copy a guard into any user ID.

REPLACE

specifies whether or not an existing guard with the new name is to be overwritten.

=*NO

If the destination guard already exists, it is not to be overwritten.

=*YES

Any existing guard with the specified new name is to be overwritten.

=*DIALOG

This value is effective only in dialog (interactive) mode. For batch mode, *NO is set. If there is already a guard with the specified new name, a dialog is started to permit the user to specify whether this guard is to be overwritten.

Macro return codes

SC2	SC1	Maincode	Meaning
	X’01’	X’1000’	The specified operand value lies outside the permitted range The invalid operand is stored as a symbolic value in SC2
	X’20’	X’1001’	An internal error has occurred. A SERSLOG entry has been written for further analysis
	X’40’	X’1002’	Syntax error in the guard name
	X’40’	X’1003’	Memory for the parameter area not allocated with the required length or not accessible
	X’40’	X’1006’	The specified guard already exists
	X’40’	X’1007’	The specified guard does not exist
	X’80’	X’1009’	The specified guard is locked by another task
	X’40’	X’1012’	The specified catalog is not defined or not accessible
	X’40’	X’1013’	The pubset is not known to the GUARDS administration (the guards catalog was probably not opened at IMPORT-PUBSET)
	X’40’	X’1014’	The user is not authorized to execute this function
	X’40’	X’1016’	Error in the MRS communication facility
	X’40’	X’1017’	Unknown user ID
	X’40’	X’1018’	The remote system is not available
	X’40’	X’1020’	No more memory space available
	X’40’	X’1021’	BCAM connection error
	X’40’	X’1022’	The BCAM connection has been interrupted
	X’40’	X’1024’	Use of the guard is not permitted
	X’40’	X’1025’	Copying from/to remote system is not possible
	X’40’	X’1029’	GUARDS is not available on the remote system
	X’80’	X’1036’	The guards catalog is locked