This is a test page for the syntax highlighter CSS/JS library. Just sorround the code with “<pre class=”brush: abap”></pre>” tags. class can be: cpp, csharp and many others. Inspect the code below.
ABAP Example
*----------------------------------------------------------------------*
* INCLUDE ZZMOB_PRINTETIKFUNC .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form titel_setzen
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM titel_setzen.
DATA: beschr LIKE d020t-dtxt.
SELECT SINGLE dtxt FROM d020t INTO beschr
WHERE prog = sy-repid
AND dynr = sy-dynnr
AND lang = sy-langu.
IF sy-subrc = 0.
SET TITLEBAR 'TIT' WITH sy-dynnr beschr.
ELSE.
SET TITLEBAR 'TIT' WITH sy-dynnr '??????'.
ENDIF.
ENDFORM. " titel_setzen
*&---------------------------------------------------------------------*
*& Form MATNR_pruefen
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM matnr_pruefen.
CLEAR gl_matnr.
SHIFT matnr LEFT DELETING LEADING space.
IF matnr(1) = '/'.
SHIFT matnr LEFT BY 2 PLACES.
laenge = strlen( matnr ).
laenge = laenge - 1.
matnr = matnr(laenge).
ENDIF.
SELECT SINGLE * FROM mara WHERE matnr = matnr.
IF sy-subrc <> 0.
IF sy-langu = 'D'.
CONCATENATE 'Material' matnr
'in Tabelle MARA nicht gefunden!'
INTO fehlermeldung SEPARATED BY space.
ELSE.
CONCATENATE 'material' matnr
'not found (in table MARA)!'
INTO fehlermeldung SEPARATED BY space.
ENDIF.
CALL SCREEN '9000'.
SET CURSOR FIELD 'MATNR'.
EXIT.
ELSE.
meins = mara-meins.
* Materialtext ermitteln
SELECT SINGLE maktx INTO (makt-maktx)
FROM makt
WHERE matnr = matnr
AND spras = sy-langu.
IF sy-subrc = 0.
maktx1 = makt-maktx(20).
maktx2 = makt-maktx+20(20).
SHIFT maktx2 LEFT DELETING LEADING space.
ENDIF.
ENDIF.
* SELECT SINGLE * FROM marc WHERE matnr = matnr AND werks = gl_werks.
* IF sy-subrc <> 0.
* IF sy-langu = 'D'.
* CONCATENATE 'Material' matnr
* 'in Werk' gl_werks 'nicht gefunden!'
* INTO fehlermeldung SEPARATED BY space.
* ELSE.
* CONCATENATE 'Missing material' matnr
* 'in plant' gl_werks
* INTO fehlermeldung SEPARATED BY space.
* ENDIF.
* CALL SCREEN '9000'.
* SET CURSOR FIELD 'MATNR'.
* ELSE.
** Gibt's das Zeuchs überhaupt auf diesem Lagerort?
* SELECT SINGLE pstat INTO mard-pstat
* FROM mard
* WHERE matnr = matnr
* AND werks = gl_werks
* AND lgort = gl_lgort.
* IF sy-subrc <> 0.
* IF sy-langu = 'D'.
* CONCATENATE 'Material' matnr
* 'im Lagerort' gl_lgort 'nicht gefunden!'
* INTO fehlermeldung SEPARATED BY space.
* ELSE.
* CONCATENATE 'Missing material' matnr
* 'in storage location' gl_lgort
* INTO fehlermeldung SEPARATED BY space.
* ENDIF.
* CALL SCREEN '9000'.
* SET CURSOR FIELD 'MATNR'.
* ELSE.
* meins = mara-meins.
* ENDIF.
* ENDIF.
ENDFORM. " MATNR_pruefen
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
FORM zk_zerlegen_20 CHANGING ori_txt TYPE any teil_txt TYPE any.
DATA: h_pos TYPE i,
h_i TYPE i,
h_l TYPE i.
* h_pos = 0.
* do.
* search ori_txt for ' '.
* if sy-subrc = 0.
* if sy-fdpos > 20.
* if h_pos = 0.
* h_pos = 20.
* endif.
* exit.
* else.
* h_pos = sy-fdpos.
* endif.
* else.
* h_pos = 20.
* exit.
* endif.
* enddo.
*
* teil_txt = ori_txt(h_pos).
* SHIFT ori_txt BY h_pos PLACES left.
*
h_pos = 0.
h_i = 0.
CONDENSE ori_txt.
h_l = strlen( ori_txt ).
DO.
h_i = h_i + 1.
IF ( ( h_i > 20 ) OR ( h_i > h_l ) ).
EXIT.
ENDIF.
IF ori_txt+h_i(1) = ' '.
h_pos = h_i.
ENDIF.
ENDDO.
IF h_pos = 0.
h_pos = 20.
ENDIF.
teil_txt = ori_txt(h_pos).
SHIFT ori_txt BY h_pos PLACES LEFT.
ENDFORM. "zk_zerlegen_20
*&---------------------------------------------------------------------*
*& Form SPOOL_ERZEUGEN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_SY text
* -->P_SPOOL_NAME text
*----------------------------------------------------------------------*
FORM spool_erzeugen USING p_spool_name p_message.
DATA: hilfe_message(110) TYPE c.
NEW-PAGE NO-HEADING NO-TITLE LINE-SIZE 120 LINE-COUNT 90
PRINT ON KEEP IN SPOOL 'X'
LIST NAME p_spool_name
NEW LIST IDENTIFICATION 'X'
NEW-SECTION
NO DIALOG
IMMEDIATELY ' '
DESTINATION 'PRT_LOKAL'. "irgendeinen Drucker angeben
WRITE: / p_spool_name.
ULINE.
WRITE: / p_message.
NEW-PAGE PRINT OFF.
ENDFORM. " SPOOL_ERZEUGEN
*&---------------------------------------------------------------------*
*& Form etikett_drucken_100
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM etikett_drucken_100.
DATA: h_options LIKE itcpo.
SELECT SINGLE * FROM mara WHERE matnr = matnr.
h_spras = 'E'.
PERFORM get_maktx USING h_spras
matnr
CHANGING makt-maktx.
CLEAR gl_drucker.
SELECT SINGLE zzldest INTO gl_drucker FROM zzlewm_pdest
WHERE uname = sy-uname.
IF sy-subrc <> 0.
gl_subrc = sy-subrc.
IF sy-langu = 'D'.
CONCATENATE 'Benutzer' sy-uname 'in Tabelle zzlewm_pdest'
'nicht vorhanden!'
'Fehler:' gl_subrc
INTO fehlermeldung SEPARATED BY space.
ELSE.
CONCATENATE 'User' sy-uname 'in Table zzlewm_pdest'
'not found!'
'Error:' gl_subrc
INTO fehlermeldung SEPARATED BY space.
ENDIF.
CALL SCREEN '9000'.
EXIT.
ENDIF.
* gl_drucker = 'LP01'.
MOVE: menge TO ltap-vsolm,
meins TO ltap-meins.
CLEAR h_options.
h_options-tddest = gl_drucker.
h_options-tdnewid = 'X'.
h_options-tdimmed = 'X'.
h_options-tddelete = 'X'.
* BEGIN CHANGE P002
* this adjustment didn't work => commented out
* => see other changes marked by P002!
*BEGIN INS P001
*Versorgen der Anzahl Etiketten
* h_options-tdcopies = anzeti.
*END INS P001
* END CHANGE P002
* CALL FUNCTION 'OPEN_FORM'
* EXPORTING
** APPLICATION = 'TX'
** ARCHIVE_INDEX =
** ARCHIVE_PARAMS =
* DIALOG = ''
* OPTIONS = h_options
** MAIL_SENDER =
** MAIL_RECIPIENT =
** MAIL_APPL_OBJECT =
** RAW_DATA_INTERFACE = '*'
* form = 'ZZLEWM_MAT_ETIK2'
* language = h_spras
** device = 'PRINTER'
** gl_drucker
** IMPORTING
** LANGUAGE =
** NEW_ARCHIVE_PARAMS =
** RESULT =
* EXCEPTIONS
* canceled = 1
* device = 2
* form = 3
* options = 4
* unclosed = 5
* mail_options = 6
* archive_error = 7
* invalid_fax_number = 8
* more_params_needed_in_batch = 9
* spool_error = 10
* OTHERS = 11.
*
* IF sy-subrc = 0.
*
* DO anzeti TIMES.
*
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = 'PICKERL'
** FUNCTION = 'SET'
** TYPE = 'BODY'
** WINDOW = 'MAIN'
** IMPORTING
** PENDING_LINES =
* EXCEPTIONS
* element = 1
* function = 2
* type = 3
* unopened = 4
* unstarted = 5
* window = 6
* bad_pageformat_for_print = 7
* spool_error = 8
* OTHERS = 9.
*
* IF sy-subrc <> 0.
* gl_subrc = sy-subrc.
* IF sy-langu = 'D'.
* CONCATENATE 'Drucker-Problem!'
* 'Fehler:' gl_subrc
* INTO fehlermeldung SEPARATED BY space.
* ELSE.
* CONCATENATE 'Printing-Problem!'
* 'Error:' gl_subrc
* INTO fehlermeldung SEPARATED BY space.
* ENDIF.
* CALL SCREEN '9000'.
*
* EXIT.
* ENDIF.
*
* ENDDO.
*
* CALL FUNCTION 'CLOSE_FORM'.
DO anzeti TIMES. "P002
* Druck Smartforms
CALL FUNCTION 'Z_LEWM_LABEL_ZEBRA'
EXPORTING
imp_matnr = matnr
imp_vsolm = ltap-vsolm
imp_meins = ltap-meins
imp_itcpo = h_options
imp_spras = 'E'
imp_dialog = space
* IMP_VKORG = 0202
* IMP_VTWEG = 00
* IMPORTING
* EXP_RETURN =
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
gl_subrc = sy-subrc.
IF sy-langu = 'D'.
CONCATENATE 'Drucker-Problem!'
'Fehler:' gl_subrc
INTO fehlermeldung SEPARATED BY space.
ELSE.
CONCATENATE 'Printing-Problem!'
'Error:' gl_subrc
INTO fehlermeldung SEPARATED BY space.
ENDIF.
CALL SCREEN '9000'.
EXIT.
ENDIF.
ENDDO. "P002
* ELSE.
* gl_subrc = sy-subrc.
* IF sy-langu = 'D'.
* CONCATENATE 'Druck funktioniert nicht richtig!'
* 'Fehler:' gl_subrc
* INTO fehlermeldung SEPARATED BY space.
* ELSE.
* CONCATENATE 'Printer seems dead!'
* 'Error:' gl_subrc
* INTO fehlermeldung SEPARATED BY space.
* ENDIF.
* CALL SCREEN '9000'.
* ENDIF.
ENDFORM. " etikett_drucken_100
*&---------------------------------------------------------------------*
*& Form get_maktx
*&---------------------------------------------------------------------*
FORM get_maktx USING value(us_spras)
value(us_matnr)
CHANGING value(us_maktx).
DATA: lf_id LIKE thead-tdid.
DATA: lf_language LIKE thead-tdspras.
DATA: lf_name LIKE thead-tdname.
DATA: lf_object LIKE thead-tdobject.
DATA: lt_lines LIKE tline OCCURS 0 WITH HEADER LINE.
CLEAR makt.
SELECT SINGLE * FROM makt WHERE spras = us_spras
AND matnr = us_matnr.
us_maktx = makt-maktx.
lf_id = '0001'.
lf_language = us_spras.
lf_name+00(18) = us_matnr.
lf_name+18(06) = '020200'.
lf_object = 'MVKE'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = lf_id
language = lf_language
name = lf_name
object = lf_object
TABLES
lines = lt_lines
EXCEPTIONS
OTHERS = 4.
.
CHECK sy-subrc = 0.
READ TABLE lt_lines INDEX 1.
IF lt_lines-tdline(31) NE space.
us_maktx = lt_lines-tdline(31).
ENDIF.
ENDFORM.
C++ Example
#include
#include
using namespace std;
int main() {
float a, b, c, x1, x2, discriminant, realPart, imaginaryPart;
cout << "Enter coefficients a, b and c: ";
cin >> a >> b >> c;
discriminant = b*b - 4*a*c;
if (discriminant > 0) {
x1 = (-b + sqrt(discriminant)) / (2*a);
x2 = (-b - sqrt(discriminant)) / (2*a);
cout << "Roots are real and different." << endl;
cout << "x1 = " << x1 << endl;
cout << "x2 = " << x2 << endl;
}
else if (discriminant == 0) {
cout << "Roots are real and same." << endl;
x1 = (-b + sqrt(discriminant)) / (2*a);
cout << "x1 = x2 =" << x1 << endl;
}
else {
realPart = -b/(2*a);
imaginaryPart =sqrt(-discriminant)/(2*a);
cout << "Roots are complex and different." << endl;
cout << "x1 = " << realPart << "+" << imaginaryPart << "i" << endl;
cout << "x2 = " << realPart << "-" << imaginaryPart << "i" << endl;
}
return 0;
}
public class MyClass
{
public string myField = string.Empty;
public MyClass()
{
}
public void MyMethod(int parameter1, string parameter2)
{
Console.WriteLine("First Parameter {0}, second parameter {1}",
parameter1, parameter2);
}
public int MyAutoImplementedProperty { get; set; }
private int myPropertyVar;
public int MyProperty
{
get { return myPropertyVar; }
set { myPropertyVar = value; }
}
}
using System;
using Netica;
namespace NeticaDemo
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Welcome to Netica API for C# !");
Netica.ApplicationClass app = new Netica.ApplicationClass();
app.Visible = true;
string net_file_name = AppDomain.CurrentDomain.BaseDirectory + "..\\..\\..\\ChestClinic.dne";
Streamer file = app.NewStream(net_file_name, null);
BNet net = app.ReadBNet(file, "");
net.Compile();
BNode TB = net.Nodes.get_Item("Tuberculosis");
double bel = TB.GetBelief("present");
Console.WriteLine("The probability of tuberculosis is " + bel.ToString("G4"));
BNode XRay = net.Nodes.get_Item("XRay");
XRay.EnterFinding("abnormal");
bel = TB.GetBelief("present");
Console.WriteLine("Given an abnormal X-Ray, the probability of tuberculosis is " + bel.ToString("G4"));
net.Nodes.get_Item("VisitAsia").EnterFinding("visit");
bel = TB.GetBelief("present");
Console.WriteLine("Given abnormal X-Ray and visit to Asia, the probability of TB is " +
bel.ToString("G4"));
net.Nodes.get_Item("Cancer").EnterFinding("present");
bel = TB.GetBelief("present");
Console.WriteLine("Given abnormal X-Ray, Asia visit, and lung cancer, the probability of TB is
" + bel.ToString("G4"));
net.Delete();
if (!app.UserControl) app.Quit();
Console.WriteLine("Press to quit.");
Console.ReadLine();
}
}
}
// C# program to define various types of constants
using System;
using System.IO;
using System.Text;
namespace IncludeHelp
{
class Test
{
// Main Method
static void Main(string[] args)
{
const int a = 10; //integer constant
const float b = 20.23f; //float constant
const double c = 10.23; //double constant
const char d = 'Y'; //character constant
const string e = "Hello"; //string constant
//printing values
Console.WriteLine("a: {0}", a);
Console.WriteLine("b: {0}", b);
Console.WriteLine("c: {0}", c);
Console.WriteLine("d: {0}", d);
Console.WriteLine("e: {0}", e);
//hit ENTER to exit the program
Console.ReadLine();
}
}
}