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

61
Copybook/DTSXL405.cpy Normal file
View File

@ -0,0 +1,61 @@
00001 ***** 04/08/03
00002 * DTSXL405
00003 * DTSXL405 XEROX LASER REPORT DEFINITION FOR LIEN LV002
00004 * RELEASE LETTER FORM(DTSCSP). PRINTED ON DTSXL405
00005 * 8 X 14 PAPER. DTSXL405
00006 * DTSXL405
00007 * 10-26-2000 MODIFIED TO CALL DTS405 DJDE. DTSXL405
00008 * REFERENCE RFP #**** PROGRAMMER: ZL1 DTSXL405
00009 * DTSXL405
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL405
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL405
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL405
00013 * DTSXL405
00014 ***** DTSXL405
00015 ******************************************************************DTSXL405
00016 * JDE- DTS405 * XEROX LASER DEFINITION *DTSXL405
00017 ******************************************************************DTSXL405
00018 01 XEROX-XMOM-CNTL1. DTSXL405
00019 * 05 FILLER PIC X. CL**2
00020 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL405
00021 05 XEROX-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL405
00022 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTS405,'. DTSXL405
00023 05 XEROX-PMODE PIC X(10) VALUE 'PMODE=POR,'. DTSXL405
00024 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXL405
00025 05 XEROX-FONT PIC X(12) VALUE 'FONT=P07TDB,'. DTSXL405
00026 05 XEROX-LINE1-END PIC X(1) VALUE ';'. DTSXL405
00027 DTSXL405
00028 01 XEROX-XMOM-CNTL2. DTSXL405
00029 * 05 FILLER PIC X. CL**2
00030 05 DJDE-LINE2 PIC X(12) VALUE '$X9700$DJDE '. DTSXL405
00031 05 XEROX-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL405
00032 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL405
00033 05 XEROX-TOF PIC X(07) VALUE 'TOF=10,'. DTSXL405
00034 05 XEROX-BOF PIC X(07) VALUE 'BOF=80,'. DTSXL405
00035 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DTSXL405
00036 05 FILLER PIC X(08) VALUE SPACES. DTSXL405
00037 DTSXL405
00038 EJECT DTSXL405
00039 01 BLANK-LINE PIC X(180) VALUE SPACES. DTSXL405
00040 SKIP3 DTSXL405
00041 01 XEROX-ROUTE-PAGE. DTSXL405
00042 05 ROUTE-INFO-LINE13. DTSXL405
00043 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
00044 10 FILLER PIC X(40) DTSXL405
00045 VALUE '****************************************'. DTSXL405
00046 05 ROUTE-INFO-LINE14. DTSXL405
00047 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
00048 10 FILLER PIC X(40) DTSXL405
00049 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL405
00050 05 ROUTE-INFO-LINE15. DTSXL405
00051 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
00052 10 FILLER PIC X(40) DTSXL405
00053 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL405
00054 05 ROUTE-INFO-LINE16. DTSXL405
00055 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
00056 10 FILLER PIC X(40) DTSXL405
00057 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL405
00058 05 ROUTE-INFO-LINE17. DTSXL405
00059 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
00060 10 FILLER PIC X(40) DTSXL405
00061 VALUE '****************************************'. DTSXL405