Advertisement
yaramohamed78

Untitled

Mar 13th, 2017
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 3.48 KB | None | 0 0
  1. *====================== subroutines  =====================================
  2.  
  3. FORM fill_field_cat.
  4.   WA_FCAT_REQ-col_pos = '1'.
  5.   WA_FCAT_REQ-fieldname = 'ZZSR_NUMBER'.
  6.   WA_FCAT_REQ-coltext = 'Serial Number'.
  7.   WA_FCAT_REQ-outputlen = 19 .
  8.   WA_FCAT_REQ-just = 'L'. "23-6-15
  9.   WA_FCAT_REQ-DATATYPE = 'NUMC'.
  10. *  WA_FCAT_REQ-hotspot = 'X'.
  11.  
  12. *  WA_FCAT_REQ-COL_OPT = 'X'.
  13.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  14.   CLEAR WA_FCAT_REQ.
  15.  
  16.   WA_FCAT_REQ-col_pos = '2'.
  17.   WA_FCAT_REQ-fieldname = 'ZZCOMPANY_CODE'.
  18.   WA_FCAT_REQ-coltext = 'Company Code'.
  19. *  WA_FCAT_REQ-hotspot = 'X'.
  20. *  WA_FCAT_REQ-COL_OPT = 'X'.
  21.   WA_FCAT_REQ-DATATYPE = 'NUMC'.
  22.   WA_FCAT_REQ-outputlen = 16 .
  23.   WA_FCAT_REQ-just = 'L'. "23-6-15
  24.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  25.   CLEAR WA_FCAT_REQ.
  26.  
  27.   WA_FCAT_REQ-col_pos = '3'.
  28.   WA_FCAT_REQ-fieldname = 'ZZCOST_CENTER'.
  29.   WA_FCAT_REQ-coltext = 'Cost Center'.
  30. *  WA_FCAT_REQ-hotspot = 'X'.
  31. *  WA_FCAT_REQ-COL_OPT = 'X'.
  32.   WA_FCAT_REQ-DATATYPE = 'NUMC'.
  33.   WA_FCAT_REQ-outputlen = 14 .
  34.   WA_FCAT_REQ-just = 'L'. "23-6-15
  35.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  36.   CLEAR WA_FCAT_REQ.
  37.  
  38.   WA_FCAT_REQ-col_pos = '4'.
  39.   WA_FCAT_REQ-fieldname = 'ZZDATE'.
  40.   WA_FCAT_REQ-coltext = 'Date'.
  41. *  WA_FCAT_REQ-hotspot = 'X'.
  42. *  WA_FCAT_REQ-COL_OPT = 'X'.
  43.   WA_FCAT_REQ-outputlen = 14 .
  44.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  45.   CLEAR WA_FCAT_REQ.
  46.  
  47. *  WA_FCAT_REQ-col_pos = '5'.
  48. *  WA_FCAT_REQ-fieldname = 'ZZSERVICE_TYPE'.
  49. *  WA_FCAT_REQ-coltext = 'Service ID'.
  50. *  WA_FCAT_REQ-hotspot = 'X'.
  51. *  WA_FCAT_REQ-COL_OPT = 'X'.
  52. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  53. *  CLEAR WA_FCAT_REQ.
  54.  
  55.   WA_FCAT_REQ-col_pos = '6'.
  56.   WA_FCAT_REQ-fieldname = 'ZZSERVICE_DESC'.
  57.   WA_FCAT_REQ-coltext = 'Service Type'.
  58. *  WA_FCAT_REQ-hotspot = 'X'.
  59. *  WA_FCAT_REQ-COL_OPT = 'X'.
  60.   WA_FCAT_REQ-outputlen = 30 .
  61.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  62.   CLEAR WA_FCAT_REQ.
  63.  
  64.  
  65. *  WA_FCAT_REQ-col_pos = '7'.
  66. *  WA_FCAT_REQ-fieldname = 'ZZRQSTTS'.
  67. *  WA_FCAT_REQ-coltext = 'Status ID'.
  68. *  WA_FCAT_REQ-hotspot = 'X'.
  69. *  WA_FCAT_REQ-COL_OPT = 'X'.
  70. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  71. *  CLEAR WA_FCAT_REQ.
  72.  
  73.   WA_FCAT_REQ-col_pos = '8'.
  74.   WA_FCAT_REQ-fieldname = 'ZZSTATUS_DESC'.
  75.   WA_FCAT_REQ-coltext = 'Request Status'.
  76. *  WA_FCAT_REQ-hotspot = 'X'.
  77. *  WA_FCAT_REQ-COL_OPT = 'X'.
  78.   WA_FCAT_REQ-outputlen = 35 .
  79.   APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  80.   CLEAR WA_FCAT_REQ.
  81.  
  82. "Removed 23-6-2015 Omar El Halawany
  83.  
  84. *  WA_FCAT_REQ-col_pos = '9'.
  85. *  WA_FCAT_REQ-fieldname = 'CREA_USER'.
  86. *  WA_FCAT_REQ-coltext = 'CREATE USER'.
  87. **  WA_FCAT_REQ-hotspot = 'X'.
  88. **  WA_FCAT_REQ-COL_OPT = 'X'.
  89. *  WA_FCAT_REQ-outputlen = 12 .
  90. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  91. *  CLEAR WA_FCAT_REQ.
  92. *
  93. *
  94. *  WA_FCAT_REQ-col_pos = '10'.
  95. *  WA_FCAT_REQ-fieldname = 'CREA_TIME'.
  96. *  WA_FCAT_REQ-coltext = 'CREATE TIME'.
  97. **  WA_FCAT_REQ-hotspot = 'X'.
  98. **  WA_FCAT_REQ-COL_OPT = 'X'.
  99. *  WA_FCAT_REQ-outputlen = 18 .
  100. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  101. *  CLEAR WA_FCAT_REQ.
  102. *
  103. *  WA_FCAT_REQ-col_pos = '11'.
  104. *  WA_FCAT_REQ-fieldname = 'CHNG_USER'.
  105. *  WA_FCAT_REQ-coltext = 'CHANGE USER'.
  106. **  WA_FCAT_REQ-hotspot = 'X'.
  107. **  WA_FCAT_REQ-COL_OPT = 'X'.
  108. *  WA_FCAT_REQ-outputlen = 12 .
  109. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  110. *  CLEAR WA_FCAT_REQ.
  111. *
  112. *  WA_FCAT_REQ-col_pos = '12'.
  113. *  WA_FCAT_REQ-fieldname = 'CHNG_TIME'.
  114. *  WA_FCAT_REQ-coltext = 'CHANGE TIME'.
  115. **  WA_FCAT_REQ-hotspot = 'X'.
  116. **  WA_FCAT_REQ-COL_OPT = 'X'.
  117. *  WA_FCAT_REQ-outputlen = 18.
  118. *  APPEND WA_FCAT_REQ TO IT_FCAT_REQ.
  119. *  CLEAR WA_FCAT_REQ.
  120.  
  121.  
  122. ENDFORM.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement