DataMuseum.dk

top - download

    Length: 2089 (0x829)
    Types: TextFile
    Notes: @(#)Form.save 13.2 (RC International) 91/09/12
    Names: »Form.save«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/edmenu/Form.save« 

TextFile

#	@(#)Form.save	13.2 (RC International) 91/09/12

#ident	"@(#)oamintf:edsysadm/Form.save	1.4"

################################################################################
#	Module Name: Form.save
#	Date: March 1988
#
#	ARGS PASSED IN:
#			ARG1 -> menu/task flag
#			ARG2 -> package description file name
#			ARG3 -> menu/task name
#			ARG4 -> menu/task description
#			ARG5 -> menu/task location
#			ARG6 -> menu/task help
#			ARG7 -> task action file (TASK ONLY)
#			ARG8 -> comma separated task files (TASK ONLY)
#			ARG9 -> original location (LOCATION:NAME)
#
#	ARGS PASSED OUT:
#			ARG1 -> menu/task flag
#			ARG2 -> package description file name
#			ARG3 -> menu/task name
#			ARG4 -> menu/task description
#			ARG5 -> menu/task location
#			ARG6 -> menu/task help
#			ARG7 -> task action file (TASK ONLY)
#			ARG8 -> comma separated task files (TASK ONLY)
#			ARG9 -> original location (LOCATION:NAME)
#			RET  -> error return code (Install choice ONLY)
################################################################################
form="Save Changes"

framemsg=`readfile $INTFBASE/form.msg`

help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO

done=`
	message "Please Wait - Installing online changes in the Interface";
	mkchgs $ARG1 $ARG3 $ARG4 $ARG5 $ARG6 $ARG7 $ARG8 >/dev/null;
	if [ $RET = 0 ];
	then
		set -l KEYCMD="OPEN TEXT $EDSYSADM/Text.success \"$ARG1\"
	        \"$ARG3\" \"$ARG4\" \"$ARG5\" \"$ARG6\" \"$ARG7\" \"$ARG8\"";
	else if [ $RET = 1 ];
             then 
		set -l KEYCMD="OPEN FORM $EDSYSADM/Form.collision \"$ARG1\"
	        \"$ARG3\" \"$ARG4\" \"$ARG5\" \"$ARG6\" \"$ARG7\" \"$ARG8\"";
	     else
		set -l KEYCMD="OPEN TEXT $EDSYSADM/Text.mkchgerr \"$RET\"";
	     fi;
	fi;`$!KEYCMD

name=""
nrow=1
ncol=3
frow=1
fcol=3
rows=1
columns=60
value=const "Press SAVE to install !"
inactive=true

name=""
lininfo=Form.save:save
nrow=4
ncol=1
frow=4
fcol=25
rows=1
columns=7
value="install"
rmenu={ install }
menuonly=true

invalidmsg=const "Error: Only install is valid."
choicemsg=const "Enter install (install on-line)."

name=RESET
button=8
action=reset