Usage Note: 1787                                                                
Releases  : 6.00C and 6.50C                                                     
                                                                                
Remove the file count limit of 1400 (approximately) from odsfind()              
and osdnext().  The limit is removed via IBM APAR's OW16574 and OW16740.        
                                                                                
The enhancement is provided as replacement modules for members of               
prefix.STDLIB and prefix.STDOBJ.  You can place the libraries in the            
front of the DDN:SYSLIB concantenation order for testing.  After                
testing, the included JCL can be used to replace the permanent                  
libraries.                                                                      
                                                                                
The following are provided in each library                                      
                                                                                
                   L$CDCIRO                                                     
                        L$CDCIR            ALIAS                                
                        L$CDCUP            ALIAS                                
                                                                                
                   L$CDFNXO                                                     
                        $OSDFIND           ALIAS                                
                        $OSDNEXT           ALIAS                                
                        $OSDQUIT           ALIAS                                
                                                                                
CAUTION: VERIFY your application can handle the very large number               
         files than can be returned with this enhancment installed.             
                                                                                
         WITHOUT the APAR's, the work area used is defined by a halfword        
         length, which provides for 65k of data or approximately                
         1400 files.                                                            
                                                                                
         WITH the APAR's, the work area can be defined with the length          
         as a fullword.  This significantly increases the number of             
         files that can be returned.                                            
                                                                                
                                                                                
========================== CUT HERE ===================================         
                                                                                
Uploading/Installation of Enhancement Modules:                                  
                                                                                
1. Using the following information and UN1475, obatin the files from            
   FTP.SAS.COM:                                                                 
                                                                                
   FTP Directory: /techsup/download/SASC/download                               
   FTP Fileid   :                                <== ftp_fileid                 
                  FTP Fileid for the Libraries:                                 
                    un1787.stdlib.xmit                                          
                    un1787.stdobj.xmit                                          
                                                                                
                                                                                
                                                                                
