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