giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
Copybook/DTSXLCSP.cpy Normal file
View File

@ -0,0 +1,96 @@
00001 ***** 01/13/00
00002 * DTSXLCSP
00003 * DTSXLCSP XEROX LASER REPORT LAYOUT AND LV054
00004 * DEFINITIONS CL**2
00005 * DTSXLCSP
00006 * 08-12-1999 CL*28
00007 * CL*28
00008 * CL*28
00009 * CL*20
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
00012 * REFERENCE RFP #**** PROGRAMMER: XXX CL*20
00013 * CL*20
00014 ***** DTSXLCSP
00015 ****************************************************************** CL*17
00016 * XEROX LASER DEFINITION * CL*28
00017 ****************************************************************** CL*17
00018 RD XEROX-REPORT CL*31
00019 CONTROLS ARE FINAL CL*31
00020 PAGE LIMIT 90 LINES CL*47
00021 FIRST DETAIL 1 CL*52
00022 LAST DETAIL 90. CL*47
00023 SKIP2 CL*31
00024 01 XEROX-START-LINE TYPE IS DETAIL. CL*32
00025 05 LINE 1. CL*52
00026 10 COLUMN 1 PIC X(12) CL*52
00027 VALUE '$X9700$DJDE '. CL*52
00028 10 COLUMN 13 PIC X(09) CL*52
00029 VALUE 'JDL=XMOM,'. CL*52
00030 10 COLUMN 22 PIC X(10) CL*52
00031 VALUE 'JDE=W2REC,'. CL*52
00032 10 COLUMN 32 PIC X(01) CL*52
00033 VALUE ';'. CL*52
00034 10 COLUMN 33 PIC X(49) CL*52
00035 VALUE SPACES. CL*52
00036 CL*52
00037 05 LINE 2. CL*52
00038 10 COLUMN 1 PIC X(12) CL*52
00039 VALUE '$X9700$DJDE '. CL*52
00040 10 COLUMN 13 PIC X(13) CL*52
00041 VALUE 'FORMS=DTSCSP,'. CL*52
00042 10 COLUMN 26 PIC X(11) CL*52
00043 VALUE 'BFORM=NONE,'. CL*52
00044 10 COLUMN 37 PIC X(38) CL*52
00045 VALUE 'OTEXT=(''LOAD 8 X 14 SIZE PAPER'',WAIT),'. CL*52
00046 10 COLUMN 75 PIC X(01) CL*52
00047 VALUE ';'. CL*52
00048 10 COLUMN 76 PIC X(06) CL*52
00049 VALUE SPACES. CL*52
00050 05 LINE 3. CL*52
00051 10 COLUMN 1 PIC X(12) CL*52
00052 VALUE '$X9700$DJDE '. CL*52
00053 10 COLUMN 13 PIC X(10) CL*52
00054 VALUE 'DUPLEX=NO,'. CL*52
00055 10 COLUMN 23 PIC X(12) CL*54
00056 VALUE 'FORMAT=FMT7,'. CL*54
00057 10 COLUMN 35 PIC X(13) CL*54
00058 VALUE 'FONTS=P07TDB,'. CL*52
00059 10 COLUMN 48 PIC X(19) CL*54
00060 VALUE 'FONTINDEX=(82,ONE),'. CL*52
00061 10 COLUMN 67 PIC X CL*54
00062 VALUE ';'. CL*52
00063 10 COLUMN 68 PIC X(14) CL*54
00064 VALUE SPACES. CL*52
00065 05 LINE 4. CL*52
00066 10 COLUMN 1 PIC X(12) CL*52
00067 VALUE '$X9700$DJDE '. CL*52
00068 10 COLUMN 13 PIC X(13) CL*52
00069 VALUE 'DATA=(0,132),'. CL*52
00070 10 COLUMN 26 PIC X(13) CL*52
00071 VALUE 'ASSIGN=(1,1),'. CL*52
00072 * 10 COLUMN 39 PIC X(18) CL*52
00073 * VALUE 'BEGIN=(0.10,0.11),'. CL*52
00074 10 COLUMN 39 PIC X(07) CL*52
00075 VALUE 'TOF=10,'. CL*52
00076 10 COLUMN 46 PIC X(07) CL*52
00077 VALUE 'BOF=60,'. CL*53
00078 10 COLUMN 53 PIC X(04) CL*52
00079 VALUE 'END;'. CL*52
00080 10 COLUMN 57 PIC X(24) CL*52
00081 VALUE SPACES. CL*52
00082 05 LINE 13. CL*52
00083 10 COLUMN 7 PIC X(40) CL*51
00084 VALUE ALL '*'. CL*51
00085 05 LINE 14. CL*52
00086 10 COLUMN 7 PIC X(40) CL*51
00087 VALUE '* ROUTE FOLLOWING FORMS TO: *'. CL*51
00088 05 LINE 15. CL*52
00089 10 COLUMN 7 PIC X(40) CL*51
00090 VALUE '* TAX ACCOUNTING SECTION *'. CL*51
00091 05 LINE 16. CL*52
00092 10 COLUMN 7 PIC X(40) CL*51
00093 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. CL*51
00094 05 LINE 17. CL*52
00095 10 COLUMN 7 PIC X(40) CL*51
00096 VALUE ALL '*'. CL*51