【有学INFO的前辈找的不是编程的工作吗】萍聚社区-德国热线-德国实用信息网德国工作

karlfriedrich 发表于 2009-2-27 21:15

carmon 发表于 2009-2-27 21:27

掐你JB！看你皇上不急太监急的屌样儿～

傻逼～
黑爷发表于 2009-2-27 20:02 http://www.dolc.de/forum/images/common/back.gif

这就急啦？我还没针对你呢。这EQ啊，怪不得每个ID都玩不长。

karlfriedrich 发表于 2009-2-27 21:34

cobol就算了，虽然eclipse 支持，但是懒得下载了，何况abap就是从cobol来的。

abap倒是现成的。
abap 打印机测试代码
REPORT ZVUJDRUT.
**************************************
* Druckertest                      *
**************************************
*
SELECTION-SCREEN BEGIN OF BLOCK ULLI WITH FRAME TITLE TEXT-100.
* PARAMETERS Ausgabegeraet und Aufbereitung
SELECTION-SCREEN BEGIN OF BLOCK GERAET WITH FRAME TITLE TEXT-200.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS AGERAET LIKE TSP01-RQDEST OBLIGATORY.
SELECTION-SCREEN COMMENT 1(10) TEXT-210.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS AUFBER LIKE TSP1T-PAPART OBLIGATORY.
SELECTION-SCREEN COMMENT 1(10) TEXT-220.
SELECTION-SCREEN COMMENT 35(30) TEXT-221.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK GERAET.
* PARAMETERS Listengroesse
SELECTION-SCREEN BEGIN OF BLOCK GROSS WITH FRAME TITLE TEXT-300.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS HOCH(2) TYPE N DEFAULT 65.
SELECTION-SCREEN COMMENT 1(10) TEXT-310.
SELECTION-SCREEN COMMENT 20(30) TEXT-311.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS BREIT(3) TYPE N DEFAULT 80.
SELECTION-SCREEN COMMENT 1(10) TEXT-320.
SELECTION-SCREEN COMMENT 20(30) TEXT-321.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS SEITEN(5) TYPE N DEFAULT 1.
SELECTION-SCREEN COMMENT 1(10) TEXT-330.
SELECTION-SCREEN COMMENT 20(30) TEXT-331.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK GROSS.
* PARAMETERS rest
SELECTION-SCREEN BEGIN OF BLOCK REST WITH FRAME TITLE TEXT-400.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS STRESS(5) TYPE N DEFAULT 1.
SELECTION-SCREEN COMMENT 1(10) TEXT-410.
SELECTION-SCREEN COMMENT 20(30) TEXT-411.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS COMM_X(5) TYPE N DEFAULT 50.
SELECTION-SCREEN COMMENT 1(10) TEXT-420.
SELECTION-SCREEN COMMENT 20(30) TEXT-421.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
PARAMETERS SOFORT AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 1(10) TEXT-430.
SELECTION-SCREEN COMMENT 20(30) TEXT-431.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK REST.
SELECTION-SCREEN END OF BLOCK ULLI.
TABLES:TSP03,                      "Liste der Ausgabegeräte
      TSP06,                      "Aufbereitungsarten fuer Gerät
      T022D,                      "Print-Controls
      T100,                      "Nachrichtentexte
      USR03.                      "Benutzeradresswerte
DATA : BEGIN OF TESTZEICHEN OCCURS 50, "Testzeichenmuster
      TESTZ(80) TYPE C,
      END OF TESTZEICHEN.
DATA : BEGIN OF INFOTAB OCCURS 50, "Runtime- Infos
      INFO(80) TYPE C,
      END OF INFOTAB.
DATA : MESSAGE(256) TYPE C,       "Nachrichtenaufbereitung
      ZEILENZAEHLER LIKE HOCH,    "Zeilenanzahl
      ZYKLEN LIKE HOCH,
      AUTOMAT LIKE SOFORT VALUE ' ',
      ZYKLAKT(5) TYPE N,
      BARCODE LIKE HOCH,
      POSI LIKE BREIT,          "Spaltenanzahl
      SPALTI LIKE BREIT,
      VLNAME(12) TYPE C,          "Listenname
      COVERTEXT(68) TYPE C,       "Titel für Spoolauftrag
      EMPFAENGER(12) TYPE C,    "Empfänger der Liste
      ABTEILUNG(12) TYPE C,       "Abteilung des Empfängers
      AGTYPE LIKE TSP03-PATYPE, "Typ Ausgabegerät
      COMM_CNT LIKE COMM_X,       "Commit Counter
      ERROR TYPE N.             "Fehlerindikator
