Is this shell scripting language or what?
Sample:
format a 80
if $_repsh "g" =*
cshelp 11066253; // Grapevine MENUITEM &Sort/Create from Sort...
else
cshelp 21076548; // Axys MENUITEM "Portfolio Group/Sor&t..."
call Initialize
;when creating a group you can enter any combination of portfolios and groups
;when sorting a group, you must enter a single group
$wrtgrp n
$asdtxt Group sort utility. This utility sorts an existing portfolio group, or creates a new group, based on specific criteria.
DIALOG
ASCG_TEXT
ACC $dummy , ADDS_EDIT | ADDS_PORT , ,"&Group"
ACC $option, ADDS_RADIO, "1" , "&Sort an existing group" "Options" 31 2
ACC $option, ADDS_RADIO, "2" , "&Create a new group with optional sort"
if $repsh "g" =*
ACC $wrtgrp, ADDS_CHECK | ADDS_YESNO, , "&Write group"
ASCG_OKCAN
END
dsclaim $dsclaim
undeferr n
;$:gnum is ? iff the cli list is empty,
;ie the user entered only the names of groups that do not exist.
;test not needed in repsh since it doesn't allow non existant things.
if $:gnum "?" = $_repsh "n" = &
okmsgbox Group file does not exist. Check the name and try again. Click OK, the utility will end.
end early
$group $askport
$grpstat $status; y iff $askport is not adhoc group
;rep only set $status y when $askport is an unpathed group or portfolio
;breu needs a more liberal interpretation
if $grpstat "n" = $repsh "g" = &
$find +
strstr $askport 0 $find #off
if #off @?; no + characters
$find x ;
$find $1find
strstr $askport 0 $find #off
if #off @?; no space characters
$grpstat y; ok as a group code, may be pathed
$temp $<1askport
if $temp "@" =
$group $1askport
if $repsh "g" =
$temp $<2group
if $temp $here =*!
cvt $group $here$group
$grpname1 $gname10
$grpname2 $gname20
$grpname3 $gname30
$grppurpose $gname50
$gabspath $gname60
#grpcopies #gname00
#grpstdate #gname10
if $_option "?" =*
call map 1.x labeldefs
undeferr y
fxmap n
management
.
.
.
