how to enter line commands at the command line

how to enter line commands at the command line Oct 22, 2014 10:50:18 GMT -5

Quote

Post by George on Oct 22, 2014 10:50:18 GMT -5

chaat:
An ideal candidate for a macro.

I've had a box macro since forever, right back to a REXX ISPF version.

I stripped out some extraneous stuff from my current one, here's a basic version you can easily tweak to your specific preferences. It is used by just putting BXX / BXX line commands on the range of lines to be 'boxed'. Left/Right column boundaries are set internally, as is the format of the actual box text. Just store it in your SPFLite\Macros\ folder. If you're like me, you'll end up with several minor variations, one for COBOL, one for JCL, one for Assembler, etc. I found that simpler than building the different variations of the box into the macro itself.

George

' BX.MACRO
' BX - Draw box around a range of lines 
' Syntax:  BXX BXX commands on a pair of lines        ' Two line command operands
' Author: George Deluca
'
if is_primary_Cmd then halt(fail, "BX macro was not invoked as a line command")
dim lm as number = 7                                  ' Box left column
dim rm as number = 72                                 ' Box right column
dim lno1 as number = Get_Src1_Lptr                    ' From line
dim lno2 as number = Get_Src2_Lptr                    ' To   line
dim i as number = 0                                   '
dim hline1, hline2 as string                          ' Overlay lines

hline1 = repeat$(rm - 1, "-") + "+"                   ' Build top/bottom line  
mid$(hline1, 1) = repeat$(lm - 1, " ") + "+"          ' 

hline2 = repeat$(rm - 1, " ") + "|"                   ' Build inner lines
mid$(hline2, 1) = repeat$(lm - 1, " ") + "|"          ' 

' Insert top line 
SPF_Cmd("ADD", $DQ + hline1 + $DQ, "!" + format$(lno1 - 1)) 

' Overlay existing lines 
for i = lno1 + 1 to lno2 + 1                          ' Set # lines to do 
   if Is_Data(i) then                                 ' Only data lines 
         SPF_Ovr(i, 1, hline2)                        ' Overlay the box chars
   end if                                             ' 
next                                                  ' 

' Insert bottom line 
SPF_Cmd("ADD", $DQ + hline1 + $DQ, "!" + format$(lno2 + 1)) 
Set_Csr(lno2 + 3, 0, 0)                               ' Put cursor on next line
halt                                                  ' Done

Forum

how to enter line commands at the command line

Post by chaat on Oct 22, 2014 1:54:14 GMT -5

Post by George on Oct 22, 2014 10:50:18 GMT -5