4. CUSTOMIZATION › 4.1 Defining Cost Centers › 4.1.1 Defining the Cost Center Structure › 4.1.3.2 Cost Center Derivation Example

4.1.3.2 Cost Center Derivation Example

Figure 4-4 shows the SAS coding that supports the cost center
example shown in Section 4.1.1.2.

_____________________________________________________________


+-----------------------------------------------------------+
| Date: __/__/__          Administrator: __________________ |
+-----------------------------------------------------------+
 Cost Center Derivation Exit (COSTRTE):
 /*
     CCI'S COST CENTER DERIVATION EXIT

     DEPARTMENT IS BUILT FROM POSITIONS 1-3 OF  THE  JOBNAME.
     PROJECT  IS  TAKEN  FROM  POSITIONS  4-6 OF THE JOBNAME.
     USER NAME IS TAKEN FROM POSITIONS 1-20 OF THE PROGRAMMER
     NAME FIELD.

     IF THE DEPARTMENT IS NOT DEV, PRD, OR TST,
     IT IS INVALID AND THE COST CENTERS ARE SET TO
     THOSE OF THE INSTALLATION OVERHEAD ACCOUNT, "***".

     IF NO JOB CARD DATA (PROGRAMMER NAME FIELD) IS PRESENT,
     THE USER CODE IS SET TO BLANKS.
 */
     .
     .
  IF ROUTINE = 'DYSMFFMT' THEN DO;
    COSTCTR1=SUBSTR(JOB,1,3) ;
    IF COSTCTR1='DEV' OR COSTCTR1='PRD'
    OR COSTCTR1='TST' THEN DO;
      COSTCTR2=SUBSTR(JOB,4,3) ;
      COSTCTR3=JOBPRGNM;
    END;
    ELSE DO;
      COSTCTR1='***' ;
      COSTCTR2='***' ;
      COSTCTR3='***' ;
    END;
  END;
  ELSE IF ROUTINE = 'DYcccFMT' THEN DO;
     .
  END;
_____________________________________________________________


 Figure 4-4.  Cost Center Derivation Example