REPO
RT
YUPL
OAD
LINE-
SIZE
255
NO
STAN
DAR
D
PAGE
HEAD
ING.
*
Perfor
mance
test
progra
m
* This
progra
m
uses
the
binary
file
record
ed by
the
*
sapgui
appser
v
syst.nu
mber
-rfile
*
comm
and
during
the
creatio
n of a
raw
materi
al:
*
login,
/nmmr
1,
enterin
g
materi
al
name,
industr
y
sector,
choosi
ng
*
basic
data,
enterin
g unit
of
measu
re and
materi
al
descri
ption,
saving
* and
logging
out
by
/nex.
* The
progra
m
multipli
es the
middle
-
busine
ss
transa
ction
- part
of the
*
binary
file
and
multipli
es it
with
differe
nt
materi
al
names
and
*
descri
ptions.
Also
display
s the
input
and
output
files in
the
*
followi
ng
format:
record
numbe
r,
offset,
length,
contin
uous
binary
* or
ascii
string.
This
data
will
help
to find
out
the
differe
nt
record
*
numbe
rs and
offsets
to
split
and
change
the
binary
file. (
77,
100,
*
162,
6 ... in
this
case).
* The
binary
result
can
be
replay
ed by
*
sapgui
appser
v
syst.nu
mber
-pfile
-an
DATA
:
BEGI
N OF
ITAB
OCC
URS
20,
LINE(
1)
TYPE
X,
END
OF
ITAB,
BEGI
N OF
BTAB
OCC
URS
20,
LENG
TH
TYPE
I,
LINE(
400)
TYPE
X,
END
OF
BTAB
,
BEGI
N OF
CTAB
OCC
URS
20,
LENG
TH
TYPE
I,
LINE(
400)
TYPE
X,
END
OF
CTAB
,
BEGI
N OF
IREC
OCC
URS
10,
LINE(
400)
TYPE
X,
END
OF
IREC,
LAST,
DSPS
TR(40
0),
MOD
E, A
TYPE
I,
POIN
TER
TYPE
I,
SUM
TYPE
I,
INDE
X
LIKE
SY-I
NDE
X,
MAT
ERIA
L(18).
*
upload
the
data
file
CALL
FUN
CTIO
N
'WS_
UPLO
AD'
EXPO
RTIN
G
FILE
NAM
E =
'c:\sap
gui\sap
gui\rec
mat'
FILET
YPE
=
'BIN'
TABL
ES
DATA
_TAB
=
ITAB.
* split
the
source
file to
contig
nuous
binary
and
text
strings
LAST
=
'B'.PO
INTE
R = 0.
LOOP
AT
ITAB.
A =
ITAB-
LINE.
IF A
>= 32
AND
A