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

40
Copybook/DTSXD303.cpy Normal file
View File

@ -0,0 +1,40 @@
00001 ***** 01/20/06
00002 * DTSXD303
00003 * DTSXD303 XEROX LASER REPORT LAYOUT AND LV002
00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXD303
00005 * DTSXD303
00006 * 08-12-1999 DTSXD303
00007 * DTSXD303
00008 * DTSXD303
00009 * DTSXD303
00010 * 02-28-2001 PROGRAM BR303 NEEDS TO HAVE R309 XEROX COPYBOOK. DTSXD303
00011 * DTSBR303 WILL PRINT DAILY R309 CREDIT MEMO ON DTSXD303
00012 * REGULAR PAPER IN CLASS I DTSXD303
00013 * REFERENCE RFP #**** PROGRAMMER: ZL11 DTSXD303
00014 * DTSXD303
00015 ***** DTSXD303
00016 ******************************************************************DTSXD303
00017 * XEROX LASER DEFINITION *DTSXD303
00018 ******************************************************************DTSXD303
00019 DTSXD303
00020 01 XEROX-XD303-LINE1. DTSXD303
00021 * 05 FILLER PIC X VALUE SPACES. CL**2
00022 05 XD3031-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXD303
00023 05 XD3031-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXD303
00024 05 XD3031-JDE PIC X(11) VALUE 'JDE=SWORKS,'. DTSXD303
00025 05 XD3031-FORMS PIC X(13) VALUE 'FORMS=DTSBLH,'. DTSXD303
00026 05 XD3031-BFORM PIC X(11) VALUE 'BFORM=NONE,'. DTSXD303
00027 05 XD3031-OTEXT PIC X(38) VALUE DTSXD303
00028 'OTEXT=(''LOAD NO HOLD WHITE PAPER'');'. DTSXD303
00029 01 XEROX-XD303-LINE2. DTSXD303
00030 * 05 FILLER PIC X VALUE SPACES. CL**2
00031 05 XD3032-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXD303
00032 05 XD3032-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXD303
00033 05 XD3032-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXD303
00034 05 XD3032-FONTS PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXD303
00035 05 XD3032-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXD303
00036 05 XD3032-TOF PIC X(07) VALUE 'TOF=12,'. DTSXD303
00037 05 XD3032-BOF PIC X(07) VALUE 'BOF=60,'. DTSXD303
00038 05 XD3032-LINE-END PIC X(04) VALUE 'END;'. DTSXD303
00039 DTSXD303
00040 DTSXD303