Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *====================== subroutines =====================================
- FORM fill_field_cat.
- WA_FCAT_REQ-col_pos = '1'.
- WA_FCAT_REQ-fieldname = 'ZZSR_NUMBER'.
- WA_FCAT_REQ-coltext = 'Serial Number'.
- WA_FCAT_REQ-outputlen = 19 .
- WA_FCAT_REQ-just = 'L'. "23-6-15
- WA_FCAT_REQ-DATATYPE = 'NUMC'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- WA_FCAT_REQ-col_pos = '2'.
- WA_FCAT_REQ-fieldname = 'ZZCOMPANY_CODE'.
- WA_FCAT_REQ-coltext = 'Company Code'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- WA_FCAT_REQ-DATATYPE = 'NUMC'.
- WA_FCAT_REQ-outputlen = 16 .
- WA_FCAT_REQ-just = 'L'. "23-6-15
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- WA_FCAT_REQ-col_pos = '3'.
- WA_FCAT_REQ-fieldname = 'ZZCOST_CENTER'.
- WA_FCAT_REQ-coltext = 'Cost Center'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- WA_FCAT_REQ-DATATYPE = 'NUMC'.
- WA_FCAT_REQ-outputlen = 14 .
- WA_FCAT_REQ-just = 'L'. "23-6-15
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- WA_FCAT_REQ-col_pos = '4'.
- WA_FCAT_REQ-fieldname = 'ZZDATE'.
- WA_FCAT_REQ-coltext = 'Date'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- WA_FCAT_REQ-outputlen = 14 .
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- * WA_FCAT_REQ-col_pos = '5'.
- * WA_FCAT_REQ-fieldname = 'ZZSERVICE_TYPE'.
- * WA_FCAT_REQ-coltext = 'Service ID'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- WA_FCAT_REQ-col_pos = '6'.
- WA_FCAT_REQ-fieldname = 'ZZSERVICE_DESC'.
- WA_FCAT_REQ-coltext = 'Service Type'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- WA_FCAT_REQ-outputlen = 30 .
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- * WA_FCAT_REQ-col_pos = '7'.
- * WA_FCAT_REQ-fieldname = 'ZZRQSTTS'.
- * WA_FCAT_REQ-coltext = 'Status ID'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- WA_FCAT_REQ-col_pos = '8'.
- WA_FCAT_REQ-fieldname = 'ZZSTATUS_DESC'.
- WA_FCAT_REQ-coltext = 'Request Status'.
- * WA_FCAT_REQ-hotspot = 'X'.
- * WA_FCAT_REQ-COL_OPT = 'X'.
- WA_FCAT_REQ-outputlen = 35 .
- APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- CLEAR WA_FCAT_REQ.
- "Removed 23-6-2015 Omar El Halawany
- * WA_FCAT_REQ-col_pos = '9'.
- * WA_FCAT_REQ-fieldname = 'CREA_USER'.
- * WA_FCAT_REQ-coltext = 'CREATE USER'.
- ** WA_FCAT_REQ-hotspot = 'X'.
- ** WA_FCAT_REQ-COL_OPT = 'X'.
- * WA_FCAT_REQ-outputlen = 12 .
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- *
- *
- * WA_FCAT_REQ-col_pos = '10'.
- * WA_FCAT_REQ-fieldname = 'CREA_TIME'.
- * WA_FCAT_REQ-coltext = 'CREATE TIME'.
- ** WA_FCAT_REQ-hotspot = 'X'.
- ** WA_FCAT_REQ-COL_OPT = 'X'.
- * WA_FCAT_REQ-outputlen = 18 .
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- *
- * WA_FCAT_REQ-col_pos = '11'.
- * WA_FCAT_REQ-fieldname = 'CHNG_USER'.
- * WA_FCAT_REQ-coltext = 'CHANGE USER'.
- ** WA_FCAT_REQ-hotspot = 'X'.
- ** WA_FCAT_REQ-COL_OPT = 'X'.
- * WA_FCAT_REQ-outputlen = 12 .
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- *
- * WA_FCAT_REQ-col_pos = '12'.
- * WA_FCAT_REQ-fieldname = 'CHNG_TIME'.
- * WA_FCAT_REQ-coltext = 'CHANGE TIME'.
- ** WA_FCAT_REQ-hotspot = 'X'.
- ** WA_FCAT_REQ-COL_OPT = 'X'.
- * WA_FCAT_REQ-outputlen = 18.
- * APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
- * CLEAR WA_FCAT_REQ.
- ENDFORM.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement