DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
102
Copybook/DTSXL615.cpy
Normal file
102
Copybook/DTSXL615.cpy
Normal file
@ -0,0 +1,102 @@
|
||||
00001 ***** 11/19/09
|
||||
00002 * DTSXL615
|
||||
00003 * DTSXL615 XEROX LASER REPORT SELF-MAILER LETTERHEAD LV001
|
||||
00004 * DEFINITIONS FOR REPORT WRITER FORMAT DTSXL615
|
||||
00005 * DTSXL615
|
||||
00006 * 08-25-1999 INITIAL DEVELOPMENT DTSXL615
|
||||
00007 * DTSXL615
|
||||
00008 * DTSXL615
|
||||
00009 * DTSXL615
|
||||
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL615
|
||||
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL615
|
||||
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL615
|
||||
00013 * DTSXL615
|
||||
00014 ***** DTSXL615
|
||||
00015 ******************************************************************DTSXL615
|
||||
00016 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL615
|
||||
00017 ******************************************************************DTSXL615
|
||||
00018 ******************************************************************DTSXL615
|
||||
00019 * XEROX LASER DEFINITION *DTSXL615
|
||||
00020 ******************************************************************DTSXL615
|
||||
00021 * DTSXL615
|
||||
00022 01 ROUTE-INFO-LINE13. DTSXL615
|
||||
00023 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00024 05 FILLER PIC X(06) VALUE SPACES. DTSXL615
|
||||
00025 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL615
|
||||
00026 01 ROUTE-INFO-LINE14. DTSXL615
|
||||
00027 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00028 05 FILLER PIC X(06) VALUE SPACES. DTSXL615
|
||||
00029 05 FILLER PIC X(40) DTSXL615
|
||||
00030 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL615
|
||||
00031 01 ROUTE-INFO-LINE15. DTSXL615
|
||||
00032 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00033 05 FILLER PIC X(06) VALUE SPACES. DTSXL615
|
||||
00034 05 FILLER PIC X(40) DTSXL615
|
||||
00035 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL615
|
||||
00036 01 ROUTE-INFO-LINE16. DTSXL615
|
||||
00037 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00038 05 FILLER PIC X(06) VALUE SPACES. DTSXL615
|
||||
00039 05 FILLER PIC X(40) DTSXL615
|
||||
00040 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL615
|
||||
00041 01 ROUTE-INFO-LINE17. DTSXL615
|
||||
00042 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00043 05 FILLER PIC X(06) VALUE SPACES. DTSXL615
|
||||
00044 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL615
|
||||
00045 DTSXL615
|
||||
00046 01 XEROX-CNTL-LINE18. DTSXL615
|
||||
00047 * 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00048 05 CNTL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL615
|
||||
00049 05 CNTL1-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL615
|
||||
00050 05 CNTL1-JDE PIC X(11) VALUE 'JDE=T602R1,'. DTSXL615
|
||||
00051 * 05 CNTL1-CME PIC X(14) VALUE 'MODIFY=CME417,'. DTSXL615
|
||||
00052 05 CNTL1-END PIC X(01) VALUE ';'. DTSXL615
|
||||
00053 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00054 DTSXL615
|
||||
00055 01 XEROX-CNTL-LINE19. DTSXL615
|
||||
00056 * 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00057 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL615
|
||||
00058 05 CNTL2-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL615
|
||||
00059 05 CNTL2-FONTS PIC X(36) DTSXL615
|
||||
00060 VALUE 'FONTS=(P07TDB,P07TDB,C128ZP,C128PX),'. DTSXL615
|
||||
00061 05 CNTL2-END PIC X(01) VALUE ';'. DTSXL615
|
||||
00062 05 FILLER PIC X(24) VALUE SPACES. DTSXL615
|
||||
00063 DTSXL615
|
||||
00064 01 XEROX-CNTL-LINE20. DTSXL615
|
||||
00065 * 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00066 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL615
|
||||
00067 05 CNTL4-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL615
|
||||
00068 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL615
|
||||
00069 05 CNTL4-BEGIB PIC X(18) VALUE DTSXL615
|
||||
00070 'BEGIN=(0.50,0.41),'. DTSXL615
|
||||
00071 05 CNTL4-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL615
|
||||
00072 05 CNTL4-BOF PIC X(07) VALUE 'BOF=66,'. DTSXL615
|
||||
00073 05 CNTL4-END PIC X(04) VALUE 'END;'. DTSXL615
|
||||
00074 05 FILLER PIC X(07) VALUE SPACES. DTSXL615
|
||||
00075 DTSXL615
|
||||
00076 01 VSCA-ADDR-LINE-17. DTSXL615
|
||||
00077 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00078 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00079 05 WS-ADDR-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSXL615
|
||||
00080 01 VSCA-ADDR-LINE-18. DTSXL615
|
||||
00081 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00082 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00083 05 WS-ADDR-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSXL615
|
||||
00084 01 VSCA-ADDR-LINE-19. DTSXL615
|
||||
00085 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00086 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00087 05 WS-ADDR-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSXL615
|
||||
00088 01 VSCA-ADDR-LINE-20. DTSXL615
|
||||
00089 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00090 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00091 05 WS-ADDR-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSXL615
|
||||
00092 01 VSCA-ADDR-LINE-21. DTSXL615
|
||||
00093 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00094 05 FILLER PIC X(36) VALUE SPACES. DTSXL615
|
||||
00095 05 WS-ADDR-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSXL615
|
||||
00096 DTSXL615
|
||||
00097 01 XEROX-END-LINE-1. DTSXL615
|
||||
00098 * 05 FILLER PIC X VALUE SPACES. DTSXL615
|
||||
00099 05 ENDL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL615
|
||||
00100 05 ENDL1-END PIC X(04) VALUE 'END;'. DTSXL615
|
||||
00101 05 FILLER PIC X(64) VALUE SPACES. DTSXL615
|
||||
00102 DTSXL615
|
||||
Reference in New Issue
Block a user