//BRxxxLOD JOB (BRxxx,,,1),'CREATE OB LOAD',TIME=(1),REGION=0M                  

//**********************************************************                    

//****   PROGRAM TO CONVERT LEGACY OB 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       *******              

//****                                                     *******              

//****   THIS JOB SET UP FOR 2008-09 OB SUBMISSION         *******              

//****************************************************************              

//************   HOUSEKEPPING  *****************************                    

//DEL  EXEC PGM=IDCAMS,REGION=512K                                              

//SYSPRINT DD SYSOUT=A                                                          

//SYSIN DD *                                                                    

  DELETE (BOR.xxx.LOAD.OB)                                                      

  SET MAXCC = 0                                                                 

/*                                                                              

//SELECT EXEC SAS WORK='20000,10000'                                            

//*                                                                             

//***********       INPUT FILE NAME      ******************                     

//OBIN DD DSN=BOR.MASTER.BUDDATA.Y0809.univ,DISP=SHR                            

//*                                                                             

//**********       OUTPUT FILE NAME     *******************                     

//OBOUT DD DSN=BOR.xxx.LOAD.OB,                                                 

//          DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                                 

//          DCB=(LRECL=200,RECFM=FB,BLKSIZE=),                                  

//          SPACE=(CYL,(10,5),RLSE)                                             

//*                                                                             

//SYSIN     DD  *                                                               

 ***********************************************************;                   

OPTIONS ERRORS=1 NODATE NOSOURCE SYMBOLGEN                                      

        MSTORED MISSING=' ' SASMSTORE=AUTOLIB;                                  

                                                                                

DATA OB;                                                                        

  INFILE OBIN LRECL=164 TRUNCOVER;                                              

INPUT                                                                           

          @     1        UNIV     $CHAR004.                                     

          @     5        YEAR     $CHAR004. 

          @     9        RECTYP   $CHAR001.                                                                        

          @    10        DEPTID   $CHAR009.                                     

          @    19        UBUDID   $CHAR006.                                     

          @    25        BUDENTCD $CHAR001.                                     

          @    26        BE       $CHAR008.                                     

          @    34        IBI      $CHAR002.                                     

          @    36        STATEPC  $CHAR010.                                     

          @    46        SUBPC    $CHAR006.                                     

          @    52        SF       $CHAR001.                                     

          @    53        FUNDID   $CHAR006.                                     

          @    59        CAT      $CHAR006.                                     

          @    65        OBJECT   $CHAR006.                                     

          @    71        PCS      $CHAR002.                                     

          @    73        GLCODE   $CHAR005.                                     

          @    78        EXTCAT   $CHAR006.                                     

          @    84        ACTEXP       15.2                                      

          @    99        ACTPYR       08.2                                      

          @   107        HISCYR       11.                                       

          @   118        ESTEXP       15.2                                      

          @   133        ESTPYR       08.2                                      

          @   141        ESTCYR       11.                                       

          @   152        YRID     $CHAR001.                                     

          @   153        RESIRM   $CHAR005.                                     

          @   158        RESUNIV  $CHAR007.                                     

          @;                                                                    

RUN;                                                                            

                                                                                

DATA _NULL_; SET OB; FILE OBOUT DLM='|' LRECL=200;                              

FORMAT UNIV_ROW_ID Z8. REPT_INST $CHAR04.;                                      

                                                                                

UNIV_ROW_ID        = _N_;                                                       

REPT_INST 	   = UNIV;                                                           

FISCAL_YR          = '20082009';                                                                                         

DEPT_ID		   = DEPTID;                                                           

UNIV_BUD_ID	   = ubudid;                                                        

BE_CD8	   	   = BE;                                                             

IBI		   = IBI;                                                                  

ST_PRO_COMP_CD	   = STATEPC;                                                    

PROG_COMP	   = SUBPC;                                                           

ST_FUND_TYP 	   = SF;                                                           

UNIV_FUND_ID	   = FUNDID;                                                       

APPROP_CAT 	   = CAT;                                                           

OBJECT_CD	   = OBJECT;                                                          

PCS_DEPT_ID        = PCS;                                                       

GEN_LEDGER_CD	   = GLCODE;                                                      

REVENUE_TYP 	   = EXTCAT;                                                       

BE_CD 		   = BUDENTCD;                                                          

                                                                                

IF YRID = 'H' THEN EXPENDITURES	   = ACTEXP;                                    

IF YRID = 'C' THEN EXPENDITURES	   = ESTEXP;                                    

                                                                                

IF YRID = 'H' THEN PERYRS	    = ACTPYR;                                         

IF YRID = 'C' THEN PERYRS	    = ESTPYR;                                         

                                                                                

IF YRID = 'H' THEN CURR_YR_RATE	    = HISCYR;                                   

IF YRID = 'C' THEN CURR_YR_RATE	    = ESTCYR;                                   

                                                                                

BUD_YR_ID  	= YRID;                                                             

U_RESV_1        = RESUNIV;                                                      

                                                                                                         

IF DEPT_ID         = ' ' THEN DEPT_ID          = '.';                           

IF UNIV_BUD_ID     = ' ' THEN UNIV_BUD_ID      = '.';                           

IF BE_CD8          = ' ' THEN BE_CD8           = '.';                           

IF ST_PRO_COMP_CD  = ' ' THEN ST_PRO_COMP_CD   = '.';                           

IF PROG_COMP       = ' ' THEN PROG_COMP        = '.';                           

IF ST_FUND_TYP     = ' ' THEN ST_FUND_TYP      = '.';                           

IF UNIV_FUND_ID    = ' ' THEN UNIV_FUND_ID     = '.';                           

IF APPROP_CAT      = ' ' THEN APPROP_CAT       = '.';                           

IF OBJECT_CD       = ' ' THEN OBJECT_CD        = '.';                           

IF PCS_DEPT_ID     = ' ' THEN PCS_DEPT_ID      = '.';                           

IF GEN_LEDGER_CD   = ' ' THEN GEN_LEDGER_CD    = '.';                           

IF REVENUE_TYP     = ' ' THEN REVENUE_TYP      = '.';                           

                                                                                

IF EXPENDITURES = 0 THEN EXPENDITURES = ' ';                                    

IF PERYRS       = 0 THEN PERYRS       = ' ';                                    

IF CURR_YR_RATE = 0 THEN CURR_YR_RATE = ' ';                                    

                                                                                

PUT                                                                             

UNIV_ROW_ID REPT_INST FISCAL_YR DEPT_ID                              

UNIV_BUD_ID BE_CD8 IBI ST_PRO_COMP_CD PROG_COMP ST_FUND_TYP                     

UNIV_FUND_ID APPROP_CAT OBJECT_CD PCS_DEPT_ID GEN_LEDGER_CD                     

REVENUE_TYP BE_CD EXPENDITURES PERYRS CURR_YR_RATE BUD_YR_ID U_RESV_1;