REPORT Y9020027 LINE-SIZE 130.    "Release 3.1G, 4.5A
************************************************************************
* Copyright (c) 1999 by CT-Team, 33415 Verl, http://www.ct-software.com
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
*
************************************************************************
 BREAK-POINT.
*//////////////////////////////////////////////////////////////////////*
 MOVE: 'TESTREPORT for    "ASSIGN  FFeld+o(l)  TO  <fs1>"        '
        TO SY-TITLE.
*//////////////////////////////////////////////////////////////////////*
***************       Declaration of variables    **********************
 FIELD-SYMBOLS <FS1>.
*.......................................................................
 DATA: FFELD8(8)   TYPE F VALUE '1022333'.   "Unusual: Explicit 8 bytes
*DATA: ZFELD1(2)    TYPE N.            "Here slack bytes are (DW border)
*                                      "necessary
*               "If you like computing error, please uncomment the above
 DATA: FFELDX(8)   TYPE F VALUE '7777777'.
 DATA: FFELDA(8)   TYPE F VALUE '7333213'.
 DATA: NFELDX(400) TYPE N.
*
 DATA: OFFX(4) TYPE I VALUE 160.
 DATA: LENX(4) TYPE I VALUE 8.
*//////////////////////////////////////////////////////////////////////*
*************               Main Section             *******************
*//////////////////////////////////////////////////////////////////////*
*
    SKIP.
    WRITE: /5  'Example 1   **** inadmissible ASSIGN ***' COLOR 6.
    WRITE: /10 'Inadmissible ASSIGN: ''ASSIGN FFELD4+1(3) TO <FS1>'' '.
*   ASSIGN FFELD4+1(3) TO <FS1>.
    ULINE.
    SKIP 2.
*-----------------------------------------------------------------------
    SKIP.
 ASSIGN FFELD8+8(8) TO <FS1>.     "<-- Assigning of variable  FFELDX  !!
*.......................................................................
    BREAK-POINT.
    WRITE: / 'ASSIGN command with FFELD8, but FFELDX will be assigned'
              COLOR 3.
    WRITE: /5 'Example 2'.
    PERFORM DISPLAY-FFELD USING FFELD8 'FFELD8'.
    WRITE: /10 'Content of   FFELDX      :', FFELDX.
    ULINE. SKIP 2.
*-----------------------------------------------------------------------
    SKIP.
 ASSIGN FFELD8+16(8) TO <FS1>.    "<-- Assiging a few FFELDA to <FS1>
*.......................................................................
    BREAK-POINT.
    WRITE: / 'ASSIGN with FFELD8, but instead FFELDA is assigned'
              COLOR 3.
    WRITE: /5 'Example 3'.
    WRITE: /10 'Content of   FFELDA      :', FFELDA.
    PERFORM DISPLAY-FFELD USING FFELD8 'FFELD8'.
    WRITE: /10 'Content of   FFELDA      :', FFELDA.
    ULINE. SKIP 2.
*-----------------------------------------------------------------------
*.......................................................................
 BREAK-POINT.
   DO 4 TIMES.
     ASSIGN FFELD8+OFFX(LENX) TO <FS1>.     "Zuordnung auf OFFX zu <FS1>
        WRITE: / 'ASSIGN command with FFELD8, es wird NFELDX zugeordnet'
                  COLOR 5.
         WRITE: /5 'Example 4', 'DO-Schleife Nr.:', SY-INDEX.
         PERFORM DISPLAY-FFELD USING FFELD8 'FFELD8'.
         WRITE: /10 'Content of NFELDX+145(40)  :', NFELDX+145(40).
         ULINE. SKIP 2.
         ADD 8 TO OFFX.
   ENDDO.
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
*
*//////////////////////////////////////////////////////////////////////*
*************                Subroutines             *******************
*//////////////////////////////////////////////////////////////////////*
*
************************************************************************
*            Display of data fields and field symbols                  *
************************************************************************
 FORM DISPLAY-FFELD USING FFELD FNAME.
*
 WRITE: /10 'Content of', FNAME, ':', FFELD.
 PERFORM FELDEIGENSCHAFTEN USING FFELD.
*
 WRITE: /10 'Content of <FS1> :', <FS1>.
 PERFORM FELDEIGENSCHAFTEN USING <FS1>.
*-----------------------------------------------------------------------
 ADD   111    TO <FS1>.               "<-- Das Feldsybmol wird verwendet
*-----------------------------------------------------------------------
 WRITE: /10 'ADD 111 TO <FS1>'.
 ULINE.
*.......................................................................
 WRITE: /10 'Content of', FNAME, 35 ':', FFELD.
 WRITE: /10 'Content of <FS1>',  35 ':', <FS1>.
*.......................................................................
 ENDFORM.
************************************************************************
*    Determination of field properties (only for information)          *
************************************************************************
 FORM FELDEIGENSCHAFTEN USING ALLG.
*
 DATA: FLAENGE(2) TYPE N.
 DATA: FTYP(1) TYPE C.
 DATA: FOUT(2) TYPE N.
 DATA: FDEZ(2) TYPE N.
*.......................................................................
  ULINE.
  DESCRIBE FIELD ALLG LENGTH FLAENGE.
  WRITE: /10 'Field length  :', FLAENGE.
*
  DESCRIBE FIELD ALLG TYPE FTYP.
  WRITE: /10 'Field type    :', FTYP.
*
  DESCRIBE FIELD ALLG OUTPUT-LENGTH FOUT.
  WRITE: /10 'Output length :', FOUT.
*
  DESCRIBE FIELD ALLG DECIMALS FDEZ.
  WRITE: /10 'Decimals      :', FDEZ.
  SKIP 1.
*.......................................................................
 ENDFORM.
************************************************************************
************************************************************************
******************* END OF PROGRAM *************************************