Use the 01 keyword to: 
                  	  
               
            
            
               Restriction:  This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms. 
                  	 
               
              
            	 
             
               		
                
                  		  
                  - Define the input and output files in a batch program File Section. 
                     		  
                  
  
                  		  
                  - Define a data structure in Working-Storage or Linkage Section. 
                     		  
                  
  
                  		  
                  - Copy a data structure into the Working-Storage or Linkage Section. 
                     		  
                  
  
                  		  
                  - Define AppMaster Builder Report Writer statements for headings, footers, or detail lines. 
                     		  
                  
  
                  		
               
 
               	 
              
            	 
            
               Syntax: for Format 1, define input or output files
 
               		 
               		 IO     filename ASSIGN [TO] ...
        ORGANIZATION IS ...
 01     input|outputrecordname         PIC clause 
               	   
            	 
            
               Syntax: for Format 2, define a data structure
 
               		 
               		 01     COBOLdatastructure
        [05  COBOLdatastructure] 
               	   
            	 
            
               Syntax: for Format 3, copy a data structure
 
               		 
               		 01     COBOLcopystatement
 
               	   
            	 
            
               Syntax: for Format 4, define Report Writer line types
 
               		 
               		 01    [dataname] TYPE [IS] reportgroup
       [NEXT GROUP [IS] number|PLUS number|NEXT PAGE][.]
       [LINE [NUMBER IS] number|PLUS number|NEXT PAGE]
       MOCKUP|M LINE|LINES linenumber1 [THRU linenumberN]
       [O[VERPRINT] WHEN "characterstring" AT COLUMN column]
       [S[OURCE] [IS] dataname [options]]
       [V[ALUE] [IS] literal]
       [R[EFERENCE [IS] dataname PIC[TURE] [IS] picclause
           [options]]
        [SUM|+ [IS] dataname [dataname] ...
            [UPON detailgroup [detailgroup] ...]
            [RESET [ON] [FINAL] dataname]
            [options]] 
               	   
            	 
             
            
           
         
         
Comments:
01 COPY copybookname 01 dataname COPY copybookname 01 dataname COPY copybookname 01 dataname COPY copybookname REPLACING fieldname1 BY fieldname2To write subordinate elementary data elements, include the level numbers in columns 12 - 72.