* Ueberpruefen der Eingabeparameter und evtl. Ruecksetzen auf Default
IF HOCH LT 40.
HOCH = 40.
ENDIF.
IF HOCH GT 90.
HOCH = 90.
ENDIF.
IF BREIT LT 80.
BREIT = 80.
ENDIF.
IF BREIT GT 255.
BREIT = 255.
ENDIF.
IF SEITEN LT 1.
SEITEN = 1.
ENDIF.
IF SEITEN GT 99999.
SEITEN = 1.
ENDIF.
ZYKLEN= HOCH - 3.
BARCODE = HOCH - 4.
ERROR = 0.                         "Reset Fehlerindikator
COMM_CNT = 0.                      "Reset Commit Counter
* Start- Nachricht
CLEAR INFOTAB.
PERFORM FUELLE_INFO USING 'iRuntime protocol ZVUJDRUT'.
PERFORM FUELLE_INFO USING 'i========================='.
CLEAR INFOTAB.
PERFORM FUELLE_INFO USING 'ninput parameters :'.
MOVE 'n output device    ' TO MESSAGE.
MOVE AGERAET TO MESSAGE+26.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n output format    ' TO MESSAGE.
MOVE AUFBER TO MESSAGE+26.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n length of list    ' TO MESSAGE.
IF HOCH NE 0.
MOVE HOCH TO MESSAGE+26.
ELSE.
MOVE '' TO MESSAGE+26.
ENDIF.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n width of list    ' TO MESSAGE.
IF BREIT NE 0.
MOVE BREIT TO MESSAGE+26.
ELSE.
MOVE ' ' TO MESSAGE+26.
ENDIF.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n number of pages    ' TO MESSAGE.
IF SEITEN NE 1.
MOVE SEITEN TO MESSAGE+26.
ELSE.
MOVE ' ' TO MESSAGE+26.
ENDIF.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n number of requests ' TO MESSAGE.
IF SEITEN NE 1.
MOVE STRESS TO MESSAGE+26.
ELSE.
MOVE ' ' TO MESSAGE+26.
ENDIF.
PERFORM FUELLE_INFO USING MESSAGE.
MOVE 'n print immediately ' TO MESSAGE.
MOVE SOFORT TO MESSAGE+26.
PERFORM FUELLE_INFO USING MESSAGE.
CLEAR INFOTAB.
* Aufbau des Titels für Spoolauftrag
MOVE 'SAP AG Walldorf printertest' TO COVERTEXT.
MOVE AGERAET TO COVERTEXT+31.
MOVE SY-UNAME TO COVERTEXT+38.
* Aufbau Empfänger und Abteilung für Spoolauftrag
MOVE SY-UNAME(12) TO EMPFAENGER.
SELECT * FROM USR03 WHERE
BNAME = SY-UNAME.
IF SY-SUBRC EQ 0.
MOVE USR03-ABTLG TO ABTEILUNG.
ENDIF.
ENDSELECT.
* Prüfung, ob Ausgabegerät vorhanden ist
CLEAR TSP03.
SELECT SINGLE * FROM TSP03
WHERE PADEST EQ AGERAET.
IF SY-SUBRC NE 0.
MOVE 'ioutput device' TO MESSAGE.
MOVE AGERAET TO MESSAGE+22.
MOVE 'not defined in system' TO MESSAGE+27.
MOVE SY-SYSID TO MESSAGE+67.
CONDENSE MESSAGE.
*perform fuelle_info using message.
ERROR = 1.
ELSE.
MOVE 'ntest output device' TO MESSAGE.
MOVE AGERAET TO MESSAGE+26.
MOVE '( type' TO MESSAGE+31.
MOVE TSP03-PATYPE TO MESSAGE+47.
MOVE ') in system' TO MESSAGE+57.
MOVE SY-SYSID TO MESSAGE+69.
CONDENSE MESSAGE.
*perform fuelle_info using message.
AGTYPE = TSP03-PATYPE.
ENDIF.
IF ERROR = 0.                      "Ausgabegerät ist vorhanden
* Fuellen der Testzeichentabelle
DO 5 TIMES.
PERFORM FUELL_TAB USING ' '.
ENDDO.
PERFORM FUELL_TAB USING
'---- SSSSSSSSS ---------- AA -------- PPPPPPPPPP --- -----------------'
.
PERFORM FUELL_TAB USING
'-- SSSSSSSSSSSSS ------- AAAA ------- PPPPPPPPPPP -- ---------------'.
PERFORM FUELL_TAB USING
'-- SSSSSS -- SS ------- AAAAAA ------ PPPP -- PPPP - -------------'.
PERFORM FUELL_TAB USING
'--- SSSSSSS ---------- AAAAAA ----- PPPP -- PPPP - -----------'.
PERFORM FUELL_TAB USING
'----- SSSSSSS ------- AAAAAAAAAA ---- PPPPPPPPPPP -- ---------'.
PERFORM FUELL_TAB USING
'------- SSSSSSS ---- AAAAAAAAAAAA --- PPPPPPPPPP --- -------'.
PERFORM FUELL_TAB USING
'-- SS --- SSSSSS -- AAAA ---- AAAA -- PPPP --------- -----'.
PERFORM FUELL_TAB USING
'- SSSSSSSSSSSSSS - AAAA ------ AAAA - PPPP --------- ---'.
PERFORM FUELL_TAB USING
'--- SSSSSSSSSS --- AAAA ------ AAAA - PPPP --------- -'.
DO 5 TIMES.
PERFORM FUELL_TAB USING ' '.
ENDDO.
PERFORM FUELL_TAB USING ' '.
PERFORM FUELL_TAB USING ' '.
PERFORM FUELL_TAB USING ' '.
PERFORM FUELL_TAB USING '    AaBbCc .. XxYyZz .. 1234567890'.
PERFORM FUELL_TAB USING '    [] ..... () ..... {} ..... <>'.
PERFORM FUELL_TAB USING '    AE Ää .. OE Öö .. UE Üü .. sz ß'.
PERFORM FUELL_TAB USING '    pipe |slash/backslash \'.
DO 60 TIMES.
PERFORM FUELL_TAB USING ' '.
ENDDO.
PERFORM BILDE_LISTNAME.
PERFORM AUSGABE.
ENDIF.
* Ausgabe der Runtime- Infos
PERFORM FUELLE_INFO USING 'ie n d of p r i n t e r t e s t'.
LOOP AT INFOTAB.
IF INFOTAB-INFO(1) EQ 'i'.
FORMAT INTENSIFIED.
ELSE.
FORMAT INTENSIFIED OFF.
ENDIF.
WRITE : / INFOTAB-INFO+1.
ENDLOOP.
*---------------------------------------------------------------------*
*    FORM FUELL_TAB                                              *
*---------------------------------------------------------------------*
*    Füllen der Liste (interne Tabelle)                         *
*---------------------------------------------------------------------*
*-->ZEICHEN                                                    *
*---------------------------------------------------------------------*
FORM FUELL_TAB USING ZEICHEN.
MOVE ZEICHEN TO TESTZEICHEN-TESTZ.
APPEND TESTZEICHEN.
ENDFORM.
*---------------------------------------------------------------------*
*    FORM FUELLE_INFO                                           *
*---------------------------------------------------------------------*
*    Füllen der Info- Tabelle                                  *
*---------------------------------------------------------------------*
*-->INFO                                                       *
*---------------------------------------------------------------------*
FORM FUELLE_INFO USING INFO.
MOVE INFO TO INFOTAB-INFO.
APPEND INFOTAB.
ENDFORM.
*---------------------------------------------------------------------*
*    FORM BILDE_LISTNAME                                        *
*---------------------------------------------------------------------*
*    Zusammenbauen des Listnamens                               *
*---------------------------------------------------------------------*
FORM BILDE_LISTNAME.
MOVE SY-UNAME(3) TO VLNAME(3).
MOVE '_' TO VLNAME+3(1).
MOVE HOCH(2) TO VLNAME+4(2).
MOVE '_' TO VLNAME+6(1).
MOVE BREIT(3) TO VLNAME+7(3).
ENDFORM.
*---------------------------------------------------------------------*
*    FORM CHECK_AUFBEREITUNG                                     *
*---------------------------------------------------------------------*
*    Test, ob Aufbereitungsart vorhanden ist                   *
*---------------------------------------------------------------------*
FORM CHECK_AUFBEREITUNG.
CLEAR TSP06.
SELECT * FROM TSP06
WHERE PDPTYPE EQ AGTYPE AND PDPAPER EQ AUFBER.
ENDSELECT.
IF SY-SUBRC NE 0.
MOVE 'ioutput format' TO MESSAGE.
MOVE AUFBER TO MESSAGE+18.
MOVE 'NOT available.' TO MESSAGE+38.
CONDENSE MESSAGE.
PERFORM FUELLE_INFO USING MESSAGE.
ERROR = 1.
ELSE.
MOVE 'noutput format' TO MESSAGE.
MOVE AUFBER TO MESSAGE+18.
MOVE 'available.' TO MESSAGE+38.
CONDENSE MESSAGE.
PERFORM FUELLE_INFO USING MESSAGE.
ERROR = 0.
EXIT.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
*    FORM AUSGABE                                              *
*---------------------------------------------------------------------*
*    Ausgabe einer Liste                                        *
*---------------------------------------------------------------------*
FORM AUSGABE.
DO STRESS TIMES.
MOVE BREIT TO SY-LINSZ.
* Erzeugen einzelner List- Typen gemäß Selektionsbild
NEW-PAGE PRINT ON
DESTINATION AGERAET
COVER TEXT COVERTEXT
SAP COVER PAGE ' '
IMMEDIATELY SOFORT
KEEP IN SPOOL ' '
NEW LIST IDENTIFICATION 'X'
DATASET EXPIRATION 1
LINE-COUNT HOCH
LINE-SIZE BREIT
LAYOUT AUFBER
RECEIVER EMPFAENGER
DEPARTMENT ABTEILUNG
NO DIALOG.
SY-PAGNO = 1.
FORMAT INTENSIFIED OFF.
DO SEITEN TIMES.                "Seitenschleife
   ZYKLAKT = SY-INDEX.
   DO BREIT TIMES.                "Punktzeile über Breite
   POSITION SY-INDEX.
   WRITE : '.'.
   ENDDO.
   POSI = 8.
   SPALTI = 10.
   DO.                            "Eintragen der Zehnerspalten
   POSITION POSI.
   WRITE SPALTI.
   POSI = POSI + 11.
   IF BREIT LE POSI.
      EXIT.
   ENDIF.
   POSI = POSI - 1.
   SPALTI = SPALTI + 10.
   ENDDO.
   ZYKLEN = HOCH - 3.
   DO ZYKLEN TIMES.             "Zeilenschleife
   ZEILENZAEHLER = SY-INDEX + 3.
   WRITE : / 'line', ZEILENZAEHLER.
   IF ZYKLAKT EQ 1.
