Having screen painter with layout fields are vender, name, city operations.
Select "SE80" -> Edit object
Select program -> provide module pool. Program creating "Zvender-Demo-PG".
Select create -> Uncheck "Include" -> Enter.
Maintain Attributes to program -> Save Attributes.
Select SE80 -> Edit object -> Select program.
"Zvender -> Demo -> PG".
Select screen -> enter screen number to design application screen "100".
Select create to switch over to screen painter.
Description to screen 100 "Application with Internal table" -> Save.
Select "Layout" from screen painter.
Select "Go to" -> Secondary Window -> Dictionary/Program fields to select fields from table
Enter table "LFA1" --> Enter.
Select Fields LIFNR ,NAME1 & ORT01.
Drop it in Layout.
Maintain operatoions Display & Exit -->Save.
Select "Flow logic' from screen painter.
Select "PAI" from Flow Logic -> Select it's module.
Double click on that module -> Enter.
Select main program ->Enter.
Tables work area
Tables : LFAI.
Internal Table as per fields in Layout.
Types : Begin of Fs,
LIFNR Type LIFNR,
Namel Type namel-Gp,
ORTAL type ORTAL-GP,
End of FS.
Data : WA type FS,
ITab type standard Table of FS.
Select module - end module of input.
Logic for operations.
case sy-ucomm.
when 'Display'.
Select LIFNR
Name1
ORT01
From LFA1
Into Table ITAB
Where LIFNR = LFA1-LIFNR
when 'Exit'
Leave program.
End case.
Select "PRO" from Flow magic ->Delete comment to it's module.
Double click on that module ->Enter.
Select "Main Progrm"->Enter.
Select module - End module of "PBO".
Logic to transfer data from body to screen field via work area
If not ITAB[ ] is initial.
Loop at ITAB[ ] into WA.
Move corresponding WA to LFA1.
End Loop.
End If.
Move - corresponding is syntax. Here LFA1 is not table name it's screen field.
Save & Activate -> F3-> Activate.
Select SE80 ->Edit object ->Select mode.
Provide Transaction code creating.
"Zvendar_Demo_PG_TR" ->Create.
Short text "Demo".
Select "Dialog Transaction" ->Enter.
Provide module pool program "Zvendar_Demo_PG".
Screen number "0100" ->Save.