JSBOUT
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
SET PRIN OFF
SET CONS ON
ENDC 
ENDD 
CLEA 
RETU 
PROC JEXT
SELE B
DO BOX3
@15,15 SAY '
DISK2
FILE2
INDEX BEING CREATED........  
@17,15 SAY '
                                                       
@18,15 SAY '
 PLEASE WAIT A FEW MOMENTS                             
@19,15 SAY '
INDE ON SUBS(FILE,AT(".", FILE)+1,3)+FILE+DISK TAG JEXT OF JCAT
STOR 'FILE EXT + FILE + DISK' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JEXT
PROC JLOC
SELE B
DO BOX3
@15,15 SAY '
@16,15 SAY '
 FILE LOCATION TEMPORARY INDEX BEING CREATED........   
@17,15 SAY '
                                                       
@18,15 SAY '
 PLEASE WAIT A FEW MOMENTS                             
@19,15 SAY '
INDE ON LOCATION+DISK+FILE TAG JLOC OF JCAT
STOR 'LOCATION + DISK + FILE' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JLOC
PROC JBYTES
SELE B
DO BOX3
@15,15 SAY '
@16,15 SAY '
 FILE BYTES SIZE TEMPORARY INDEX IS BEING CREATED....  
@17,15 SAY '
                                                       
@18,15 SAY '
 PLEASE WAIT A FEW MOMENTS                             
@19,15 SAY '
INDE ON BYTES TAG JBYTES OF JCAT
STOR 'FILE BYTE SIZE' TO MCORDER
SET INDE TO JCAT
SET ORDE TO JBYTES
PROC JDATE
SELE B
DO BOX3
DISK+FILE+EXT
AFILE
FILE+EXT+DISK
ADISK