* Erzeugen SAP- Logo und Zeichenübersicht wenn 1. Seite
      READ TABLE TESTZEICHEN INDEX ZEILENZAEHLER.
      IF SY-SUBRC = 0.
         IF TESTZEICHEN-TESTZ(1) = '-'.
         FORMAT INTENSIFIED.
         WRITE :10TESTZEICHEN-TESTZ.
         FORMAT INTENSIFIED OFF.
         ELSE.
         IF ZYKLAKT = 1.
            CASE ZEILENZAEHLER.
               WHEN 22.
               WRITE : 12 ' Color '
                  COLOR COL_BACKGROUND.
               WRITE : 28 'Intensified'
                  COLOR COL_BACKGROUND.
               WRITE : 44 'Intensified Off'
                  COLOR COL_BACKGROUND.
               WRITE : 60 ' Inverse '
                  COLOR COL_BACKGROUND.
               WHEN 23.
               WRITE : 12 'COL_BACKGROUND '
                  COLOR COL_BACKGROUND.
               WRITE : 28 '0123456789 '
                  COLOR COL_BACKGROUND INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_BACKGROUND INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_BACKGROUND INVERSE.
               WHEN 24.
               WRITE : 12 'COL_HEADING '
                  COLOR COL_HEADING.
               WRITE : 28 '0123456789 '
                  COLOR COL_HEADING INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_HEADING INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_HEADING INVERSE.
               WHEN 25.
               WRITE : 12 'COL_NORMAL '
                  COLOR COL_NORMAL.
               WRITE : 28 '0123456789 '
                  COLOR COL_NORMAL INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_NORMAL INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_NORMAL INVERSE.
               WHEN 26.
               WRITE : 12 'COL_TOTAL    '
                  COLOR COL_TOTAL.
               WRITE : 28 '0123456789 '
                  COLOR COL_TOTAL INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_TOTAL INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_TOTAL INVERSE.
               WHEN 27.
               WRITE : 12 'COL_KEY    '
                  COLOR COL_KEY.
               WRITE : 28 '0123456789 '
                  COLOR COL_KEY INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_KEY INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_KEY INVERSE.
               WHEN 28.
               WRITE : 12 'COL_POSITIVE '
                  COLOR COL_POSITIVE.
               WRITE : 28 '0123456789 '
                  COLOR COL_POSITIVE INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_POSITIVE INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_POSITIVE INVERSE.
               WHEN 29.
               WRITE : 12 'COL_NEGATIVE '
                  COLOR COL_NEGATIVE.
               WRITE : 28 '0123456789 '
                  COLOR COL_NEGATIVE INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_NEGATIVE INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_NEGATIVE INVERSE.
               WHEN 30.
               WRITE : 12 'COL_GROUP    '
                  COLOR COL_GROUP.
               WRITE : 28 '0123456789 '
                  COLOR COL_GROUP INTENSIFIED.
               WRITE : 44 '0123456789 '
                  COLOR COL_GROUP INTENSIFIED OFF.
               WRITE : 60 '0123456789 '
                  COLOR COL_GROUP INVERSE.
               WHEN BARCODE.
               WRITE : 12
               'Printertest SAP AG Walldorf.',
               'In case of problems please call'.
               WHEN HOCH.
               WRITE : 30 '+49 6227 7 41610'.
               WHEN OTHERS.
               WRITE :15TESTZEICHEN-TESTZ.
            ENDCASE.
         ELSE.
            WRITE :15TESTZEICHEN-TESTZ.
         ENDIF.
         ENDIF.
      ENDIF.
      IF ZEILENZAEHLER EQ 16.
         GET TIME.
         WRITE : 26 SY-DATUM, '', SY-UZEIT.
      ENDIF.
      IF ZEILENZAEHLER EQ 18.
         WRITE : 26 'R/3 system :', SY-SYSID.
      ENDIF.
      IF ZEILENZAEHLER EQ 19.
         WRITE : 26 'printername :', AGERAET.
      ENDIF.
      IF ZEILENZAEHLER EQ 20.
         WRITE : 26 'printertype :', AGTYPE.
      ENDIF.
      IF ZEILENZAEHLER EQ 21.
         WRITE : 26 'output format :', AUFBER.
      ENDIF.
   ELSE.
