//BRXXXLOD JOB (BRXXX,,,1),'CREATE TITLE LOAD',TIME=(1),REGION=0M               
//**********************************************************                    
//****   PROGRAM TO CONVERT LEGACY TITLE FILE LAYOUT   ********                 
//****         TO NEW DATABASE LAYOUTS.                ********                 
//****************************************************************              
//****            *** MAINTENANCE ***                      *******              
//**** CHANGE THE JOB CARD TO REFLECT YOUR ENVIRONMENT     *******              
//****                                                     *******              
//**** CHANGE THE INPUT FILE NAME TO YOUR INPUT FILE NAME  *******              
//****                                                     *******              
//**** CHANGE THE OUTPUT FILE NAME AND THE FILE NAME IN    *******              
//****       THE HOUSEKEPPING STEP TO YOUR FILE NAME       *******              
//****                                                     *******              
//**** CHANGE XXXX TO YOUR UNIVERSITY NAME                 *******              
//****       EX: CHA ALL 'XXXX' 'USF'                      *******              
//****                                                     *******              
//****   THIS JOB SET UP FOR 2008-09 TITLE SUBMISSION      *******              
//****************************************************************              
//************   HOUSEKEPPING  *****************************                    
//DEL  EXEC PGM=IDCAMS,REGION=512K                                              
//SYSPRINT DD SYSOUT=A                                                          
//SYSIN DD *                                                                    
  DELETE (BOR.XXX.LOAD.TITLE)                                                   
  SET MAXCC = 0                                                                 
/*                                                                              
//SELECT EXEC SAS WORK='20000,10000'                                            
//*                                                                             
//***********       INPUT FILE NAME      ******************                     
//TTLIN DD DSN=BOR.XXX.SUS.TITLE.UNIV,DISP=SHR                                  
//*                                                                             
//**********       OUTPUT FILE NAME     *******************                     
//TITLEOUT DD DSN=BOR.XXX.LOAD.TITLE,                                           
//          DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                                 
//          DCB=(LRECL=130,RECFM=FB,BLKSIZE=),                                  
//          SPACE=(CYL,(10,5),RLSE)                                             
//*                                                                             
//SYSIN     DD  *                                                               
 ***********************************************************;                   
OPTIONS ERRORS=1 NODATE NOSOURCE SYMBOLGEN                                      
        MSTORED MISSING=' ' SASMSTORE=AUTOLIB;                                  
                                                                                
DATA TITLE;                                                                     
  INFILE TTLIN LRECL=130 TRUNCOVER;                                             
INPUT                                                                           
          @     1        TYPE     $CHAR002.                                     
          @     3        LEVEL    $CHAR002.                                     
          @     5        ORG      $CHAR002.                                     
          @     7        CODE     $CHAR002.                                     
          @     9        DEPTID   $CHAR009.                                     
          @    18        UBUDID   $CHAR006.                                     
          @    24        ZEROES   $CHAR005.                                     
          @    29        FILL1    $CHAR023.                                     
          @    56        SHTITLE  $CHAR010.                                     
          @    66        LGTITLE  $CHAR060.                                     
          @   126        FILL2    $CHAR005.                                     
          @;                                                                    
RUN;                                                                            
                                                                                
DATA _NULL_; SET TITLE; FILE TITLEOUT DLM='|' LRECL=130;                        
FORMAT UNIV_ROW_ID Z8. REPT_INST $CHAR04.;                                      
                                                                                
UNIV_ROW_ID        = _N_;                                                       
REPT_INST 	   = 'XXXX';                                                           
REPT_TIME_FRAME = '20082009';                                                   
DEPT_ID		   = DEPTID;                                                           
UNIV_BUD_ID	   = UBUDID;                                                        
DEPT_ID_TITLE = LGTITLE;                                                        
                                                                                
                                                                                
IF DEPT_ID         = ' ' THEN DEPT_ID          = '.';                           
IF UNIV_BUD_ID     = ' ' THEN UNIV_BUD_ID      = '.';                           
IF DEPT_ID_TITLE   = ' ' THEN DEPT_ID_TITLE    = '.';                           
                                                                                
PUT                                                                             
UNIV_ROW_ID REPT_INST REPT_TIME_FRAME DEPT_ID                                   
UNIV_BUD_ID DEPT_ID_TITLE;