31 lines
1.2 KiB
ABAP
31 lines
1.2 KiB
ABAP
REPORT A NO STANDARD
|
|
PAGE HEADING
|
|
LINE-SIZE
|
|
72.DATA:C(33),A LIKE
|
|
TABLE OF C,X(3333)
|
|
TYPE X,Y TYPE
|
|
XSTRING.DEFINE A.X+C
|
|
='&1'.C = C + 33.
|
|
END-OF-DEFINITION.
|
|
DEFINE B.LOOP AT A
|
|
INTO C &1 &2.WRITE
|
|
/ C.ENDLOOP.
|
|
END-OF-DEFINITION.
|
|
A FF060201020280003431303300000000AC030000121F9D02BB522ADA69108AA1C7 .
|
|
A E8B32FFEC07DD21907936962B28407983089732C8811FC4413FD02A7BFE6690B03 .
|
|
A 262F72B38EF69EB6A7A71C9F82CF44CC11469E081F86785777F269DE372CE9EC4B .
|
|
A 5E0A24D8224781128E290E1B7A0ECFF423BEDFD316B43B456FE9AD98E1F0401B31 .
|
|
A 9E11B3A23F3C865EEB6D028FD532BC69DED831F41DE6F0B59F745E604996373C97 .
|
|
A 982A2FA9F6C81A86164CCC98D4CC91D22E89AB9A1CCBEB6A97A839A5602BA26AFE .
|
|
A 7791BF4C2A9DBE6866134E093BD82CA291CF2A57EC67E81017384740EB33E6102A .
|
|
A 174784531EFEA076A29A7ACAD9EB55CED8316374D3E00D3DEC1CF36E4D4C4EE64E .
|
|
A 75B28DB568C195BA3DE92F9CC48AAAAF3A4DD9CC6BE899E27C18A3B66ECBF65093 .
|
|
A FFF1168545878AD10C4F075F588821EF947739516EBF7D99F5851D52F629E8D5AC .
|
|
A 13EF77291306AA6CABF7B56EC9E273F47997DA3FE146FB2A2C30E3BE22FEA603B4 .
|
|
A EDB5FBEE64A7637B35B46DD79491EEC2D1A19B26C0ADAAB2FB39F9050000000000 .
|
|
Y = X.IMPORT A = A
|
|
FROM DATA BUFFER Y.B
|
|
TO 13.C = 0.DO 12
|
|
TIMES.WRITE:/'A',
|
|
X+C(33),'.'.C = C +
|
|
33.ENDDO.B FROM 14.
|