Language EN is not active !

Question

Hi all
Iam new to scripts .
i developed a  sample form script.
when am printing my Script with my utilities -print testing its working properly(in se71)
but my problem is when i execute the program in SE38
its getting me an error saying
STOP:
form <zformprog> and has no errors.
Pls can anyone help me out!!
Thanks in advance.

Answer 1

hi nageshwar...
i am pasting the code here....pls do bear if i have written my code so silly....i was not covered with scripts in my syllabus and learning this out of my own interest....
thank u so much
regards
Rachel
ata: begin of it occurs 0,
  carrid like spfli-carrid,
  connid like spfli-connid,
  cityfrom like spfli-cityfrom,
  cityto like spfli-cityto,
  END OF it.
  select * from spfli into CORRESPONDING FIELDS OF TABLE it.
call function 'OPEN_FORM'
EXPORTING
  APPLICATION                       = 'TX'
  ARCHIVE_INDEX                     =
  ARCHIVE_PARAMS                    =
  DEVICE                            = 'LOCL'
   DIALOG                            = 'x'
   FORM                              = 'zsform '
   LANGUAGE                          = SY-LANGU
  OPTIONS                           =
  MAIL_SENDER                       =
  MAIL_RECIPIENT                    =
  MAIL_APPL_OBJECT                  =
  RAW_DATA_INTERFACE                = '*'
  SPONUMIV                          =
IMPORTING
  LANGUAGE                          =
  NEW_ARCHIVE_PARAMS                =
  RESULT                            =
EXCEPTIONS
  CANCELED                          = 1
  DEVICE                            = 2
  FORM                              = 3
  OPTIONS                           = 4
  UNCLOSED                          = 5
  MAIL_OPTIONS                      = 6
  ARCHIVE_ERROR                     = 7
  INVALID_FAX_NUMBER                = 8
  MORE_PARAMS_NEEDED_IN_BATCH       = 9
  SPOOL_ERROR                       = 10
  CODEPAGE                          = 11
  OTHERS                            = 12
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
loop at it.
  call function 'WRITE_FORM'
   EXPORTING
     ELEMENT                        = 'ABCD '
     FUNCTION                       = 'SET'
     TYPE                           = 'BODY'
     WINDOW                         = 'MAIN'
  IMPORTING
    PENDING_LINES                  =
  EXCEPTIONS
    ELEMENT                        = 1
    FUNCTION                       = 2
    TYPE                           = 3
    UNOPENED                       = 4
    UNSTARTED                      = 5
    WINDOW                         = 6
    BAD_PAGEFORMAT_FOR_PRINT       = 7
    SPOOL_ERROR                    = 8
    CODEPAGE                       = 9
    OTHERS                         = 10
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  endloop.
          call function 'CLOSE_FORM'
          IMPORTING
            RESULT                         =
            RDI_RESULT                     =
          TABLES
            OTFDATA                        =
          EXCEPTIONS
            UNOPENED                       = 1
            BAD_PAGEFORMAT_FOR_PRINT       = 2
            SEND_ERROR                     = 3
            SPOOL_ERROR                    = 4
            CODEPAGE                       = 5
            OTHERS                         = 6
          if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          endif.