*** *************************************************************** ***         
***  THE FOLLOWING IS THE SAMPLE CODE                               ***         
*** --------------------                                            ***         
***                                                                 ***         
***                                                                 ***         
***  ALL COMMENTS,LINE COMMENTS AND LINE SPACES HAS TO BE REMOVED   ***         
***                                                                 ***         
***                                                                 ***         
***                                                                 ***         
***                                                                 ***         
*** *************************************************************** ***         
                                                                                
                                                                                
BEGIN    EQU   *                                                                
                                   
         L     R1,0(R1)                   LOAD REGISTER R1 TO R1               
         CLI    R3,0(,R1)                               
         BNE    R4,2(,R1)                           
         LTR   R3,R3                      REGISTER R3 > 0?                     
         @PUT  FFILE,ADR=ZEILE            MACRO                              
                                               
     
TKT100     DC     x'0300'                  TG-ID                                   
TKT300     DC     X'000000'                SYSTEMZEIT                              
                   
              
  
JSKDAT   DS    XL4                     DATUM FUER JAHRESSCHLUSSKURS            
                                                                                
KURSDA   DS    XL4                     KURS-DATUM 30.06.XXXX     



##</code><code>##

	vairable    length    datatype     value       description              
	KURSDA      4         X            1000        KURS-DATUM 30.06.XXXX


##</code><code>##

	BEGIN                                                                   
                                   
         L     R1,0(R1)                               
         CLI    R3,0(,R1) BNE    R4,2(,R1)                           
         LTR   R3,R3                                         
         @PUT  FFILE,ADR=ZEILE     


##</code><code>##

vairable        value                   description              
	@PUT            FFILE,ADR=ZEILE         MACRO