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

54
Copybook/DTSXL414.cpy Normal file
View File

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