* Behandlung der Folgeseiten
      IF ZEILENZAEHLER+1(1) EQ 0 OR ZEILENZAEHLER EQ HOCH.
         DO BREIT TIMES.
         POSITION SY-INDEX.
         WRITE : '-'.
         ENDDO.
      ENDIF.
      IF ZEILENZAEHLER EQ HOCH.
         DO BREIT TIMES.
         POSITION SY-INDEX.
         WRITE : '+'.
         ENDDO.
      ENDIF.
   ENDIF.
* Behandlung aller Seiten
   IF ZEILENZAEHLER LT HOCH.
      IF SY-PAGNO GT 1.
         IF ZEILENZAEHLER EQ 13.
         GET TIME.
         WRITE : 30 SY-DATUM, '', SY-UZEIT.
         ENDIF.
         IF ZEILENZAEHLER EQ 15.
         WRITE : 30 'R/3 system ', SY-SYSID.
         ENDIF.
         IF ZEILENZAEHLER EQ 16.
         WRITE : 30 'printername', AGERAET.
         ENDIF.
         IF ZEILENZAEHLER EQ 17.
         WRITE : 30 'printertype', AGTYPE.
         ENDIF.
         IF ZEILENZAEHLER EQ 18.
         WRITE : 30 'output format', AUFBER.
         ENDIF.
      ENDIF.
      IF ZYKLAKT NE 1.          "Nur für 1. Seite
         POSI = 10.
         DO.                      "Eintragen der Spaltenzeichen
         POSITION POSI.
         IF ZEILENZAEHLER GE 12 AND ZEILENZAEHLER LE 18.
            IF POSI NE 30 AND
               POSI NE 40 AND
               POSI NE 50.
               WRITE '!'.
            ENDIF.
         ELSE.
            WRITE '!'.
         ENDIF.
         POSI = POSI + 10.
         IF POSI GT 80.
            EXIT.
         ENDIF.
         ENDDO.
      ENDIF.
      POSI = 90.
      DO.                      "Eintragen der Zehnerspalten
         IF BREIT LE POSI.
         EXIT.
         ENDIF.
         POSITION POSI.
         WRITE '!'.
         POSI = POSI + 10.
      ENDDO.
   ENDIF.
   POSITION BREIT.
   WRITE : '+'.
   ENDDO.
   IF SY-INDEX NE SEITEN.
   NEW-PAGE.
   ENDIF.
