DataMuseum.dk

top - download

    Length: 1114 (0x45a)
    Types: TextFile
    Notes: @(#)Form.chgmenu 13.1 (RC International) 91/07/25
    Names: »Form.chgmenu«

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

TextFile

#	@(#)Form.chgmenu	13.1 (RC International) 91/07/25

#ident	"@(#)oamintf:edsysadm/Form.chgmenu	1.5"

################################################################################
#	Module Name: Form.chgmenu
#
#	ARGS PASSED OUT:
#			  ARG1 -> chgmenu flag
################################################################################
form="Change a Menu"

framemsg=`readfile $INTFBASE/form.msg`

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

done=`if [ "$F2" = "on-line" ] ;
      then
	set -l KEYCMD="OPEN FORM $EDSYSADM/Form.select chgmenu" ;
      else
		if [ "$F2" = "packaged" ];
		then
			set -l KEYCMD="OPEN FORM $EDSYSADM/Form.getpkg chgmenu";
		fi ;
      fi`$KEYCMD

name=""
nrow=1
ncol=3
frow=1
fcol=3
rows=1
columns=40
value=const "Do you want to change an on-line menu"
inactive=true

name="or a menu saved for packaging?"
lininfo=Form.chgmenu:chgmenu
nrow=2
ncol=3
frow=2
fcol=34
rows=1
columns=8

rmenu={ on-line packaged }
menuonly=true

invalidmsg=const "Error: Choices available are on-line or packaged."
choicemsg=const "Enter 'on-line' or 'packaged'." 

name=RESET
button=8
action=reset