How to use shift-command in edit-macro

UmeySan · Posted: Sat Jan 06, 2007 12:56 am

Hi all !

Now it's on me to ask a question.

In a edit-macro i do some automatic changes to a dataset like

x all
f all 'string-a'
del all x

...and so on

Ok by this.

Now i want to shift the lines to left about 12 chars.
Normaly as line-block-command i use " ((12 for shifting.

Is there a way to achive this in a edit-macro ???

Thanks in advance & regards,
UmeySan

DavidatK · Posted: Sat Jan 06, 2007 2:01 am

Take a look at this link, Page 392 discusses 'SHIFT (', didn't look at it in depth.

ISPF Edit and Edit Macros

UmeySan · Posted: Mon Jan 08, 2007 5:06 pm

Hi David !

Thanks a lot.

After a time of trying the commands, i wrote my little own shift-macro.

Thank's & Regards, UmeySan

/********************************************/
/* SHIFT EDIT MACRO */
/* UMSHIFT R,5 / UMSHIFT L,7 */
/********************************************/

ISREDIT MACRO (R,N) NOPROCESS
ISPEXEC CONTROL ERRORS RETURN
ISREDIT PROCESS RANGE M MM
ISREDIT (LINE1) = LINENUM .ZFRANGE
ISREDIT (LINE2) = LINENUM .ZLRANGE
SET LINE = &LINE1
DO WHILE &LINE <= &LINE2
ISREDIT CURSOR = &LINE
IF &R=L THEN -
ISREDIT SHIFT ( .ZCSR &N
ELSE -
ISREDIT SHIFT ) .ZCSR &N
SET LINE = &LINE + 1
END
ISREDIT CURSOR = &LINE1
EXIT