2. FTP From MVS: upload FTP file from FTP.SAS.COM                               
                                                                                
       ==> locsite recfm=fb lrecl=80 blksize=3120 pri=500 sec=100               
       ==> binary                               <-- Very Important!!!!          
       ==> get ftp_fileid 'your.receive.ftp'   (replace                         
       ==> quit                                                                 
                                                                                
3. Using TSO RECEIVE command convert the FTP sequential file into the           
   original prefix.pds library.  You will be prompted by tso-receive            
   for the output dataset name.                                                 
                                                                                
       ==>  RECEIVE inds('your.receive.ftp')                                    
            PROMPT: dsn('your.sasc.file')                                       
========================== CUT HERE ===================================         
                                                                                
NOTE:  After testing the enhancement, the following JCL can be used             
       to copy the modules and alias entries to your permanent                  
       libraries.                                                               
                                                                                
                                                                                
//UN1787   JOB ..................................................               
//*---------------------------------------------------------------------        
//*  Clear the way for updated Members and their Alias names                    
//*---------------------------------------------------------------------        
//CLRWAY       EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(0,NE)                        
//SYSTSPRT     DD SYSOUT=*                                                      
//SYSTSIN      DD *                                                             
  DELETE 'sasc_prefix.STDOBJ(L$CDCIRO)'                                         
  DELETE 'sasc_prefix.STDOBJ(L$CDCIR)'                                          
  DELETE 'sasc_prefix.STDOBJ(L$CDCUP)'                                          
  DELETE 'sasc_prefix.STDOBJ(L$CDFNXO)'                                         
  DELETE 'sasc_prefix.STDOBJ($OSDFIND)'                                         
  DELETE 'sasc_prefix.STDOBJ($OSDNEXT)'                                         
  DELETE 'sasc_prefix.STDOBJ($OSDQUIT)'                                         
  DELETE 'sasc_prefix.STDLIB(L$CDCIRO)'                                         
  DELETE 'sasc_prefix.STDLIB(L$CDCIR)'                                          
  DELETE 'sasc_prefix.STDLIB(L$CDCUP)'                                          
  DELETE 'sasc_prefix.STDLIB(L$CDFNXO)'                                         
  DELETE 'sasc_prefix.STDLIB($OSDFIND)'                                         
  DELETE 'sasc_prefix.STDLIB($OSDNEXT)'                                         
  DELETE 'sasc_prefix.STDLIB($OSDQUIT)'                                         
/*                                                                              
//*---------------------------------------------------------------------        
//* Make it so for the Member names.                                            
//*---------------------------------------------------------------------        
//UPDATE  EXEC PGM=IEBCOPY,REGION=1M,COND=(0,NE)                                
//SYSPRINT DD SYSOUT=*                                                          
//SYSOUT   DD SYSOUT=*                                                          
//*                                                                             
//LIBOBJ   DD DISP=SHR,DSNAME=UN1787.STDOBJ_restored                            
//STDOBJ   DD DISP=SHR,DSNAME=sasc_prefix.STDOBJ                                
//*                                                                             
//LIBMOD   DD DISP=SHR,DSNAME=UN1787.STDLIB_restored                            
//STDLIB   DD DISP=SHR,DSNAME=sasc_prefix.STDLIB                                
//*                                                                             
//SYSIN    DD *                                                                 
 COPY      INDD=((LIBOBJ,R),OUTDD=STDOBJ                                        
 SELECT    MEMBER=(L$CDCIRO)                                                    
 COPY      INDD=((LIBOBJ,R),OUTDD=STDOBJ                                        
 SELECT    MEMBER=(L$CDFNXO)                                                    
 COPY      INDD=((LIBMOD,R),OUTDD=STDLIB                                        
 SELECT    MEMBER=(L$CDCIRO)                                                    
 COPY      INDD=((LIBMOD,R),OUTDD=STDLIB                                        
 SELECT    MEMBER=(L$CDFNXO)                                                    
*                                                                               
/*                                                                              
//*---------------------------------------------------------------------        
//* Ditto for the Alias!!                                                       
//*---------------------------------------------------------------------        
//*                                                                             
//SETALIAS     EXEC PGM=IKJEFT01,COND=(0,NE)                                    
//SYSTSIN      DD *                                                             
  RENAME 'sasc_prefix.STDOBJ(L$CDCIRO)' (L$CDCIR)  ALIAS                        
  RENAME 'sasc_prefix.STDOBJ(L$CDCIRO)' (L$CDCUP)  ALIAS                        
  RENAME 'sasc_prefix.STDOBJ(L$CDFNXO)' ($OSDFIND) ALIAS                        
  RENAME 'sasc_prefix.STDOBJ(L$CDFNXO)' ($OSDNEXT) ALIAS                        
  RENAME 'sasc_prefix.STDOBJ(L$CDFNXO)' ($OSDQUIT) ALIAS                        
  RENAME 'sasc_prefix.STDLIB(L$CDCIRO)' (L$CDCIR)  ALIAS                        
  RENAME 'sasc_prefix.STDLIB(L$CDCIRO)' (L$CDCUP)  ALIAS                        
  RENAME 'sasc_prefix.STDLIB(L$CDFNXO)' ($OSDFIND) ALIAS                        
  RENAME 'sasc_prefix.STDLIB(L$CDFNXO)' ($OSDNEXT) ALIAS                        
  RENAME 'sasc_prefix.STDLIB(L$CDFNXO)' ($OSDQUIT) ALIAS                        
/*                                                                              
//SYSTSPRT     DD SYSOUT=A                                                      
//SYSPRINT     DD SYSOUT=A                                                      
//SYSTERM      DD SYSOUT=A                                                      
//SYSUDUMP     DD SYSOUT=A                                                      
/*                                                                              
//                                                                              
========================== CUT HERE ===================================