Example -  Petty Cash upload program 
 
Input screen design: 
 PARAMETERS: IFILENM  LIKE RLGRAP-FILENAME          "Filename 
                            DEFAULT 'C:\RMD\TEST1.TXT' OBLIGATORY , 
 
                            SESS_NM(7) TYPE C OBLIGATORY, 
                            check_dt  as checkbox,     "Check-only indicator 
                            rec_num    type i default 500. "Trans per session 

000800 at selection-screen on value-request for ifilenm. 
000810   call function 'WS_FILENAME_GET' 
000820        exporting 
000830             def_filename     = space 
000840             def_path         = ifilenm 
000850             mask             = ',*.*,*.*.' 
000860             mode             = 'O' 
000870             title            = 'Choose File Name' 
000880        importing 
000890             filename         = ifilenm 
000900        exceptions 
000910             inv_winsys       = 04 
000920             no_batch         = 08 
000930             selection_cancel = 12 
000940             selection_error  = 16. 
000950 
000960   if sy-subrc eq '04'. 
000970     message i838(29). 
000980   endif. 

 Data-declaration: 

* Structure of incoming data 
DATA: BEGIN OF  USER_REC, 
   GLCODE(9)  TYPE C,                          "GL A/C CODE 
   GLAMOUNT(12)  TYPE C,                  " AMOUNT OF GL A/C 
   DRCR(2)      TYPE C,                            "DR/CR FLAG 
END OF USER_REC.             
  
 * array to keep Input user data 
 DATA:    BEGIN OF USER_DATA OCCURS 100. 
            INCLUDE STRUCTURE USER_REC. 
 DATA:    END OF USER_DATA. 
 

 
 
 If you have comments or suggestions, email us at gssoft@goplay.com 

Copyright ©, 1998, GS Software, Last modified  Jan 1,1998