Räßap

Tables:
DGTMD – GG: Gefahrgutstamm
EST0F – EHS: Gefahrgutabwicklung – Transportklassifizierung
DGTM2 – GG: Gefahrgutstamm (Anhangstabelle)
VBEPDG – Anhangstabelle für Gefahrgutdaten
LIPSDG – Anhangstabelle für Gefahrgutdaten
THM009 – Gefahrgutklassen
THM063 – GG: Gefahrgutvorschrift (Regulation)
EST0D – EHS: Gefahrgutabwicklung – Gefährdungsklassifizierung
TDGB9 – GG: Gefahrgutprüfschemata für Verkaufsbelege zuordnen

SPRO > Logistics – General > Environment, Health and Safety > Dangerous Goods Management:

DGP1 Transaction:

VA01

MM03:

DESADV with DG:

DELVRY05:
NAME PINLQ
TEXT Verpackungsmethode für Begrenzte Menge (LQ)
TEXT Begrenzte Menge (LQ) Innenverpackung
TEXT Maßeinheit Begrenzte Menge (LQ) Innenverpackung
TEXT Begenzte Menge (LQ) Außenverpackung
TEXT Maßeinheit Begrenzte Menge (LQ) Außenverpackung
NAME RELQ
TEXT Begrenzte Menge (LQ) Bruttogewicht
TEXT Maßeinheit Begrenzte Menge (LQ) Brutto
NAME FLG_LQ

Implementation of a Dangerous Goods:

The user cannot save the delivery document if the check result is negative

Procedure

Activate the dangerous goods checks.
Create a function module for the dangerous goods check.
Assign the function module to a dangerous goods check method.
Specify a usage profile for dangerous goods check methods.
Assign the dangerous goods check method to a dangerous goods check schema.
Assign a response type to each dangerous goods check method.
Assign a message to the response type.
Specify the usage context for the dangerous goods check schema.
Specify the dangerous goods check schema determination routine.

In standard Customizing the output of Dangerous Goods Documents has the type LD00.

DG SAP enhancements:

DG080001 ALE (Dangerous Goods Master) Filtering at Recipient
DG080002 ALE (Dangerous Goods Master) Filtering at Sender
DG100001 Writing change documents
DG550001 Determining SAPscript Keys for APPEND Fields
DG560001 TREMcard Determination of Relevant Shipping Units
DG560002 TREMcard Determination of Relevant Specifications
DG600001 Merge Item and Deliv. Sched. Data for Expectd Deliv.
DG600002 Determination of Expected Deliveries
DG600003 Write Log Header for Expected Deliveries
DG700001 Enhanc. for cntry/mode of trans. cat. determination
DG700002 Individual Determ. of Countries and Mode of Transport Cat.
DG700003 Material Exchange and Multiple Component Explosion
DG700004 Indv. Determ. of Countries/MTC in Shipping and Sales
DG800001 Addit. Data for DG Additional Data in Shipping
DG800002 Addit. Data for DG Additional Data in Sales

30 01 2020

ABAP Query – clean some output entries

Räßap ABAP InfoSet, Query, SQ01, SQ02 0

END-OF-SELECTION (nach Liste):

field-symbols: <g00> type table,
               <wa_g00> type any,
               <k1> type any,
               <ks> type any.
data: it_g00 type char100 value '%G00[]',
      lv_kna1land type string,
      lv_knasland type string.
assign (it_g00) to <g00>.
if <g00> is assigned.
 loop at <g00> assigning <wa_g00>.
    lv_kna1land = '<wa_g00>-kna1-land1'.
    lv_knasland = '<wa_g00>-knas-land1'.
    unassign: <k1>, <ks>.
    assign: (lv_kna1land) to <k1>,
            (lv_knasland) to <ks>.
  if <k1> is assigned.
    if <ks> is assigned.
      if <k1> eq <ks>.
        delete <g00>.
      endif.
    endif.
  endif.
 endloop.
endif.

field-symbols: <g00> type table,

<wa_g00> type any,

<k1> type any,

<ks> type any.

data: it_g00 type char100 value '%G00[]',

lv_kna1land type string,

lv_knasland type string.

assign (it_g00) to <g00>.

if <g00> is assigned.

loop at <g00> assigning <wa_g00>.

lv_kna1land = '<wa_g00>-kna1-land1'.

lv_knasland = '<wa_g00>-knas-land1'.

unassign: <k1>, <ks>.

assign: (lv_kna1land) to <k1>,

(lv_knasland) to <ks>.

if <k1> is assigned.

if <ks> is assigned.

if <k1> eq <ks>.

delete <g00>.

endif.

endloop.

endif.

25 01 2019

Debugger-Scripting

Räßap ABAP Debug 0

To collect all the FM’s called by some application during the work a good way will be to using Debugger-Scripting:
Log of all ABAP commands of an application can be provided by script RSTPDA_SCRIPT_STATEMENT_TRACE

Drill down to debugging as usual, select the RSTPDA_SCRIPT_STATEMENT_TRACE
Check the box „Breakpoint reached“ and create new one on „CALL FUNCTION“ then start the script.

When everything will be done, /h into the command line, press F3 and then stop the script.

The transaction SAS can show the results:

03 05 0218

ABAP: rename file on Application server

Räßap ABAP ABAP 0

form datei_umbenennen using lv_altpfad lv_neupfad type string.
  data: lv_eof_reached   type c,
        lv_buffer(20480),
        lv_buflen        type i.

  open dataset lv_altpfad for input in binary mode.
  if sy-subrc ne 0.
    raise open_input_file_failed.
  endif.

  open dataset lv_neupfad for output in binary mode.
  if sy-subrc ne 0.
    raise open_output_file_failed.
  endif.

  clear lv_eof_reached.

  do.
    clear lv_buffer.

    read dataset lv_altpfad
            into lv_buffer length lv_buflen.

    if sy-subrc = 4.
      lv_eof_reached = 'X'.
    elseif sy-subrc > 4.
      raise read_block_failed.
    endif.

    transfer lv_buffer to lv_neupfad
      length lv_buflen.

    if sy-subrc ne 0.
      raise write_block_failed.
    endif.

    if lv_eof_reached eq 'X'.
      exit.
    endif.
  enddo.

  close dataset lv_altpfad.
  close dataset lv_neupfad.
  if sy-subrc <> 0.
    raise close_output_file_failed.
  endif.

  delete dataset lv_altpfad.
endform.

form datei_umbenennen using lv_altpfad lv_neupfad type string.

data: lv_eof_reached type c,

lv_buffer(20480),

lv_buflen type i.

open dataset lv_altpfad for input in binary mode.

if sy-subrc ne 0.

raise open_input_file_failed.

endif.

open dataset lv_neupfad for output in binary mode.

if sy-subrc ne 0.

raise open_output_file_failed.

endif.

clear lv_eof_reached.

do.

clear lv_buffer.

read dataset lv_altpfad

into lv_buffer length lv_buflen.

if sy-subrc = 4.

lv_eof_reached = 'X'.

elseif sy-subrc > 4.

raise read_block_failed.

endif.

transfer lv_buffer to lv_neupfad

length lv_buflen.

if sy-subrc ne 0.

raise write_block_failed.

endif.

if lv_eof_reached eq 'X'.

exit.

endif.

enddo.

close dataset lv_altpfad.

close dataset lv_neupfad.

if sy-subrc <> 0.

raise close_output_file_failed.

endif.

delete dataset lv_altpfad.

endform.

About Räßap

Posts by :