Check the report

Question

Please check the output of this report.
*& Report  YCLASSICALREPORT4
REPORT  YCLASSICALREPORT4 NO STANDARD PAGE HEADING MESSAGE-ID ZMSG20 LINE-SIZE 100 LINE-COUNT 65(3).
TABLES : EKKO,MARC,EKPO.
DATA : BEGIN OF I_MARC OCCURS 0,
       MATNR LIKE MARC-MATNR,
       WERKS LIKE MARC-WERKS,
       PSTAT LIKE MARC-PSTAT,
       EKGRP LIKE MARC-EKGRP,
       END OF I_MARC.
DATA : BEGIN OF I_EKPO OCCURS 0,
       EBELN LIKE EKKO-EBELN,
       EBELP LIKE EKPO-EBELP,
       MATNR LIKE EKPO-MATNR,
       MENGE LIKE EKPO-MENGE,
       END OF I_EKPO.
*******SELECTION SCREEN*********
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : P_WERKS LIKE MARC-WERKS OBLIGATORY VALUE CHECK.
SELECT-OPTIONS : S_EBELN FOR I_EKPO-EBELN OBLIGATORY NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
***************INITIALIZATION**************
INITIALIZATION.
  P_WERKS = 1000.
  S_EBELN-LOW = '414-0100'.
  S_EBELN-SIGN = 'I'.
  S_EBELN-OPTION = 'EQ'.
  APPEND S_EBELN.
  CLEAR S_EBELN.
****************AT SELECTION OUTPUT****************
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF R1 = ' X ' AND SCREEN-NAME = 'S_EBELN-LOW'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
    IF R2 = ' X ' AND SCREEN-NAME = 'P_WERKS'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
AT SELECTION SCREEN***********************
AT SELECTION-SCREEN.
  SELECT SINGLE *
         FROM EKKO
         INTO EKKO
         WHERE EBELN IN S_EBELN.
  IF SY-SUBRC NE 0.
    SET CURSOR FIELD 'S_EBELN-LOW'.
    MESSAGE E999 WITH 'ENTER VALID ENTRY'.
  ENDIF.
************START OF SELECTION**************************
*START-OF-SELECTION.
  IF R1 = 'X'.
    SELECT MATNR
           WERKS
           PSTAT
           EKGRP
           FROM MARC
           INTO TABLE I_MARC
           WHERE WERKS = P_WERKS.
    IF SY-SUBRC NE 0.
      MESSAGE 'NO DATA FOUND' TYPE 'I'.
      SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
    ENDIF.
    WRITE : / 'Material Number',20 'Plant',30 'Maintenance status',50 'Purchasing Group'.
    SKIP.
    LOOP AT I_MARC.
      WRITE : / I_MARC-MATNR,I_MARC-WERKS,I_MARC-PSTAT,I_MARC-EKGRP.
    ENDLOOP.
  ENDIF.
  IF R2 = 'X'.
    SELECT EBELN
           EBELP
           MATNR
           MENGE
           FROM EKPO
           INTO TABLE I_EKPO
           WHERE EBELN IN S_EBELN.
    WRITE : / 'PD NUMBER',20 'ITEM NUMBER',35 'MATERIAL',50 'PO QUANTITY'.
    LOOP AT I_EKPO.
      WRITE : / I_EKPO-EBELN,I_EKPO-EBELP,I_EKPO-MATNR,I_EKPO-MENGE.
    ENDLOOP.
  ENDIF.
*******************TOP OF PAGE**************
TOP-OF-PAGE.
  IF R1 = 'X'.
  ULINE AT / 0(70).
  WRITE : / 'Material Number',20 'Plant',30 'Maintenance status',50 'Purchasing Group'.
  ULINE AT / 0(70).
  ENDIF.
  IF R2 = ' X '.
  WRITE : / 'PD NUMBER',20 'ITEM NUMBER',35 'MATERIAL',50 'PO QUANTITY'.
  ENDIF.
******************END OF PAGE***************
  WRITE : /20 'PAGE NUMBER',SY-PAGNO.

Answer 1

HI,
use like this.
ULINE AT /0(70).
do't leave any space between / and 0.
rgds,
bharat.