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

39
Copybook/DTSXL902.cpy Normal file
View File

@ -0,0 +1,39 @@
00001 ***** 01/11/06
00002 * DTSXL902
00003 * DTSXL902 XEROX LASER REPORT LAYOUT FOR UC30 LV004
00004 * DEFINITIONS DTSXL902
00005 * DTSXL902
00006 * DTSXL902
00007 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL902
00008 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL902
00009 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL902
00010 * DTSXL902
00011 ***** DTSXL902
00012 ******************************************************************DTSXL902
00013 * DTSBR902 XEROX LASER DEFINITION *DTSXL902
00014 ******************************************************************DTSXL902
00015 01 XEROX-CNTL-LINE. DTSXL902
00016 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL902
00017 05 XEROX-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL902
00018 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTS902,'. DTSXL902
00019 05 XEROX-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL902
00020 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXL902
00021 05 XEROX-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL902
00022 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL902
00023 05 XEROX-BEGIN PIC X(16) VALUE 'BEGIN=(.57,.58),'. DTSXL902
00024 05 XEROX-TOF PIC X(06) VALUE 'TOF=5,'. DTSXL902
00025 05 XEROX-BOF PIC X(07) VALUE 'BOF=55,'. DTSXL902
00026 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DTSXL902
00027 DTSXL902
00028 01 XEROX-CNTL-LINE1. DTSXL902
00029 05 XEROX-DJDE1 PIC X(12) VALUE '$X9700$DJDE '. DTSXL902
00030 05 XEROX-JDL1 PIC X(9) VALUE 'JDL=XMOM,'. DTSXL902
00031 05 XEROX-JDE1 PIC X(11) VALUE 'JDE=DTS90S,'. DTSXL902
00032 05 XEROX-DUPLEX1 PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL902
00033 05 XEROX-FONTS1 PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXL902
00034 05 XEROX-DATA1 PIC X(13) VALUE 'DATA=(0,132),'. DTSXL902
00035 05 XEROX-ASSIGN1 PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL902
00036 05 XEROX-BEGIN1 PIC X(16) VALUE 'BEGIN=(.57,.58),'. DTSXL902
00037 05 XEROX-TOF1 PIC X(06) VALUE 'TOF=5,'. DTSXL902
00038 05 XEROX-BOF1 PIC X(07) VALUE 'BOF=55,'. DTSXL902
00039 05 XEROX-LINE-END1 PIC X(4) VALUE 'END;'. DTSXL902