Forum SAP
Aide programme ABAP BC400 |
marie claire
---.fbx.proxad.net
04-11-2007 02:16
|
Bonjour. Je suis un débutant.
J'ai un MINI WAS620 à a maison et j'essaie de m'en sortir, mais c'est dur.
J'ai des exercices suivants qui ne marchent pas avec ma version.
Par quoi dois-je remplacer les lignes de code contenant BC400 ?
Merci de m'aider.
Voici les exos.
_________________________________________
EXo1:
REPORT zbc400_e07_array_fetch.
DATA : lspfli TYPE zbc400_s_spfli,
tspfli TYPE zbc400_t_spfli.
START-OF-SELECTION.
SELECT * FROM spfli
INTO CORRESPONDING FIELDS
OF TABLE tspfli.
LOOP AT tspfli INTO lspfli.
WRITE: /3 lspfli-carrid,
lspfli-connid,
lspfli-cityfrom,
lspfli-cityto,
lspfli-deptime,
lspfli-arrtime.
ENDLOOP.
_________________________________________
EXO2:
REPORT zbc400_e08_append.
DATA : lspfli TYPE zbc400_s_spfli,
tspfli TYPE zbc400_t_spfli.
START-OF-SELECTION.
* APPEND : on ajoute ligne à ligne
SELECT * FROM spfli
INTO CORRESPONDING FIELDS
OF lspfli.
APPEND lspfli TO tspfli.
ENDSELECT.
LOOP AT tspfli INTO lspfli.
WRITE: /3 lspfli-carrid,
lspfli-connid,
lspfli-cityfrom,
lspfli-cityto,
lspfli-deptime,
lspfli-arrtime.
ENDLOOP.
_________________________________________
EXO3:
REPORT zbc400_e09_percentage.
DATA : tfocc TYPE sbc400_t_sbc400focc,
lfocc TYPE sbc400focc.
START-OF-SELECTION.
SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO TABLE tfocc.
LOOP AT tfocc INTO lfocc.
IF lfocc-seatsmax NE 0.
lfocc-percentage = lfocc-seatsocc * 100 / lfocc-seatsmax.
ENDIF.
WRITE: /3 lfocc-carrid,
lfocc-connid,
lfocc-fldate,
lfocc-seatsmax,
lfocc-seatsocc,
lfocc-percentage,
'%'.
ENDLOOP.
_________________________________________
EXO4:
* reprise de zones de la structure SBC400FOCC
TYPES: BEGIN OF ty_s_focc,
carrid TYPE sbc400focc-carrid,
connid TYPE sbc400focc-connid,
fldate TYPE sbc400focc-fldate,
seatsmax TYPE sbc400focc-seatsmax,
seatsocc TYPE sbc400focc-seatsocc,
percentage TYPE sbc400focc-percentage,
* on ajoute la couleur
couleur TYPE i,
END OF ty_s_focc,
ty_t_focc TYPE STANDARD TABLE OF ty_s_focc.
DATA : tfocc TYPE ty_t_focc,
lfocc TYPE ty_s_focc.
START-OF-SELECTION.
SELECT * FROM sflight
INTO CORRESPONDING FIELDS
OF TABLE tfocc.
LOOP AT tfocc INTO lfocc.
CALL FUNCTION 'BC400_PERCENTAGE'
EXPORTING
seatsmax = lfocc-seatsmax
seatsocc = lfocc-seatsocc
IMPORTING
percentage = lfocc-percentage
EXCEPTIONS
division_by_zero = 6 " pour couleur rouge
occ_gt_max = 3 " couleur jaune
OTHERS = 1. " je plante le prog
CASE sy-subrc.
WHEN 0. lfocc-couleur = 2.
WHEN 6 OR 3.
lfocc-couleur = sy-subrc.
WHEN 1.
MESSAGE 'Autre exception' TYPE 'A'.
ENDCASE.
MODIFY tfocc FROM lfocc INDEX sy-tabix
TRANSPORTING percentage
couleur.
ENDLOOP.
SORT tfocc BY percentage DESCENDING.
LOOP AT tfocc INTO lfocc.
FORMAT RESET INTENSIFIED.
WRITE: /3 lfocc-carrid,
lfocc-connid,
lfocc-fldate,
lfocc-seatsmax COLOR = lfocc-couleur,
lfocc-seatsocc COLOR = lfocc-couleur,
lfocc-percentage COLOR = lfocc-couleur.
ENDLOOP.
_________________________________________
|
|
|
|
reseauetudiant
--.reseauetudiant.com
00-00-0000 00:00
|
|
|
RÉGLEMENTS DU FORUM
-N'écrivez PAS de messages identiques/dupliqués sur les forums du Réseau Étudiant
( pour afficher de la publicité sur le Réseau Étudiant, cliquez ici )
-Écrivez vos messages dans les forums les plus appropriés possible
( Index des forums / Recherche de forums )
-Évitez d'écrire des messages qui sont hors sujet avec la discussion en cours,
débutez plutôt une nouvelle discussion
(en cliquant sur le bouton rouge "Écrire Nouveau Sujet" tout en haut à gauche)
|
|
|
