AnalytikDataPRiME
/
GeMIS_WEB


			
				
					
						
						
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152
							
DEF VAR cFilename   AS CHAR NO-UNDO INIT 'Artst'.
DEF VAR cZeile      AS CHAR NO-UNDO.

FIND _File NO-LOCK
    WHERE _File._File-Name = cFilename.

OUTPUT TO VALUE(SUBSTITUTE('&1.cls', cFilename)) NO-MAP NO-CONVERT.

PUT CONTROL SUBSTITUTE('CLASS incl.&1', cFileName) ':' CHR(10).
FOR EACH _Field NO-LOCK OF _File BY _Order:
    cZeile = ''.
    SUBSTRING(cZeile,05) = 'DEFINE PUBLIC PROPERTY '.
    SUBSTRING(cZeile,29) = _Field._Field-Name.
    SUBSTRING(cZeile,45) = 'AS'.
    SUBSTRING(cZeile,49) = CAPS(_Field._Data-Type).
    SUBSTRING(cZeile,61) = 'NO-UNDO' .
    PUT CONTROL cZeile CHR(10).
    
    cZeile = ''.
    SUBSTRING(cZeile,09) = 'GET.'.
    PUT CONTROL cZeile CHR(10).
    
    cZeile = ''.
    SUBSTRING(cZeile,09) = 'SET.'.
    PUT CONTROL cZeile CHR(10) CHR(10).
    
END.

cZeile = ''.
SUBSTRING(cZeile,05) = SUBSTITUTE('METHOD PUBLIC FINAL LOGICAL get&1(  ):', cFilename).
PUT CONTROL cZeile CHR(10) CHR(10).

cZeile = ''.
SUBSTRING(cZeile,09) = SUBSTITUTE('DEFINE BUFFER b&1 FOR &1.', cFilename).
PUT CONTROL cZeile CHR(10) CHR(10).

cZeile = ''.
SUBSTRING(cZeile,09) = 'ASSIGN'.
PUT CONTROL cZeile CHR(10).

FOR EACH _Field NO-LOCK OF _File BY _Order:
    cZeile = ''.
    SUBSTRING(cZeile,13) = SUBSTITUTE('&1', _Field._Field-Name).
    SUBSTRING(cZeile,29) = SUBSTITUTE('= &1.&2', cFilename, _Field._Field-Name).
    PUT CONTROL cZeile CHR(10).
END.

cZeile = ''.
SUBSTRING(cZeile,13) = '.'.
PUT CONTROL CHR(10) CHR(10).
OUTPUT CLOSE.