)ATTR DEFAULT(%+_)
    % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
    ` TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
    + TYPE(TEXT) INTENS(LOW)  COLOR(TURQ) SKIP(ON)
    _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED)
    ^ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) PAD(_)
    | TYPE(INPUT) INTENS(HIGH) CAPS(OFF)
)BODY EXPAND(\\)
+-\-\-`CUT prompt panel+-\-\-+
%COMMAND ===>_ZCMD                                                     +
%
%Action       ====>_ACTN    +`ADD, REPLACE, DEFAULTS, or blank for normal action
+    Enter `END key for no action
%CUT table name===>_CT+      `any two charactor name for this one time
+                             blank for default
%CUT size limit===>_CUTCOUNT+`any number 100 to 99999
+
+  ADD will add CUT lines to the end of previous CUT lines if any
+  REPLACE will clear any previous CUT lines and replace then with
+          newly CUT lines
+  DEFAULTS will display panel to set defaults
+  blank for normat action set by default
)INIT
  .CURSOR=ACTN
  .HELP=CUTPROM@
  IF (&CUTLIMIT=&Z) &CUTLIMIT=2000
  IF (&CUTCOUNT=&Z) &CUTCOUNT=&CUTLIMIT
)PROC
 &ACTN=TRANS(TRUNC(&ACTN,1),
                              A,ADD
                              R,REPLACE
                              D,DEFAULTS
                              H,HELP
                              P,PROMPT
                              *,'&ACTN')
 VER(&ACTN,LIST,ADD,REPLACE,DEFAULTS,PROMPT,HELP)
 VER(&CUTCOUNT,NB,RANGE,100,99999)
)END