10/03/94 MM MADE CHANGES TO REPORTS FOR ADD'L FIELDS
10/23/95 KA MADE CHANGES TO REPORTS FOR ADD'L FIELDS
02/15/98 MM MADE CHANGES TO REPORT FOR PCT FEDERAL FUNDS
Changes made to add AU fields to report, namely FMAN Building Number,
Building Insurance Number, Sub-Department and % Federal Funding Fields.
========================================================================
------------------------------------------------------------------------
*
01 D6.
03 FILLER PIC X(13) VALUE 'CUSTODIAN NO:'.
03 FILLER PIC X(04) VALUE SPACES.
03 D6-CUSTODIAN-NO PIC X(09) VALUE SPACES.
03 FILLER PIC X(21) VALUE SPACES.
03 FILLER PIC X(11) VALUE 'ROOM/FLOOR:'.
03 FILLER PIC X(02) VALUE SPACES.
03 D6-ROOM-FLOOR PIC X(06) VALUE SPACES.
03 FILLER PIC X(15) VALUE MM1094
' BLDG INS NUM: '. MM1094
03 D6-BLDG-INS-NUM PIC X(05) VALUE SPACES. MM1094
03 FILLER PIC X(14) VALUE SPACES. MM1094
03 FILLER PIC X(52) VALUE SPACES.
*
01 D7.
03 FILLER PIC X(09) VALUE 'EXEC LVL:'.
03 FILLER PIC X(01) VALUE SPACES.
03 D7-EXEC-LEVEL PIC X(02) VALUE SPACES.
03 FILLER PIC X(14) VALUE SPACES.
03 FILLER PIC X(09) VALUE 'DIVISION:'.
03 FILLER PIC X(01) VALUE SPACES.
03 D7-DIVISION PIC X(02) VALUE SPACES.
03 FILLER PIC X(09) VALUE SPACES.
03 FILLER PIC X(11) VALUE 'DEPARTMENT:'.
03 FILLER PIC X(02) VALUE SPACES.
03 D7-DEPARTMENT PIC X(05) VALUE SPACES.
03 FILLER PIC X(11) VALUE ' SUB-DEPT: '. MM1094
03 D7-SUB-DEPT PIC X(03) VALUE SPACES. MM1094
* 03 FILLER PIC X(15) VALUE SPACES.
03 FILLER PIC X(07) VALUE SPACES. MM1094
03 FILLER PIC X(52) VALUE SPACES.
*
01 D8.
------------------------------------------------------------------------
03 D22-PO-ACCT4.
05 D22-ACCT4-CC PIC X(02) VALUE SPACES.
05 D22-ACCT4-DASH PIC X(01) VALUE SPACES.
05 D22-ACCT4-2 PIC X(12) VALUE SPACES.
03 FILLER PIC X(02) VALUE SPACES.
03 FILLER PIC X(13) VALUE 'PCT FED FUNDS'. KA1095
03 FILLER PIC X(05) VALUE ' %1: '. KA1095
03 D22-PCT-FED-FUND1 PIC X(03) VALUE SPACES. KA1095
03 FILLER PIC X(05) VALUE ' %2: '. KA1095
03 D22-PCT-FED-FUND2 PIC X(03) VALUE SPACES. KA1095
03 FILLER PIC X(05) VALUE ' %3: '. KA1095
03 D22-PCT-FED-FUND3 PIC X(03) VALUE SPACES. KA1095
03 FILLER PIC X(05) VALUE ' %4: '. KA1095
03 D22-PCT-FED-FUND4 PIC X(03) VALUE SPACES. KA1095
03 FILLER PIC X(40) VALUE SPACES. KA1095
*
01 D23.
------------------------------------------------------------------------
5100-PRINT-REPORT SECTION.
5100-PRINT-000.
. . . . .
. . . . .
. . . . .
*
MOVE TA-CUSTODIAN-NAME TO D5-CUSTODIAN-NAME.
MOVE TA-BUILDING TO D5-BUILDING.
MOVE TA-FMAN-BLG-NUM TO D5-FMAN-BLDG-NUM. MM1094
MOVE D5 TO D0.
PERFORM 9000-PRINT-ROUTINE THRU 9000-PRINT-ROUTINE-EXIT.
*
MOVE TA-CUSTODIAN-NUMBER TO D6-CUSTODIAN-NO.
MOVE TA-ROOM-FLOOR TO D6-ROOM-FLOOR.
MOVE TA-BLDG-INS-NUM TO D6-BLDG-INS-NUM. MM1094
MOVE D6 TO D0.
PERFORM 9000-PRINT-ROUTINE THRU 9000-PRINT-ROUTINE-EXIT.
*
MOVE TA-EXEC-LEVEL TO D7-EXEC-LEVEL.
MOVE TA-DIVISION TO D7-DIVISION.
MOVE TA-DEPT TO D7-DEPARTMENT.
MOVE TA-SUB-DEPT TO D7-SUB-DEPT. MM1094
MOVE D7 TO D0.
PERFORM 9000-PRINT-ROUTINE THRU 9000-PRINT-ROUTINE-EXIT.
*
MOVE TA-SCHOOL TO D8-SCHOOL.
. . . . .
. . . . .
. . . . .
IF TA-ACQ-ACCT (4) = SPACES
MOVE SPACES TO D22-PO-ACCT4
ELSE
MOVE TA-ACQ-ACCT (4) TO ACCOUNT-SPLIT
MOVE CORR ACCOUNT-SPLIT TO ACCOUNT-EDIT
IF HOLD-TT-MULTI-CAMPUS-SW = 'Y'
MOVE TA-ACQ-ACCT-CC (4) TO D22-ACCT4-CC
MOVE '-' TO D22-ACCT4-DASH
MOVE ACCOUNT-EDIT TO D22-ACCT4-2
ELSE
MOVE ACCOUNT-EDIT TO D22-PO-ACCT4.
MOVE TA-PCT-FED-FUND1 TO D22-PCT-FED-FUND1. MM0298
MOVE TA-PCT-FED-FUND2 TO D22-PCT-FED-FUND2. MM0298
MOVE TA-PCT-FED-FUND3 TO D22-PCT-FED-FUND3. MM0298
MOVE TA-PCT-FED-FUND4 TO D22-PCT-FED-FUND4. MM0298
MOVE D22 TO D0.
PERFORM 9000-PRINT-ROUTINE THRU 9000-PRINT-ROUTINE-EXIT.
MOVE TA-COMMODITY-CODE TO D23-COMMODITY-CODE.
------------------------------------------------------------------------
========================================================================
FRS Fixed Assets In-House Changes
Last Modified: Tuesday, 28-Nov-2000 11:27:32 CST
©1999 All Rights Reserved