ENDDO.
NEW-PAGE PRINT OFF.
ADD 1 TO COMM_CNT.
IF COMM_CNT EQ COMM_X.
   COMMIT WORK.
   COMM_CNT = 0.
ENDIF.
ENDDO.
ENDFORM.

马屁精 发表于 2009-2-27 21:36

cobol就算了，虽然eclipse 支持，但是懒得下载了，何况abap就是从cobol来的。

abap倒是现成的。
abap 打印机测试代码
REPORT ZVUJDRUT.
**************************************
* Druckertest ...
karlfriedrich 发表于 2009-2-27 20:34 http://www.dolc.de/forum/images/common/back.gif
请不要刷屏{:5_309:}

karlfriedrich 发表于 2009-2-27 21:41

先做一个关于BI 的Market Analysis，或者讨论一下Value DNA。然后再show一段ABAP或者COBOL。JAVA也可以。

你选吧。BTW，我03年TU München 纯INFO。07年Insead的MBA。{:5_379:}
黑爷发表于 2009-2-27 18:08 http://www.dolc.de/forum/images/common/back.gif
这位兄弟不就是03年TU München 的INFO毕业。07年Insead的MBA毕业。
现在有可能在做sap的bi项目{:5_368:} ，不要骄傲，这些都只是学历，只是工作的敲门砖而已。
BI 的Market Analysis就算了，也不是一下就说做就能做的，不过几年前倒是做过几次,但是不是仅仅对BI的，还包括CRM,SCM,DW等等企业软件的市场分析的，很遗憾你是没机会看到的了，偶只是对董事会成员汇报而已。
讨论也就算了，没什么Thema。也懒得讨论。

