Quantcast
Channel: SCN : All Content - All Communities
Viewing all articles
Browse latest Browse all 8150

ERROR IN SELECT STATEMENT IN DRIVER PROGRM SY-SUBRC = '4'.

$
0
0

Hello Everyone,

       i am new to SAP ABAP , while creating smartforms to print invoice details via driver program its showing error

 

       1)-Function module "FNAM" not found." USING (SSF_FUNCTION_MODULE_NAME)

 

 

 

               CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

                 EXPORTING

                   FORMNAME                 = 'ZINVOICE_FORM'

*                 VARIANT                  = ' '

*                 DIRECT_CALL              = ' '

                IMPORTING

                  FM_NAME                  = FNAM

*               EXCEPTIONS

*                 NO_FORM                  = 1

*                 NO_FUNCTION_MODULE       = 2

*                 OTHERS                   = 3



And second.....


   2)- SY-SUBRC = '4' On select statement......while fetching data from VBRK Table.


  

    

REPORT  ZSD_INVOICE_FORM.

 

TABLES: VBRK, VBRP, KNA1.

 

SELECTION-SCREEN: BEGIN OF BLOCK B1

   WITH FRAME

   TITLE TEXT-000.

 

   PARAMETERS: P_VBELN TYPE VBRK-VBELN,

               P_FKDAT TYPE VBRK-FKDAT.

 

   SELECTION-SCREEN: END OF BLOCK B1.


DATA: BEGIN OF WA_KNA1,

           KUNNR TYPE KUNNR,

           NAME1 TYPE NAME1,

           ORT01 TYPE ORT01,

       END OF WA_KNA1.

 

       DATA: BEGIN OF WA_VBRK,

             VBELN TYPE VBELN,

             FKDAT TYPE FKDAT,

             KUNRG TYPE KUNRG,

         END OF WA_VBRK .

 

       DATA: IT_INV TYPE TABLE OF ZVBRP_STRUC.

 

         DATA: FNAM TYPE RS38L_FNAM,

               PATH TYPE STRING.


SELECT SINGLE VBELN FKDAT KUNRG                   ------------> SY-SUBRC = '4'   (WHILE DEBUGGING)

             FROM VBRK

             INTO WA_VBRK

             WHERE VBELN EQ P_VBELN

             OR FKDAT EQ P_FKDAT.

 

IF SY-SUBRC NE '0'.

 

   MESSAGE 'NO INVOICE FOUND' TYPE 'I'.

 

   ENDIF.


IF WA_VBRK IS NOT INITIAL.

               SELECT KUNNR NAME1 ORT01

                 FROM KNA1

                 INTO WA_KNA1

                 WHERE KUNNR EQ WA_VBRK-KUNRG.

 

   IF SY-SUBRC NE '0'.

 

   ENDIF.

 

ENDSELECT.

 

SELECT POSNR ARKTX MATNR FKIMG NETWR

                   FROM VBRP

                   INTO TABLE IT_INV

                   WHERE VBELN EQ WA_VBRK-VBELN.




               CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

                 EXPORTING

                   FORMNAME                 = 'ZINVOICE_FORM'

*                 VARIANT                  = ' '

*                 DIRECT_CALL              = ' '

                IMPORTING

                  FM_NAME                  = FNAM

*               EXCEPTIONS

*                 NO_FORM                  = 1

*                 NO_FUNCTION_MODULE       = 2

*                 OTHERS                   = 3




CALL FUNCTION 'FNAM'

 

          EXPORTING

            KUNRG = WA_VBRK-KUNRG

            NAME1 = WA_KNA1-NAME1

            ORT01 = WA_KNA1-ORT01

            VBELN = WA_VBRK-VBELN

            FKDAT = WA_VBRK-FKDAT

 

           TABLES

 

             IT_VBRP = IT_INV

 

                   ENDIF.




Thank You all in advance ....for your precious time to look into my problem.....rommel....


Viewing all articles
Browse latest Browse all 8150

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>