Applications without Internal Table

• Select T.Code "SE80"
• Select "Edit Object"
• Select "Program"
• Provide module pool program name creating "zvendor_demo"
• Select "create"
• Uncheck "Top Include" Click on Enter
• Provide Attributes to program
  Type "Module Pool"
  Status "SAP Standard Production Program"
  Application "Material Management"
• Save Details
• Select "SE80 --> Edit object
• Select Program --> Provide module pool created.
• Select screen --> Provide screen number to design application
  0100 -> take any number
• Select "create" to switch over to screen painter
• Maintain description to screen 100
  "Applcation without Internal table" Click on Save
• From screen painter select "Layout"
• Select "Goto" -> secondary window -> Dictionary/Program Fields
  To select Fields from Table
• Provide table "LFA1" Press Enter
• Select Fields "LIFNR", "Name1" and "ORT01" press enter and drop fields on layout
• From "Tool Box" Select "Push button" drop it in Layout
• Double click on push button to maintain properties
• Repeate same procedure fro Update, Delete, Display & Exit press save
• From Screen Painter -> Select "Flow Logic"
• From Flowlogic select "PA1" to maintain logic for operactions
• Select "PAI" module -> Delete comment (*) press save
• Double click on PAI module. "Module user_command_0100" press Enter
• Select Main program press Enter
• Table work Area
  Tabels : LFA1 "Vendor Master Table"
• Select Module - End Module of PAI logic for operactions
  case sy-ucomm
  when "Insert" -> (FCT code)
  Insert LFA1
• Message to konw record inserted or not
  IF SY-SUBRC = 0
  Message I000(0) with "Inserted".
  Else.
  Message E001(0) with "Not Inserted".
  EndIf.
  "0" is a default message class, "with" is syntax
  when 'update'
  update LFA1
• Message to know record updated or not
  IF SY-SUBRC <> 0
  Message A000(0) with "Not Updated".
  Else
  Message S001(0) with "updated"
  EndIf
  when "Delete"
  Delete LFA1
  If SY-SUBRC <> 0
  Message X000(0) with "Not Deleted"
  Else
  Message I001(0) with "Deleted"
  Endif
• In Dialog programming parameters and select-options not allowed.
  when "Display"
  select * from LFA1 where LIFNR = LFA1-LIFNR
  End select.
  When "Exit"
  Leave Program
  End Case
• Leave program is a keyword which can move control out of application
• Save & Actiavte -> F3 -> Activate
• Select "SE80" -> Select "Edit Object"
• Select "More" -> Select Transaction.
• Enter Transaction code creating "Zvendor_Demo_TR" -> Create
• Short text "Transaction Code for Dialog program"
• Select "Dialog Transaction" press Enter
• Provide module pool program name "Zvendor_Demo"
• Provide screen number "0100" press save.