karlfriedrich 发表于 2009-2-27 21:44

请不要刷屏{:5_309:}
马屁精发表于 2009-2-27 20:36 http://www.dolc.de/forum/images/common/back.gif
应要求贴abap的代码的，entschuldigung{:5_371:} ，不是有意，下次不这样了{:5_360:}

马屁精 发表于 2009-2-27 21:44

这位兄弟不就是03年TU München 的INFO毕业。07年Insead的MBA毕业。
现在有可能在做sap的bi项目{:5_368:} ，不要骄傲，这些都只是学历，只是工作的敲门砖而已。
BI 的Market Analysis就算了，也不是一下就说做就 ...
karlfriedrich 发表于 2009-2-27 20:41 http://www.dolc.de/forum/images/common/back.gif
萍聚的各位，一个比一个牛X嘛

karlfriedrich 发表于 2009-2-27 21:51

萍聚的各位，一个比一个牛X嘛
马屁精发表于 2009-2-27 20:44 http://www.dolc.de/forum/images/common/back.gif
做Market Analysis算牛X吗？就是报告而已嘛，谁都会的，呵呵
第一次不会，多做几次就会了嘛！买油翁都说嘛，无他，唯手熟尔

carmon 发表于 2009-2-27 22:01

应要求贴abap的代码的，entschuldigung{:5_371:} ，不是有意，下次不这样了{:5_360:}
karlfriedrich 发表于 2009-2-27 20:44 http://www.dolc.de/forum/images/common/back.gif

