I recently ran across this thread and am trying to create a few line commands in native mode under z/OS 01.13.00. Did not EVEN know that LMAC existed. I cannot get DT (Delete from command to top) and DB (Delete from command to bottom to work together. At first I was "trying my own thing" using a table that pointed to a single MACRO for multiple commands and as an aside to my problem being a little lazy and probably more than a bit less robust than Mark, e. g.
"(START) = LINENUM .ZFRANGE" /* Get 1st line number in the range */ "(STOP) = LINENUM .ZLRANGE" /* Get last line number in the range */ "(DW) = DATA_WIDTH" /* Get the width of the editable data */ Do a = start to stop /* Loop through the range of lines */ "(LINE) = LINE "a /* Get old line value */ SELECT /* process the command for this line */ When(parm = "CE") Then line=center(strip(line),dw) /* Center */ When(parm = "RV") Then line=reverse(line) /* Reverse */ When(parm = "LEF") Then line=strip(line,"L") /* Left justify */ When(parm = "RIT") Then line=right(strip(line,"T"),dw) /* Right */ /* Justify */ Otherwise Nop /* Otherwise no op (shouldn't get here)*/ End /* */ "LINE "a" = (LINE)" /* Set new line value */ End /* End of loop through lines */ exit 0 /* Return to ISPF */ Comments on above welcome... seems to work but... Hmmm take SELECT out of the loop, set command for for line = into a variable and use interpret inside the loop? But as to my problem, I cannot get ****** ***************************** Top of Data ****************************** 000001 a 000002 b 000003 c DT d 000005 e 000006 f 000007 g DB h 000009 i 000010 j 000011 k 000012 l ****** **************************** Bottom of Data **************************** to work either my way or exactly as shown on Marks web site with his two macros and table copied as is. Instead of desired/expected result 000001 e 000002 f 000003 g I get 000001 i 000002 j 000003 k 000004 l Can multiple user line commands be passed to ISREDIT on the same "ENTER" David ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN