REXX ISSUE

[raj55401]

Hi,
I am new for the REXX. I have a sequential file which is having 10 records. I have read this file and display the contents on the Panel. I have tried to read the file using the STEM variable but I am not able to display on the panel.

Some one help me the panel code and REXX code?

Thanks
Raj

 

[KiwiREXXDude]

You can't read a STEM in a panel (at least I don't know how to). What you need to do is display the records as an ISPF table in a panel. For example;

"Alloc Fi(IN) Da('my.data.set') Shr Reu"
"Execio * DiskR IN (Stem IN. Finis)"
"Free Fi(IN)"
Address 'ISPEXEC'
"Control Errors Return"
"TBEnd MYTABL"
"TBCreate MYTABL Keys(KEYREC) NoWrite"
do i = 1 to IN.0
keyrec = IN.i
"TBAdd MYTABL"
end
"TBDispl MYTABL Panel(MYPANEL)"
"Control Errors Cancel"

Obviously you will need to learn about ISPF tables and displaying tables in panels. Hope it helps.

 

[raj55401]

Thanks for the code. Could you please provide the skeleton code for the panel also? Because I am not able to display on the panel.

Thanks

 

[KiwiREXXDude]

Ok, here is some very basic code for a 'bare-bones' table display panel;

)Attr
@ Type(VOI)
)Body Expand(\\)
%\ \ Display basic ISPF table \ %Command ===>_zcmd \ +
+Output from table;
)Model
@KEYREC
)End