use of loop in ispf panel

JOYEETA PAUL · New User Joined: 18 Sep 2008 Posts: 17 Location: bangalore

These are the records in my ps file----
**** LAW 1 ****
DO-IF HSC IS 'S9999 ' @ CR107759 @-
AND BRQ-CODE IS (19,25,26) @ @-
AND LINE-ITS-PRICING-METHOD IS-NOT '01' @ @
LIMIT $ @ @
****************
**** LAW 2 ****
DO-IF HSC IS 'S0099 ' @ CR107759 @-
AND BRQ-CODE IS (19,25,26) @ @-
AND LINE-ITS-PRICING-METHOD IS-NOT '00' @ @
LIMIT $0 @ @
****************
end of file.
now i want to display only the law1(1st part of code) records from the file to a panel - this is my requirement. i am not suppose to display records in rexx screen.at the starting i used EXECIO in rexx to read records one by one. this piece of code should be displayed in one panel only.so i have used an arraylike z.i in rexx and used the variable (like z.1 for 1st line of rec,z.2 for 2nd line of rec and so on)in panel like z.1,z.2etc. but this is not possible in my prog as i have more 100 lines of rec.so i want to use a loop in panel with a variable which will show the lines of rec in panel by changing its instead of using z.1,z.2 etc.

i think now it is somewhat clear!!!

enrico-sorichetti

looks like You are trying to build a folding editor

the simplest approach would be to write an edit macro to
analyze the lines and exclude those not wanted

exlude all
find first line to be shown according to some syntax
unexclude all the lines until
according to Your syntax the unexclude/unfold token is reached

( do not forget the nesting level )

JOYEETA PAUL · New User Joined: 18 Sep 2008 Posts: 17 Location: bangalore

ok.can you pls give me example of the folding editor.
actually i m not that much familier with the macro