*&---------------------------------------------------------------------**& Chapter 1: How to define types and data objects **&---------------------------------------------------------------------*REPORT CHAP0101.* Elementary type character, length 20DATA CUSTOMER_NAME(25) TYPE C.* Non-elementary typeTYPES T_NAME(25) TYPE C.DATA NEW_CUSTOMER_NAME TYPE T_NAME.* Reference to a data objectDATA VENDOR_NAME LIKE CUSTOMER_NAME.* RecordDATA: BEGIN OF BOOKING, ID(4) TYPE C, FLIGHT_DATE TYPE D, NAME LIKE CUSTOMER_NAME, END OF BOOKING.* Internal tableDATA BOOKING_TABLE LIKE BOOKING OCCURS 100.
ZCONECTA NO STANDARD PAGE HEADING MESSAGE-ID BD LINE-SIZE 132 LINE-COUNT 65.* Autor: Silva Huertas, Antonio Miguel* E-mail: alg@guay.comINCLUDE . * Tablas * Variables globales DATA: C1(8),"ColumnasC2(8),C3(8),C4(8),C5(8),C6(8),C7(8),C8(8).DATA: TFS(20).DATA: D_RET LIKE SY-SUBRC.DATA: MAQUINA,TURNO,LINEA TYPE I,OFFS TYPE I VALUE 20,GANA_MAQUINA,GANA_USUARIO.* Constantes CONSTANTS: C_O VALUE 'O', C_X VALUE 'X'.* Tablas internas DATA: BEGIN OF TAB OCCURS 10, COL TYPE I, LIN TYPE I, XTYPE I, OTYPE I, BTYPE I, XA TYPE I, OA TYPE I, BA TYPE I,ENDOF TAB.* Parámetros PARAMETER: USUARIO OBLIGATORY DEFAULT C_X, ICONOS AS CHECKBOX DEFAULT C_X.*----------------------------------------------------------------------** AT SELECTION-SCREEN **----------------------------------------------------------------------* AT SELECTION-SCREEN. IF USUARIO = C_O. MAQUINA = C_X. ELSEIF USUARIO = C_X. MAQUINA = C_O. ELSE. MESSAGE E899 WITH 'Permitted values O y X'. ENDIF.*-----------------------
*&==============================================================*& Developed by ROMAN LOPEZ NAVARRO **& http://personales.com/espana/madrid/abap/ **& http://www.geocities.com/romlopabap/ **&==============================================================*&---------------------------------------------------------------------**& Report ZBUSCAMIN **&---------------------------------------------------------------------** Una celda marcada como bomba ' B ' no admite ser marcada como detecta-* da ' D ' ya que implicitamente esta detectada.* Una vez que el juego acabo no se muestran mas mensajes aunque si se* permite seguir explorando las celdas ocultas.* Si algunas de las celdas marcadas como detectadas son incorrectas, es-* tas se muestran en un nuevo listado.* Evidentemente NUM_BOMB debe ser superior o igual a MAX_HERI.* El boton q
*&=============================================================**& Developed by ROMAN LOPEZ NAVARRO **& http://personales.com/espana/madrid/abap/ **& http://www.geocities.com/romlopabap/ **&=============================================================* REPORT ZBARCOS NO STANDARD PAGE HEADING. DATA:para imprimir la pantalla POS TYPE I, POSINI TYPE I VALUE 4, FILAS TYPE I VALUE 10, LONGITUD TYPE I, CABLET(255), NUMFILA(2),* Variables para las funciones RANDOM INTEGER2 LIKE DATATYPE-INTEGER2, CHAR0128 LIKE DATATYPE-CHAR0128,* Atributos de celda N * Variable UMERO LIKE DATATYPE-INTEGER2, " Numero de la casilla actual LETRA TYPE C, " Letra de la casilla actual NUMLETRA TYPE I, " Letra convertida a numero CELL_NAME(25), " Nombre de la celda* Limites de la celda sele
*Create an online program and change UNIX_DICT_FILE REPORT ZHANGMAN NO STANDARD PAGE HEADING. * Put correct UNIX Words file on the next line. DATA: UNIX_DICT_FILE(80) VALUE '/usr/share/lib/dict/words'. INCLUDE .DATA: DICT_TAB(20) OCCURS 10000 WITH HEADER LINE, GIVEUP(20), LINE(80), GUESSES OCCURS 10 WITH HEADER LINE, CORRECT_GUESSES OCCURS 10 WITH HEADER LINE, MESG(60), LEN TYPE I, NUM_WORDS TYPE I, NUM_TRYS TYPE I, NUM_FAILS TYPE I, NUM_BADS TYPE I, NUM_GOODS TYPE I.DATA LETTER.DATA: RUNT TYPE I, SEC TYPE I.DATA: BEGIN OF PIC, ROW LIKE SY-CUROW, COL LIKE SY-CUCOL, LET,END OF PIC.DATA: BEGIN OF FIG OCCURS 10, X(2), Y(2), L, END OF FIG. INITIALIZATION. APPEND '6006|' TO FIG. APPEND '60070' TO FIG. APPEND '6008|' TO FIG. APPEND '5908/' TO FIG. APPEND '5909/' TO FIG. APPEND '6109\' TO FIG. APPEND '6108\' TO FIG. OPEN DATASET UNIX_DICT_FILE FOR INPUT IN TEXT MODE. DO. READ
Save Report Output to a PDF FileThis report takes another report as input, and captures the output of that report. The output is then converted toPDF and saved to a local file. This shows how to use some of the PDF function modules, as well as an easy way tocreate PDF files.Source Code Listingreport zabap_2_pdf.*-- Enhancements: only allow to be run with variant. Then called*-- program will be transparent to users*-- TABLEStables: tsp01.*-- STRUCTURESdata: mstr_print_parms like pri_params, mc_valid(1) type c, mi_bytecount type i, mi_length type i, mi_rqident like tsp01-rqident.*-- INTERNAL TABLESdata: mtab_pdf like tline occurs 0 with header line, mc_filename like rlgrap-filename.*-- SELECTION SCREENparameters: p_repid like sy-repid, " Report to execute p_linsz like sy-linsz default 132, " Line size p_paart like sy-paart default 'X_65_132'. " Paper Formatstart-of-selection.concatenate 'c:\' p_repid '.pdf' into mc_filename.*-- Setup the Pr
REPORT Z_CONECT_A.* Include type pool SSCRTYPE-POOLS sscr.TABLES : marc.* defining the selection-screenselect-options : s_matnr for marc-matnr, s_werks for marc-werks.* Define the object to be passed to the RESTRICTION parameterDATA restrict TYPE sscr_restrict.* Auxiliary objects for filling RESTRICTDATA : optlist TYPE sscr_opt_list, ass type sscr_ass.INITIALIZATION.* Restricting the MATNR selection to only EQ and 'BT'. optlist-name = 'OBJECTKEY1'. optlist-options-eq = 'X'. optlist-options-bt = 'X'. APPEND optlist TO restrict-opt_list_tab. ass-kind = 'S'. ass-name = 'S_MATNR'. ass-sg_main = 'I'. ass-sg_addy = space. ass-op_main = 'OBJECTKEY1'. APPEND ass TO restrict-ass_tab.* Restricting the WERKS selection to CP, GE, LT, NE. optlist-name = 'OBJECTKEY2'. optlist-options-cp = 'X'. optlist-options-ge = 'X'. optlist-options-lt = 'X'. optlist-options-ne = 'X'. APPEND optlist TO restrict-opt_list_tab. ass-kind = 'S'. ass-name = 'S_WERKS'. ass-sg_main = 'I'. ass-sg_addy = space. ass
REPORT Ycompare MESSAGE-ID Z1 NO STANDARD PAGE HEADING LINE-SIZE 255. *---------------------------------------------------------------------** Topic: Compare 2 unix or pc files and print the differences**---------------------------------------------------------------------* DATA: BEGIN OF TAB1 OCCURS 0, LINE(5000), END OF TAB1. DATA: BEGIN OF TAB2 OCCURS 0, LINE(5000), END OF TAB2.DATA: PARCOM_LOC(100) TYPE C.DATA: COLOR TYPE I.DATA: COUNT(16) TYPE C. *-------------------------------------------------------------------** Parameters. **-------------------------------------------------------------------* SELECTION-SCREEN SKIP 2. PARAMETERS: PARCOM1(45) TYPE C LOWER CASE, PARCOM2(45) TYPE C LOWER CASE, PARCOM3 LIKE RLGRAP-FILENAME, PARCOM4 LIKE RLGRAP-FILENAME , P_PC RADIOBUTTON GROUP ONE, P_UNIX RADIOBUTTON GRO
*-- F4 help for Payroll AdministratorAT SELECTION SCREEN ON VALUE REQUEST FOR P_SACHA. PERFORM VALUES_SACHA.*-- F4 help for Pay Scale GroupAT SELECTION SCREEN ON VALUE REQUEST FOR P_TRFGR.*-- F4 help for Pay Scale LevelAT SELECTION SCREEN ON VALUE REQUEST FOR P_TRFST.*---------------------------------------------------------------------** FORM VALUES_SACHA*---------------------------------------------------------------------** Provide popup help for the Payroll Admin field*---------------------------------------------------------------------*FORM VALUES_SACHA. REFRESH: LTAB_DYNPSELECT, LTAB_DYNPVALUETAB. PERFORM READ_VALUE_FROM_SCREEN USING SY-REPID SY-DYNNR 'PA0001-WERKS' CHANGING LTAB_DYNPSELECT-FLDNAME LTAB_DYNPSELECT-FLDINH. APPEND LTAB_DYNPSELECT. LTAB_DYNPSELECT-FLDNAME = 'MANDT'. APPEND LTAB_DYNPSELECT. LTAB_DYNPSELECT-FLDNAME = 'SACHX'. APPEND LTAB_DYNPSELECT. PERFORM SHOW_HELP TABLES LTAB_DYNPSEL
ABAP/4 Program: Outstanding PO Report--------------------------------------------------------------------------------This report displays information for outstanding purchase orders. The report has two parts:one is the standard report, and the other is called from the Project Expense report. Note that both reportsoutput GL Account, cost center, and cost object information (from table EKKN) as a single value on the outputline. Actually, each line may have several cost centers and cost object to which the invoices were allocated;however, the user only wanted one (any one) to be listed.Standard Report: The standard report lists info (limited by selection criteria) for purchase order items whoseGR and IR are not equal. The report first accesses the header table EKKO, limited by purchasing group andpurchase order. It then accesses EKPO, limited by PO item and material selection criteria. An internal tablesums keeps subtotals of the related GR/IR quantities and values, read from EKBE, for th
* Left Column Scroll Lock just like Excel* Author by : SAP Hints and Tips on Configuration and ABAP/4 Programming* REPORT ZSCROLL NO STANDARD PAGE HEADING LINE-COUNT 4 LINE-SIZE 140.START-OF-SELECTION. DO 3 TIMES. WRITE: / '01234567890123456789'. DO 10 TIMES. WRITE sy-index. ENDDO. ENDDO. SET LEFT SCROLL-BOUNDARY COLUMN 21. DO 3 TIMES. WRITE: / '0123456789'. DO 10 TIMES. WRITE sy-index. ENDDO. ENDDO. SET LEFT SCROLL-BOUNDARY COLUMN 11.TOP-OF-PAGE. SY-TITLE = 'Column Locking'. WRITE: / SY-TITLE.*--- End of Program
Prevent user from submitting the same jobname ZXXX twicetables: tbtco.data: t_jobcnt(1) type n, t_sdluname like tbtco-sdluname, t_strtdate like tbtco-strtdate, t_strttime like tbtco-strttime.select * from tbtco where jobname = 'ZXXX' and strtdate = sy-datum and status = 'R'. t_jobcnt = t_jobcnt + 1. if t_jobcnt = 1. t_sdluname = tbtco-sdluname. t_strtdate = tbtco-strtdate. t_strttime = tbtco-strttime. endif.endselect.if sy-subrc = 0. if t_jobcnt < 1. message e123 with t_sdluname 'have execute the program on' t_strtdate t_strttime. endif.endif.
Hiding ABAP Source codePROGRAM ZHIDE NO STANDARD PAGE HEADING.************************************************************************* This program hides any ABAP's source code and protects it with a* password in this source code. So the first candidate to be hidden* should be ZHIDE itself.** After hiding, you can still run the abap (the load version is intact)* but it cannot be displayed, edited, traced, transported or generated.** If the ABAP is not hidden, the program hides it, if it is hidden, it* unhides it.** To execute this program, change the user name and password in this* source code first.************************************************************************SELECTION-SCREEN BEGIN OF BLOCK BLOCK.SELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN COMMENT 1(8) PWD.SELECTION-SCREEN POSITION 35.PARAMETERS: PASSWORD(8) MODIF ID AAA.SELECTION-SCREEN END OF LINE.PARAMETERS: PROGRAM(8).SELECTION-SCREEN END OF BLOCK BLOCK.*AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF SCREEN-GROUP
REPORT ZZBGS010 .*----------------------------------------------------------------------** Example: Interface between Microsoft Excel and ABAP/4 with up- and ** downloading of data plus executing Microsoft Excel. **----------------------------------------------------------------------*TABLES: USR04.DATA: SIZE TYPE I.DATA: BEGIN OF USER OCCURS 100. INCLUDE STRUCTURE USR04.DATA: END OF USER.* ---------------------------------------------------------------------** Example: Select some data into an internal table. ** ---------------------------------------------------------------------* SELECT * FROM USR04 INTO TABLE USER .* ---------------------------------------------------------------------** Example: Downloading data in Microsoft Excel Format with automatic ** prompt popup dialog. ** ---------------------------------------------------------------------* CALL FUNCTION 'DOWNLOAD' EXPORTING
The Seduction Kit$38.00After Coupon: $34.20Available at: bootyparlor.comValentine's Day is closing in fast ladies. Have all the cupids and hearts got you in a romantic state of mind? Perhaps a little trip to Booty Parlor is called for.Ok, so the name is a little cheesy, but when it comes to sexy gifts and goodies, Booty Parlor is the place to be. From cosmetics and lingerie designed to get you in a romantic state of mind, to slightly naughtier bits and baubles, Booty Parlor pretty much has it covered. And, for a limited time, you can take 10% off your entire order with this special Coupon Code.Not sure where to start? I suggest The Seduction Kit, a favorite of Hollywood hottie Jessica Biel. It has a little sampling of four of Booty Parlor's most popular items. Need gift ideas? Check out Booty Parlor's Valentine's Day Gift Guide. It's not too late: Booty Parlor offers instant e-Gift Certificates! Click on the photo to link directly to where you can purchase the Booty Parlor Seduction Ki
Susana Monaco Parker Dress$154.00After Coupon: $130.90Available at: fashionchateau.comIt's Monday again, ladies. I say start the week off right with a little sale shopping. For the month of February, online boutique Fashion Chateau is offering 15% off all orders with this special "sweetheart" Coupon Code. Fashion Chateau is stocked full of the hottest contemporary labels, but I have admit that I always go for their denim selection. It's easy to see why. They carry just about every style of True Religion under the sun, plus Rich & Skinny, People's Liberation, Taverniti So, and Diesel. And all of the "usual suspects," such as Sevens, Citizens, and Joe's. It's a designer denim wonderland. But, I actually bypassed the denim section this time around.On my way to the denim selection I got distracted by this fabulous find from the New Arrivals section. The Susana Monaco Fog Parker Dress is near perfection in my book. It's super flirty, without falling into tarty territory, and features al
Offer expires soon. Act Now!
Your FREE test identifies your career interests and then tells you what jobs are out there for you. Uncover the tasks, experience, education and training needed for your...
[[ This is a content summary only. Visit my website for full links, other content, and more! ]]
Starring:Tom Hanks ... Dr. Robert LangdonAudrey Tautou ... Agent Sophie NeveuIan McKellen ... Sir Leigh TeabingJean Reno ... Captain Bezu FachePaul Bettany ... SilasAlfred Molina ... Bishop Manuel AringarosaJürgen Prochnow ... Andre VernetJean-Yves Berteloot ... Remy JeanEtienne Chicot ... Lt. ColletJean-Pierre Marielle ... Jacques SaunièreMarie-Françoise Audollent ... Sister SandrineRita Davies ... Elegant Woman at RosslynFrancesco Carnelutti ... PrefectSeth Gabel ... MichaelShane Zaza ... Youth on BusDirector:Ron HowardWatch Part 1Watch Part 2Watch Part 3Watch Part 4Watch Part 5Watch Part 6Watch Part 7Watch Part 8Watch Part 9Watch Part 10Watch Part 11Watch Part 12Watch Part 13Watch Part 14
One of the most interesting and fascinating website I ever visited was something called as Lifelock.com promotion code.The lifelock.com promo code can guarantee your identity upto 1 million dollar.One of the specalities of lifelock promotion codes is that it is the number one theft detection and theft identity program in the United states.They have been lead by succesful business people and enterprenaur ship people and they are based in Temple Arizona.One can recieve discounts in this venture and to recieve the discounts just use the code RD9.They are backed up by one of the leading firms of the world and they serve many consumers in all of the Union and also Virgin Islands.With the Lifelock theft detection system the identity of yourself will be protected as soon as you become a member.Alerts will be placed on Lifelock promotion codes and the alert beaurau will alert the members associated here.With Lifelock you can give information about your identity and share information with them
One of the interesting things I ever read in the net was something called lifelock promotion codes.The Lifelock will guarantee your identity upto 1 million dollars and it is not only the most famous and popular but also the number one theft detection program which is available in the United states.The company is led by succesful enterpraneurs and also business leaders and are based in Arizona.They are backed up by one of the leading firms of the world and they serve many consumers in all of the Union and also Virgin Islands.Whenever you want to recieve discount you have to use the lifelock promo code RD11.The lifelock code is one of the safest and the easiest theft detection program ever encountered by me and you can save upto 21 dollars per year here as they are free for the first 30 days.With the Lifelock theft detection system the identity of yourself will be protected as soon as you become a member.Alerts will be placed on all of your four credits from the major credit beaurau.The
Tribeca "Be Nice" Pump$61.99After Coupon: $55.79Free ShippingAvailable at: heels.comThis week's river of Valentine's Day shopping love continues with a sweet deal for your V-Day shoe acquisitions. New to the game online shoe store Heels.com has just issued a Coupon Code that will score you an extra 10% off all of the shoes in their special Valentines' Day selection.The Heels.com Valentine's Day shoe section includes finds from Hollywould, Charles David, Jessica Simpson, Oh...Deer!, Vince Camuto, and more. Basically, it's a selection of the hottest shoes available in shades of Red, Pink, and Crimson. I'm smitten with the Tribeca "Be Nice" Pump. Glossy red patent with a ladylike bow feels just right for a romantic dinner evening.Click on the photo to link directly to where you can purchase the Tribeca "Be Nice" Pump online, or visit the entire Valentine's Day Collection at Heels.com. Make your selections, then copy-paste or type the Coupon Code below to receive an extra 10% off all of yo
There is something I read in the net called the lifelock promotion codes.Life long will guarantee your identity upto 1 million dollars.It is the number one theft identity and theft detection program in United states.To recieve discount you just have to use Lifelock promo code RD11.The company is led by succesful enterpraneurs and also business leaders and are based in Arizona.They are backed up by one of the leading firms of the world and they serve many consumers in all of the Union and also Virgin Islands.With the Lifelock theft detection system the identity of yourself will be protected as soon as you become a member.Alerts will be placed on all of your four credits from the major credit beaurau.Life lock code is one of the secure system for theft detection system.When you sign up with them you get 30 days free and you can save 21 dollars for the year.In lifelock they want to secure our identity that will help us get a good name and we can also share information on how we have been
Primp Sailboat Hoodie$140.00After Coupon: $112.00Free ShippingAvailable at: boutiquetoyou.comIt's a Happy Valentine's Day treat from online fashion playland Boutique to You. Through February 14, 2008, you can score an extra 20% off your entire order at BoutiqueToYou.com. Boutique to You specializes in stocking some of the more hard to find labels you see on your favorite celebrities. You'll find c.l.i.c.k. bags from Moe, Tolani scarves, Nation Ltd. tees, Claudia Lobao jewelry, and Hat Attack hats, just to name drop a few hot finds. Plus, you see candid pictures of celebs sporting the goods in question displayed right alongside the merchandise. It's like shopping and reading a celebrity fashion magazine all at the same time. And, for the next two weeks or so, it can all be yours for 20% off.Click on the photo to link directly to where you can purchase the Primp Sailboat Hoodie, as spotted on Paris Hilton, online. Or, visit the entire online store at BoutiqueToYou.com. Make your selectio
Is it possible to protect some parts of ABAP code in Z* programs from any modification? Details... I made some templates for rapid ABAP-report design. When I want to create new report, I make copy of template and write some abap code in predefined places. A simplified example: report z_my_report. perform select_data. perform output_data. form select_data. * Users can place code here * >>> * > *
Google has helped solved a problem that infects new social networks and applications–how to grow them, and fast.
Google on Friday released the Google Social Graph API, which will allows developers to write apps that can easily link up people on the Web. The API takes the publicly declared relationships about your accounts, on Twitter, MySpace.com, [...]
I have a super cool plan in the works and I’m not saying crap about it just yet but when its finished - I promise to share with you and I also promise there’ll be loads of treats and goodies ready and waiting for you!
Just stay cool and remember - always honour the code
Today is the last day of January, and is stepping towards February. What do you think is the most important thing in February? I am sure most of you must say the romance day in 14th – the "Valentine Day". It is the traditional day on which lovers express their love for each other; sending Valentine's cards, or gifting candy. It is very common to present flowers on Valentine's Day. The holiday is named after two among the numerous Early Christian martyrs named Valentine. The day became associated with romantic love in the circle of Geoffrey Chaucer in High Middle Ages, when the tradition of courtly love flourished. The day is most closely associated with the mutual exchange of love notes in the form of "valentines." Modern Valentine symbols include the heart-shaped outline and the figure of the winged Cupid.If you have your valentine, it's really the time for you to buy her/him a nice gift, in order to express how deep your love is. But many people say it is always hard to get a nice
With the booming amount of internet users and the increasing amount of online shops selling on kinds of tangible goods such as clothing,cds and even ipods,you,as an online shopper is spoilt for choice and this is still an understatement.But with so many shops and so many products,there might be a chance and risk that you might buy something above the normal price as it is the case when you are
Show All