On Tue, 7 Feb 2023 04:03:59 -0600, Willy Jensen wrote:
>    ...
> /* Insert template */   
> s='Template line 1'     
> "line_after .zl = (s)"  
> s='Template line 2'     
> "line_after .zl = (s)"  
>
> and so on and so forth
>
For some chores similar to this it's a crying shame that ISPF shuns
compound symbols:
    /* Suppose the content to insert is in stem TemplateLine.  */
    do L = 1 to TemplateLine.0
        address ISREDIT "line_after .zl = (TemplateLine.L)"
        end L

-- 
gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to