谁让你贴了谁让你帖了，我看的都累。

人家可是TUM毕业，还读过MBA哦，你要对人家温柔点。

我还没见过网上掐架先报自己学校呢，我幼儿园上的都是刘伯承题词的呢~ 切

马屁精 发表于 2009-2-27 22:02

做Market Analysis算牛X吗？就是报告而已嘛，谁都会的，呵呵
第一次不会，多做几次就会了嘛！买油翁都说嘛，无他，唯手熟尔
karlfriedrich 发表于 2009-2-27 20:51 http://www.dolc.de/forum/images/common/back.gif
能直接给董事会报告的人，级别肯定不低的，难道你不牛X吗？

karlfriedrich 发表于 2009-2-27 22:09

能直接给董事会报告的人，级别肯定不低的，难道你不牛X吗？
马屁精发表于 2009-2-27 21:02 http://www.dolc.de/forum/images/common/back.gif
我不牛X，董事会的人只是没时间做分析报告而已
混久了跟董事会熟悉了，他们了解你了，自然就会让你给他们跑腿儿做事
董事会的人个个才是牛x的人呢

马屁精 发表于 2009-2-27 22:11

我不牛X，董事会的人只是没时间做分析报告而已
混久了跟董事会熟悉了，他们了解你了，自然就会让你给他们跑腿儿做事
董事会的人个个才是牛x的人呢
karlfriedrich 发表于 2009-2-27 21:09 http://www.dolc.de/forum/images/common/back.gif
你们的公司有几个员工啊？什么级别能直接接触董事会啊？

karlfriedrich 发表于 2009-2-27 22:11

谁让你贴了谁让你帖了，我看的都累。

人家可是TUM毕业，还读过MBA哦，你要对人家温柔点。

我还没见过网上掐架先报自己学校呢，我幼儿园上的都是刘伯承题词的呢~ 切
carmon 发表于 2009-2-27 21:01 http://www.dolc.de/forum/images/common/back.gif
今天见过了吧？{:5_368:}，以后不能在说没见过了啊{:5_388:}

马屁精 发表于 2009-2-27 22:13

谁让你贴了谁让你帖了，我看的都累。

人家可是TUM毕业，还读过MBA哦，你要对人家温柔点。

我还没见过网上掐架先报自己学校呢，我幼儿园上的都是刘伯承题词的呢~ 切
carmon 发表于 2009-2-27 21:01 http://www.dolc.de/forum/images/common/back.gif
你是不是女士啊？说话好那个哦

karlfriedrich 发表于 2009-2-27 22:18

你们的公司有几个员工啊？什么级别能直接接触董事会啊？
马屁精发表于 2009-2-27 21:11 http://www.dolc.de/forum/images/common/back.gif
没几个，5K，不到6K
第二个问题就难说了，普通销售人员也有机会，如果一个销售人员一年的业绩在100million以上估计就有机会
管理级别就不说了，说了也没意思

黑爷发表于 2009-2-27 22:41

马屁精 发表于 2009-2-27 22:46

小牛军队 发表于 2009-2-27 23:41

听你的口气，级别肯定不低啊，现在的工资一个月1W欧至少啊
马屁精发表于 2009-2-27 21:46 http://www.dolc.de/forum/images/common/back.gif

这位童鞋不厚道，一句话把人给吓跑了。。。

小牛军队 发表于 2009-2-27 23:50

没几个，5K，不到6K
第二个问题就难说了，普通销售人员也有机会，如果一个销售人员一年的业绩在100million以上估计就有机会
管理级别就不说了，说了也没意思
karlfriedrich 发表于 2009-2-27 21:18 http://www.dolc.de/forum/images/common/back.gif

