W Pub: ABAP Rut Quick

  1. * Ini --------------------------------------- Definiciones PseudoCdigo.
  2. * Condicionales
  3. DEFINE ISINI. IF &1 IS INITIAL.                       END-OF-DEFINITION.
  4. DEFINE NOINI. IF NOT &1 IS INITIAL.                   END-OF-DEFINITION.
  5. *Llamadas
  6. DEFINE F. FORM &1.                                    END-OF-DEFINITION.
  7. DEFINE F1. FORM &1 USING &2.                          END-OF-DEFINITION.
  8. DEFINE F2. FORM &1 USING &2 &3.                       END-OF-DEFINITION.
  9. DEFINE EF. ENDFORM.                                   END-OF-DEFINITION.
  10. DEFINE P.  PERFORM &1.                                END-OF-DEFINITION.
  11. DEFINE P1.  PERFORM &1 USING &2.                      END-OF-DEFINITION.
  12. DEFINE P2.  PERFORM &1 USING &2 &3.                   END-OF-DEFINITION.
  13. *Pantalla
  14. DEFINE B. BREAK-POINT.                                END-OF-DEFINITION.
  15. * Moves
  16. DEFINE L. LOOP AT &1.                                 END-OF-DEFINITION.
  17. DEFINE EL. ENDLOOP.                                   END-OF-DEFINITION.
  18. DEFINE EI. ENDIF.                                     END-OF-DEFINITION.
  19. DEFINE CA. CASE &1.                                   END-OF-DEFINITION.
  20. DEFINE EC. ENDCASE.                                   END-OF-DEFINITION.
  21. DEFINE EW. ENDWHILE.                                  END-OF-DEFINITION.
  22. DEFINE M.  MOVE &1 TO &2.                             END-OF-DEFINITION.
  23. DEFINE MC. MOVE-CORRESPONDING &1 TO &2.               END-OF-DEFINITION.
  24. * Operaciones
  25. DEFINE INC. ADD 1 TO &1.                              END-OF-DEFINITION.
  26. DEFINE DEC. SUBSTRACT 1 FROM &1.                      END-OF-DEFINITION.
  27. DEFINE C.  CLEAR &1.                                  END-OF-DEFINITION.
  28. DEFINE R.  REFRESH &1.                                END-OF-DEFINITION.
  29. DEFINE CR. CLEAR &1. REFRESH &1.                      END-OF-DEFINITION.
  30. DEFINE X.  MESSAGE ID &1 TYPE &2 NUMBER &3 WITH &4 &5 &6 &7.
  31.                                                       END-OF-DEFINITION.
  32. * Definiciones.
  33. DEFINE TA. TABLES &1.                                 END-OF-DEFINITION.
  34. DEFINE DT. DATA: &1 TYPE &2.                          END-OF-DEFINITION.
  35. DEFINE DL. DATA: &1 LIKE &2.                          END-OF-DEFINITION.
  36. DEFINE FS. FIEL-SYMBOLS &1.                           END-OF-DEFINITION.
  37. * Abreviaciones con el SY-SUBRC
  38. DEFINE SYSUBRC0.  IF SY-SUBRC EQ 0.                   END-OF-DEFINITION.
  39. DEFINE SYSUBRC4.  IF SY-SUBRC NE 0.                   END-OF-DEFINITION.
  40. DEFINE SYSUBRC30. SYSUBRC0. &1 &2.     ENDIF.         END-OF-DEFINITION.
  41. DEFINE SYSUBRC20. SYSUBRC0. &1 &2.     ENDIF.         END-OF-DEFINITION.
  42. DEFINE SYSUBRC10. SYSUBRC0. &1.        ENDIF.         END-OF-DEFINITION.
  43. DEFINE SYSUBRC14. SYSUBRC0. &1.        ENDIF.         END-OF-DEFINITION.
  44. DEFINE SYSUBRC24. SYSUBRC0. &1 &2.     ENDIF.         END-OF-DEFINITION.
  45. DEFINE SYSUBRC34. SYSUBRC0. &1 &2 &3.  ENDIF.         END-OF-DEFINITION.
  46. *GUI
  47. DEFINE PF. SET PF-STATUS &1.                          END-OF-DEFINITION.
  48. DEFINE PFEX. SET PF-STATUS &1 EXCLUDING &2.           END-OF-DEFINITION.
  49. DEFINE TIT. SET TITLEBAR &1.                          END-OF-DEFINITION.
  50. *TypeLess
  51. DEFINE SHIFTL. SHIFT &1 LEFT DELETING LEADING &2.     END-OF-DEFINITION.
  52. DEFINE SHIFTR. SHIFT &1 RIGHT DELETING TRAILING &2.   END-OF-DEFINITION.
  53. *Bloques
  54. DEFINE INI. INITIALIZATION. END-OF-DEFINITION.
  55. DEFINE START. START-OF-SELECTION.                     END-OF-DEFINITION.
  56. DEFINE ESTART. END-OF-SELECTION.                      END-OF-DEFINITION.
  57. *Tablas Internas
  58. DEFINE IA. APPEND &1.                                 END-OF-DEFINITION.
  59. DEFINE ID. DELETE &1.                                 END-OF-DEFINITION.
  60. * Fin --------------------------------------- Definiciones PseudoCdigo.
[$[Get Code]]