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

53
Copybook/DTSXL511.cpy Normal file
View File

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