)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 and set defaults+-\-\-+ %COMMAND ===>_ZCMD + % %Action ====>_ACTN +`ADD, REPLACE, or blank for default + 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 for this one time + %Set default actions for CUT and PASTE + %CUT default ===>_CUTDEF +`ADD or REPLACE %PASTE default ===>_PASTEDEF+`KEEP or ZERO %CUT table name===>_CN+ `any two charactor name for default %CUT size limit===>_CUTLIMIT+`any number 100 to 99999 for default + + 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 + ZERO will delete previously CUT lines after the PASTE operation + KEEP will keep previously CUT lines after the PASTE operation to + be used by a later PASTE or added to by later CUT operations )INIT .CURSOR=ACTN .HELP=CUTDEF@ IF (&CUTNAME=&Z) &CUTNAME=AA IF (&CUTLIMIT=&Z) &CUTLIMIT=2000 IF (&CUTCOUNT=&Z) &CUTCOUNT=&CUTLIMIT &CN=&CUTNAME )PROC &ACTN=TRANS(TRUNC(&ACTN,1),A,ADD,R,REPLACE,*,'&ACTN') VER(&ACTN,LIST,ADD,REPLACE) VER(&CUTCOUNT,NB,RANGE,100,99999) &CUTDEF=TRANS(TRUNC(&CUTDEF,1),A,ADD,R,REPLACE,*,'&CUTDEF') VER(&CUTDEF,NB,LIST,ADD,REPLACE) &PASTEDEF=TRANS(TRUNC(&PASTEDEF,1),Z,ZERO,K,KEEP,*,'&PASTEDEF') VER(&PASTEDEF,NB,LIST,ZERO,KEEP) VER(&CN,NB) &CUTNAME=&CN IF (&CT=&Z) &CT=&CUTNAME VER(&CUTLIMIT,NB,RANGE,100,99999) VPUT (CUTDEF PASTEDEF CUTNAME CUTLIMIT) PROFILE )END