00001 ***** 04/27/06 00002 * DTSXL325 00003 * DTSXL325 XEROX LASER REPORT R325. LV001 00004 * GENERATE SI ASSESSMENT DAILY STATEMENTS. DTSXL325 00005 * DTSXL325 00006 * 03-27-2006 INITIAL DEVELOPMENT ZL1. DTSXL325 00007 * DTSXL325 00008 * DTSXL325 00009 * DTSXL325 00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL325 00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL325 00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL325 00013 * DTSXL325 00014 ***** DTSXL325 00015 ******************************************************************DTSXL325 00016 * XEROX LASER DEFINITION *DTSXL325 00017 ******************************************************************DTSXL325 00018 05 XEROX-8X11-LINE. DTSXL325 00019 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL325 00020 10 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL325 00021 10 XEROX-JDE PIC X(11) VALUE 'JDE=T325R1,'. DTSXL325 00022 10 XEROX-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL325 00023 10 XEROX-PDE PIC X(14) VALUE 'FORMAT=PDE910,'. DTSXL325 00024 * 10 XEROX-CME PIC X(15) VALUE 'MODIFY=CME414,;'. DTSXL325 00025 10 FILLER PIC X(20) VALUE SPACES. DTSXL325 00026 DTSXL325 00027 05 XEROX-CNTL-LINE2. DTSXL325 00028 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL325 00029 10 XEROX-FONTS PIC X(22) DTSXL325 00030 VALUE 'FONTS=(P07TDB,P07ITA),'. DTSXL325 00031 10 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL325 00032 10 XEROX-BEGIN PIC X(18) VALUE 'BEGIN=(0.90,0.41),'. DTSXL325 00033 10 XEROX-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL325 00034 10 XEROX-BOF PIC X(07) VALUE 'BOF=90,'. DTSXL325 00035 10 XEROX-END PIC X(04) VALUE 'END;'. DTSXL325 00036 10 FILLER PIC X(07) VALUE SPACES. DTSXL325 00037 DTSXL325 00038 01 VSCA-ADDR-LINE. DTSXL325 00039 05 LINE-ADDR-17. DTSXL325 00040 10 FILLER PIC X(36) VALUE SPACES. DTSXL325 00041 10 MAIL-ADDR-LINE1 PIC X(40). DTSXL325 00042 05 LINE-ADDR-18. DTSXL325 00043 10 FILLER PIC X(36) VALUE SPACES. DTSXL325 00044 10 MAIL-ADDR-LINE2 PIC X(40). DTSXL325 00045 05 LINE-ADDR-19. DTSXL325 00046 10 FILLER PIC X(36) VALUE SPACES. DTSXL325 00047 10 MAIL-ADDR-LINE3 PIC X(40). DTSXL325 00048 05 LINE-ADDR-20. DTSXL325 00049 10 FILLER PIC X(36) VALUE SPACES. DTSXL325 00050 10 MAIL-ADDR-LINE4 PIC X(40). DTSXL325 00051 05 LINE-ADDR-21. DTSXL325 00052 10 FILLER PIC X(36) VALUE SPACES. DTSXL325 00053 10 MAIL-ADDR-LINE5 PIC X(40). DTSXL325