**********************************************************************                                                                                                                                                                                     
* COPYRIGHT 1995 THE UNIVERSITY OF DELAWARE. ALL RIGHTS RESERVED.                                                                                                                                                                                          
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *                                                                                                                                                                                      
*                                                                                                                                                                                                                                                          
* TITLE......: <MFU9001:EXAMPLE OF Mosaic HTML                                                                                                                                                                                                             
*                                                                                                                                                                                                                                                          
* PROGRAMMER.: Fenimore,John        ORIG. PROG..: Fenimore,John                                                                                                                                                                                            
* LAST UPDATE: 07/31/95                   DATE WRITTEN: January 1995                                                                                                                                                                                             
*                                                                                                                                                                                                                                                          
* USERVIEWS:                                                                                                                                                                                                                                               
* CALLS....: NATSVAL                                                                                                                                                                                                                                       
**********************************************************************                                                                                                                                                                                     
**     SUBPROGRAM MFU90001  use HTML to mosaic to create a directory                                                                                                                                                                                       
**                                                                                                                                                                                                                                                         
**     Since the #HPORT will change between TEST and PROD see below                                                                                                                                                                                        
**   for an example of using this variable to contruct links !!!!                                                                                                                                                                                          
**                                                                                                                                                                                                                                                         
**                                                                                                                                                                                                                                                         
**                                                                                                                                                                                                                                                         
**  This routine uses multiple sends of 240 chars or less                                                                                                                                                                                                  
** Depending on what you are sending it maybe be more efficient                                                                                                                                                                                            
** to build bigger sends (up to the size of #SCRIPT) thereby                                                                                                                                                                                               
** sending less packets.                                                                                                                                                                                                                                   
**                                                                                                                                                                                                                                                         
**     ASCII      CR = 0D   LF = 0A   TAB = 09  PERIOD = 2E                                                                                                                                                                                                
**     EBCDIC     CR = 0D   LF = 15   TAB = 05  PERIOD = 4B                                                                                                                                                                                                
**                                                                                                                                                                                                                                                         
 DEFINE DATA                                                                                                                                                                                                                                               
 PARAMETER                                                                                                                                                                                                                                                 
 1  #SCRIPT          (A1 / 1:4080)                                                                                                                                                                                                                         
 1  REDEFINE    #SCRIPT                                                                                                                                                                                                                                    
   2  #SCRIP01     (A240)                                                                                                                                                                                                                                  
   2  #SCRIP02     (A240)                                                                                                                                                                                                                                  
   2  #SCRIP03     (A240)                                                                                                                                                                                                                                  
   2  #SCRIP04     (A240)                                                                                                                                                                                                                                  
   2  #SCRIP05     (A240)                                                                                                                                                                                                                                  
**                                                                                                                                                                                                                                                         
 1  REDEFINE   #SCRIPT                                                                                                                                                                                                                                     
   2  #LINE       (1:51)                                                                                                                                                                                                                                   
     3 #LTEXT      (A80)                                                                                                                                                                                                                                   
     3 REDEFINE #LTEXT                                                                                                                                                                                                                                     
       4 #LTEXT-78 (A78)                                                                                                                                                                                                                                   
       4 #NEWLINE  (A2)           /* NEWLINE CHAR OR #NULL FOR LAST                                                                                                                                                                                        
     3 REDEFINE #LTEXT                                                                                                                                                                                                                                     
       4 #LTEXT-CHAR  (A1/1:80)                                                                                                                                                                                                                            
**                                                                                                                                                                                                                                                         
 1 #DATAIN        (A128)         /* the 128 bytes after MFU####                                                                                                                                                                                            
**                                                                                                                                                                                                                                                         
 PARAMETER USING MFPDA2           /* 2/3/95  NATSVP stuff                                                                                                                                                                                                  
**                                                                                                                                                                                                                                                         
*********************************************************************                                                                                                                                                                                      
 LOCAL     USING MFLDA1                                                                                                                                                                                                                                    
**********************************************************************                                                                                                                                                                                     
**********************************************************************                                                                                                                                                                                     
 LOCAL                                                                                                                                                                                                                                                     
 1 #I           (N4)                                                                                                                                                                                                                                       
 1 #J           (N4)                                                                                                                                                                                                                                       
 1 #K           (N4)                                                                                                                                                                                                                                       
 1 #MAXLINES    (N4)                                                                                                                                                                                                                                       
 1 ##HPORT      (A5)                                                                                                                                                                                                                                       
 1  #DPARM         (A128)                                                                                                                                                                                                                                  
 1  REDEFINE #DPARM                                                                                                                                                                                                                                        
   2 #DPR          (A1 / 1:128)                                                                                                                                                                                                                            
 1  REDEFINE #DPARM                                                                                                                                                                                                                                        
   2  #DATSLASH    (A1)                                                                                                                                                                                                                                    
   2  #ANSNUM      (A8)    /*   ans####b   or  MFU####/                                                                                                                                                                                                    
   2  #ANSHTTP     (A8)    /*   HTTP/1.0                                                                                                                                                                                                                   
   2  #ANSCRLF     (A2)                                                                                                                                                                                                                                    
   2  #ENTDATA     (A109)                                                                                                                                                                                                                                  
* 1  REDEFINE #DPARM                                                                                                                                                                                                                                       
*   2  #DATSLASH    (A1)                                                                                                                                                                                                                                   
*   2  #DATNAME     (A20)                                                                                                                                                                                                                                  
*   2  #DATIDNUM    (N9)                                                                                                                                                                                                                                   
*   2  #DATPIN      (N4)                                                                                                                                                                                                                                   
*   2  #DATFIL1     (A33)                                                                                                                                                                                                                                  
END-DEFINE                                                                                                                                                                                                                                                 
*                                                                                                                                                                                                                                                          
 FORMAT (1) LS=130                                                                                                                                                                                                                                         
 MOVE #DATAIN      TO   #DPARM                                                                                                                                                                                                                             
 MOVE *DATN        TO   #DATN                                                                                                                                                                                                                              
 MOVE *TIMN        TO   #TIMN                                                                                                                                                                                                                              
 MOVE #IPADDR-B(1) TO   #XIP1                                                                                                                                                                                                                              
 MOVE #IPADDR-B(2) TO   #XIP2                                                                                                                                                                                                                              
 MOVE #IPADDR-B(3) TO   #XIP3                                                                                                                                                                                                                              
 MOVE #IPADDR-B(4) TO   #XIP4                                                                                                                                                                                                                              
* WRITE (1) #DPARM(AL=128)   /* for debug only                                                                                                                                                                                                             
*       record  ipadress of client and our current port                                                                                                                                                                                                    
 WRITE(1) 'MFU9001  '  #XIP1A '.' #XIP2A '.' #XIP3A '.' #XIP4A '  '                                                                                                                                                                                        
     #HPORT '  ' #XTPORT '  ctype = ' #CTYPE   #DATN-A #TIMN-A                                                                                                                                                                                             
*  WRITE(1) #DPARM(AL=128)                                                                                                                                                                                                                                 
*  WRITE(1) / #LINE(1) / #LINE(2) / #LINE(3)    /* FOR DEBUGGING                                                                                                                                                                                           
*  WRITE(1) / #LINE(4) / #LINE(5) / #LINE(6)    /* uncomment as needed                                                                                                                                                                                     
*  WRITE(1) / #LINE(7)         /* ABOUT 7.3 * 80 = POST HDR STUFF                                                                                                                                                                                          
*  WRITE(1) / #LINE(8) / #LINE(9) / #LINE(10)  /* some hdr + good stuff                                                                                                                                                                                    
*  WRITE(1) / #LINE(11) / #LINE(12) / #LINE(13)                                                                                                                                                                                                            
*  WRITE(1) / #LINE(14) / #LINE(15) / #LINE(16)                                                                                                                                                                                                            
*  WRITE(1) / #LINE(17) / #LINE(18) / #LINE(19)                                                                                                                                                                                                            
*                                                                                                                                                                                                                                                          
 IF *APPLIC-ID = 'MF-DEV'                                                                                                                                                                                                                                  
   MOVE #HPORT TO ##HPORT                                                                                                                                                                                                                                  
 ELSE                                                                                                                                                                                                                                                      
   MOVE 26222  TO ##HPORT                                                                                                                                                                                                                                  
 END-IF                                                                                                                                                                                                                                                    
**********************************************************************                                                                                                                                                                                     
**  image must be somewhere south of the default starting point for                                                                                                                                                                                        
** file searches  ie.  .../gopher/data   in order for GOPHER to find                                                                                                                                                                                       
** it for Mosaic to display                                                                                                                                                                                                                                
** <h1> is the largest point size .. down to <h6>                                                                                                                                                                                                          
** <h3> is a little more than 2x the text size and works for me                                                                                                                                                                                            
********************************************************************                                                                                                                                                                                       
  RESET #SCRIPT(*)                                                                                                                                                                                                                                         
  COMPRESS                                                                                                                                                                                                                                                 
    '<HTML>'                                                                                                                                                                                                                                               
    '<TITLE> University Of Delaware MIS DEMO home page  1 </TITLE>'                                                                                                                                                                                        
    '<h2> Dynamically Generated HTML Data Screens </h2>'                                                                                                                                                                                                   
    #CRLF                                                                                                                                                                                                                                                  
     H'0000' INTO  #SCRIP01    LEAVING NO SPACE                                                                                                                                                                                                            
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   'This screen was generated on demand by a Natural program.'                                                                                                                                                                                             
   ' We have created a number of Mosaic screens with embedded'                                                                                                                                                                                             
   ' images and/or forms using Natural on our MVS mainframe.'                                                                                                                                                                                              
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01    /*  LEAVING NO SPACE                                                                                                                                                                                                         
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<HR><UL>'                                                                                                                                                                                                                                              
   '<LI> A HTML document on how this interface works'                                                                                                                                                                                                      
   '<A HREF=' #DQU 'http://www.udel.edu/lynam/nat-tcpip'                                                                                                                                                                                                   
   '/mfwm95.html' #DQU '> ADABAS/Natural TCP/IP Interface </A>'                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
***'<A HREF=' #DQU 'http://128.175.13.24:26222'                                                                                                                                                                                                            
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Demo version of <b>NEW HTML form</b>'                                                                                                                                                                                                             
   ' based Student/Employee Access'                                                                                                                                                                                                                        
   '<A HREF=' #DQU 'http://128.175.60.91/admin.html'                                                                                                                                                                                                       
   #DQU '> July 14,1995 </A>'                                                                                                                                                                                                                              
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
** '<A HREF=' #DQU 'http://www.mis.udel.edu/admin.html'                                                                                                                                                                                                    
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> The first simple sample of a pizza order form'                                                                                                                                                                                                    
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU0001/frm0001.html' #DQU '> MFU0001</A>'                                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
***'<A HREF=' #DQU 'http://128.175.13.24:26222'                                                                                                                                                                                                            
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> New <b>7/6/95 improved </b>POST'                                                                                                                                                                                                                  
   ' data parsing pizza order form'                                                                                                                                                                                                                        
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU0015/frm0015.html' #DQU '> MFU0015</A>'                                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
***'<A HREF=' #DQU 'http://128.175.13.24:26222'                                                                                                                                                                                                            
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> A pizza form going thru a SECURE NETSITE SERVER'                                                                                                                                                                                                  
   ' and then to MVS'                                                                                                                                                                                                                                      
   '<A HREF=' #DQU 'https://128.175.60.91:443/cgis/sslmvs.cgi'                                                                                                                                                                                             
   '?udmt1/MFU0016/frm0001.html'                                                                                                                                                                                                                           
   #DQU '> MFU0016</A>'                                                                                                                                                                                                                                    
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                      
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> A series of connected screens with an embedded image'                                                                                                                                                                                             
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU0010/frm0010.html' #DQU '> MFU0010</A>'                                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
***'<A HREF=' #DQU 'http://128.175.13.24:26222'                                                                                                                                                                                                            
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Screen with an embedded image via the NETSITE SERVER'                                                                                                                                                                                             
   ' and then to MVS'                                                                                                                                                                                                                                      
   '<A HREF=' #DQU 'https://128.175.60.91:443/cgis/sslmvs.cgi'                                                                                                                                                                                             
   '?udmt1/MFU0017/frm0010.html'                                                                                                                                                                                                                           
   #DQU '> MFU0017</A>'                                                                                                                                                                                                                                    
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Select a starting name and then select an individual'                                                                                                                                                                                             
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU0014/frm0014.html' #DQU '> MFU0014</A>'                                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Starting name and then use RADIO BUTTONS to select person'                                                                                                                                                                                        
   '(includes hidden fields)'                                                                                                                                                                                                                              
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU0018/frm0018.html' #DQU '> MFU0018</A>'                                                                                                                                                                                                            
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Example of sending a 200 line text document'                                                                                                                                                                                                      
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU8003/x8003.txt' #DQU '> MFU8003</A>'                                                                                                                                                                                                               
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Example of 200 lines of tablular data'                                                                                                                                                                                                            
   '<A HREF=' #DQU 'http://128.175.13.24:' ##HPORT                                                                                                                                                                                                         
   '/MFU8004/x8004.txt' #DQU '> MFU8004</A>'                                                                                                                                                                                                               
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Example of 200 lines of tablular data via NETSITE SERVER'                                                                                                                                                                                         
   '<A HREF=' #DQU 'https://128.175.60.91:443/cgis/sslmvs.cgi'                                                                                                                                                                                             
   '?udmt1/MFU8004/x8004.txt'                                                                                                                                                                                                                              
   #DQU '> secure MFU8004</A>'                                                                                                                                                                                                                             
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                        ********************************************************************                                                                                                                                                             RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
   '<LI> Our SUN Unix subset of this same menu'                                                                                                                                                                                                            
   '<A HREF=' #DQU 'http://128.175.13.57:' ##HPORT                                                                                                                                                                                                         
   '/MFU9001/x9001u.html' #DQU '> MFU9001 Unix</A>'                                                                                                                                                                                                        
    #CRLF                                                                                                                                                                                                                                                  
    H'0000' INTO  #SCRIP01  LEAVING NO SPACE                                                                                                                                                                                                               
  MOVE 'M' TO #CTYPE       /* send but do not close, More to be sent                                                                                                                                                                                       
  CALL 'NATSVAL' #HPORT #TPORT #IPADDR #CTYPE #SCRIP01                                                                                                                                                                                                     
********************************************************************                                                                                                                                                                                       
***  close out the transmission - mark end of HTML and  EOM                                                                                                                                                                                                
***  the last send is done back in  the main program  NATSV00 ****                                                                                                                                                                                         
**********************************************************************                                                                                                                                                                                     
  RESET  #SCRIP01                                                                                                                                                                                                                                          
  COMPRESS                                                                                                                                                                                                                                                 
     '</UL>'                                                                                                                                                                                                                                               
     '<HR align=center width=100% size=3>'                                                                                                                                                                                                                 
     'Please direct comments or questions to'                                                                                                                                                                                                              
     '<A HREF=' #DQU 'mailto:John.Fenimore@mvs.udel.edu' #DQU'>'                                                                                                                                                                                           
     ' John.Fenimore@mvs.udel.edu </A>'                                                                                                                                                                                                                    
     '</HTML>'                                                                                                                                                                                                                                             
      H'0D150000'                                                                                                                                                                                                                                          
      INTO  #SCRIP01     LEAVING NO SPACE                                                                                                                                                                                                                  
  MOVE 'L' TO #CTYPE       /* last send has EOM on end                                                                                                                                                                                                     
*****************************                                                                                                                                                                                                                              
 ESCAPE ROUTINE                                                                                                                                                                                                                                            
*******************************************************************                                                                                                                                                                                        
**********************************************************************                                                                                                                                                                                     
 ON ERROR   /*SK                                                                                                                                                                                                                                           
 COMPRESS *PROGRAM ' LINE ' *ERROR-LINE '  ERR NUM ' *ERROR H'0D1500'                                                                                                                                                                                      
  INTO #SCRIP01                                                                                                                                                                                                                                            
 MOVE ' ' TO #CTYPE                                                                                                                                                                                                                                        
 ESCAPE ROUTINE                                                                                                                                                                                                                                            
 END-ERROR                                                                                                                                                                                                                                                 
 END