Read custom code from infoset

  TYPES: BEGIN OF ty_aqgdb_raw,
           clustr TYPE aqgdb-clustr,
           clustd TYPE aqgdb-clustd,
         END OF ty_aqgdb_raw,
         BEGIN OF ty_aqgdb,
           srtfd  TYPE aqgdb-srtfd,
           clustr TYPE aqgdb-clustr,
           clustd TYPE aqgdb-clustd,
         END OF ty_aqgdb.
  DATA: t_aqgdb_raw TYPE STANDARD TABLE OF ty_aqgdb_raw,
        t_aqgdb     TYPE TABLE OF ty_aqgdb,
        w_aqgdb_raw TYPE ty_aqgdb_raw.

  DATA:  t_tline TYPE STANDARD TABLE OF tline.
  FIELD-SYMBOLS: <tline> TYPE tline,
                 <aqgdb> LIKE LINE OF t_aqgdb.

  SELECT srtfd clustr clustd
     FROM aqgdb
     INTO CORRESPONDING FIELDS OF TABLE t_aqgdb
     WHERE srtfd LIKE '%CUST%'.

  LOOP AT t_aqgdb ASSIGNING <aqgdb>.
    CLEAR: t_aqgdb_raw[], t_tline[].
    APPEND VALUE ty_aqgdb_raw( clustr = <aqgdb>-clustr clustd = <aqgdb>-clustd ) TO t_aqgdb_raw.
    IMPORT tline = t_tline FROM INTERNAL TABLE t_aqgdb_raw.

    LOOP AT t_tline ASSIGNING <tline>.
      WRITE <tline>-tdline.
    ENDLOOP.

  ENDLOOP.

  DATA: BEGIN OF headsg.
      INCLUDE TYPE aqhdsg.
  DATA: END OF headsg.

  DATA: BEGIN OF clogsg OCCURS 10.
      INCLUDE STRUCTURE aqclsg.
  DATA: END OF clogsg.

  DATA: BEGIN OF dbsa OCCURS 40.
      INCLUDE STRUCTURE aqdbsa.
  DATA: END OF dbsa.

  DATA: BEGIN OF dbob OCCURS 0.
      INCLUDE STRUCTURE aqdbob.
  DATA: END OF dbob.

  DATA: BEGIN OF dbos OCCURS 0.
      INCLUDE STRUCTURE aqdbos.
  DATA: END OF dbos.

  DATA: BEGIN OF dbif OCCURS 0.
      INCLUDE STRUCTURE aqdbif.
  DATA: END OF dbif.

  DATA: BEGIN OF dbsf OCCURS 100.
      INCLUDE STRUCTURE aqdbsf.
  DATA: END OF dbsf.

  DATA: BEGIN OF dbsg OCCURS 40.
      INCLUDE STRUCTURE aqdbsg.
  DATA: END OF dbsg.

  DATA: BEGIN OF dban OCCURS 10.
      INCLUDE STRUCTURE aqdban.
  DATA: END OF dban.

  DATA: BEGIN OF dbjt OCCURS 10.
      INCLUDE STRUCTURE aqdbjt.
  DATA: END OF dbjt.

  DATA: BEGIN OF dbjc OCCURS 40.
      INCLUDE STRUCTURE aqdbjc.
  DATA: END OF dbjc.

  DATA: BEGIN OF dbzt OCCURS 50.
      INCLUDE STRUCTURE aqdbzt.
  DATA: END OF dbzt.

  DATA: BEGIN OF dbzc OCCURS 50.
      INCLUDE STRUCTURE aqdbzc.
  DATA: END OF dbzc.

  DATA: BEGIN OF dbzl OCCURS 100.
      INCLUDE STRUCTURE aqdbzl.
  DATA: END  OF dbzl.

  DATA: BEGIN OF dbpa OCCURS  10.
      INCLUDE STRUCTURE aqdbpa.
  DATA: END OF dbpa.

  DATA: BEGIN OF dbdp OCCURS 0.
      INCLUDE STRUCTURE aqdbdp.
  DATA: END OF dbdp.

  DATA: BEGIN OF dbwr OCCURS  10.
      INCLUDE STRUCTURE aqdbwr.
  DATA: END OF dbwr.

  DATA: BEGIN OF dbar OCCURS 10.
      INCLUDE STRUCTURE aqdbar.
  DATA: END OF dbar.

  DATA: maxsg_tindx LIKE aqadef-tindx,
        BEGIN OF sgtext OCCURS 100.
      INCLUDE STRUCTURE aqtxsg.
  DATA: END OF  sgtext.

  DATA: BEGIN OF dbft OCCURS 50.
      INCLUDE STRUCTURE aqdbft.
  DATA: END OF dbft.

  DATA: BEGIN OF sukey,
          'SG',
          variant(1),
          clas       LIKE aqadef-sgname,
        END OF sukey.

  DATA: l_sukey LIKE sukey,
        set     TYPE string.

  SELECT *
    FROM aqgqcat
    INTO TABLE @DATA(infosets)
    WHERE qnum IN ('query1', 'query2').

  LOOP AT infosets ASSIGNING FIELD-SYMBOL(<set>).

    set = '%' && <set>-clas && '%'.
    SELECT SINGLE *
     FROM aqgdb
     INTO @DATA(cluster)
     WHERE srtfd LIKE @set.

    l_sukey         = cluster-srtfd.
    l_sukey-clas    = <set>-clas.
    l_sukey-variant = 'G'.

    IMPORT headsg clogsg dbsa dbob dbos dbif dbsf dbsg dban dbjt dbjc dbzt dbzc dbzl dbdp dbpa dbwr dbar dbft maxsg_tindx
    FROM DATABASE aqgdb(aq) ID l_sukey.

  ENDLOOP.