小兄弟，吹牛不是本事，把牛给吹圆了，吹顺了才是本事。。。要是让你们公司HR的头看到你写的这段话，估计他得憋死。。。5k大小的公司，1亿欧元以上的年销售额才有机会见董事会成员，这人才管理机制也算是比较出彩了。。。

karlfriedrich 发表于 2009-2-27 23:56

呵呵～
黑爷发表于 2009-2-27 21:41 http://www.dolc.de/forum/images/common/back.gif
再给你来段规范的。没谁规定不能用德语的吧？

function /bkc/rfc_insert_master_data.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(INFOTYPE) LIKE /BKC/S21_INFTY STRUCTURE /BKC/S21_INFTY
*" TABLES
*" STAMM_TAB STRUCTURE /BKC/S21_STAMM
*" EXCEPTIONS
*" PERNR_UPDATE_ERROR
*"----------------------------------------------------------------------
data: tabname type tabname, " 2.7.1
tab_

carmon 发表于 2009-2-27 23:57

你是不是女士啊？说话好那个哦
马屁精发表于 2009-2-27 21:13 http://www.dolc.de/forum/images/common/back.gif

又是个马甲，一边玩去~

黑爷发表于 2009-2-28 01:17

wanxg 发表于 2009-2-28 01:47

我的工作是编程。但学校一起学INFO方面的女生，可以高分通过考试，理论上明白，但实际操作能力很差，因为编程不是光学校学点理论就够了，要有兴趣不断练习提升，才能很好的运用。这个专业3年不碰不提高，之前学的都过 ...
smtp 发表于 2009-2-27 16:20 http://www.dolc.de/forum/images/common/back.gif

很多中国人选择专业不是因为兴趣，而是觉得学计算机酷，以后好找工作。但Info这个专业没有兴趣根本学不好，学校里是不会教你编程的，都要自己去学。很多女生完全不喜欢编程，也学Info，我们系的中国女生总数比所有外国女生都多。但大部分都是为了一张文凭，都对编程深恶痛绝。所以这个帖子的问题对她们来说非常经典。

马屁精 发表于 2009-2-28 01:47

很多中国人选择专业不是因为兴趣，而是觉得学计算机酷，以后好找工作。但Info这个专业没有兴趣根本学不好，学校里是不会教你编程的，都要自己去学。很多女生完全不喜欢编程，也学Info，我们系的中国女生总数比所 ...
wanxg 发表于 2009-2-28 00:47 http://www.dolc.de/forum/images/common/back.gif
学校不教，谁来教啊

chinapope 发表于 2009-2-28 09:18

教的是基础，是可以通过书本自学。编程实践对人的EQ也是一种锻炼，首先要自己找问题，formulieren问题，最后才是解决问题。我觉得女生（部分）不是不喜欢或能力上不行，而是不习惯编程工作方式或流程。再说，国内应试教育。。。

baobaoXXL 发表于 2009-2-28 10:17

可做Projectleiter

wyxlisa 发表于 2009-2-28 10:36

非常感谢大家积极回帖！我是想请有经验的前辈指点一下儿，比如除了Entwickler 还可以申请什么样的职位。
如果哪位想进行类似什么比武之类的，还是请另开贴吧！
个人觉得，编程的确不适合女生长期做. 说错了的话，轻点儿拍吧！{:4_279:}

很红很革命 发表于 2009-2-28 10:42

88# wyxlisa

对，不适合。脸上容易长痘

楼主发表于 2009-2-28 10:55

唉, 怎么聊着聊着打起来了, 其实我觉得info的精髓还是算法, 比编程语言谁会谁不会分不出高低的, 效率高才是王道, 学info就应该无时无刻的考虑优化, 算法有优化, sql有优化, 连正规式都能优化.

葱白小小 发表于 2009-2-28 10:57

88# wyxlisa

对，不适合。脸上容易长痘
很红很革命发表于 2009-2-28 09:42 http://www.dolc.de/forum/images/common/back.gif
敷着面膜上 {:4_283:}

页: 1 2 [3] 4

萍聚社区-德国热线-德国实用信息网's Archiver