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

97
Copybook/DTSXL102.cpy Normal file
View File

@ -0,0 +1,97 @@
00001 ***** 01/11/05
00002 * DTSXL102
00003 * DTSXLBLH XEROX LASER REPORT LAYOUT AND LV003
00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXL102
00005 * DTSXL102
00006 * 08-12-1999 DTSXL102
00007 * DTSXL102
00008 * DTSXL102
00009 * DTSXL102
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL102
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL102
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL102
00013 * DTSXL102
00014 ***** DTSXL102
00015 ******************************************************************DTSXL102
00016 * XEROX LASER DEFINITION *DTSXL102
00017 ******************************************************************DTSXL102
00018 RD XEROX-REPORT DTSXL102
00019 CONTROLS ARE FINAL DTSXL102
00020 PAGE LIMIT 66 LINES DTSXL102
00021 FIRST DETAIL 1 DTSXL102
00022 LAST DETAIL 60. DTSXL102
00023 SKIP2 DTSXL102
00024 01 XEROX-START-LINE TYPE IS DETAIL. DTSXL102
00025 05 LINE 1. DTSXL102
00026 10 COLUMN 1 PIC X(12) DTSXL102
00027 VALUE '$X9700$DJDE '. DTSXL102
00028 10 COLUMN 13 PIC X(09) DTSXL102
00029 VALUE 'JDL=XMOM,'. DTSXL102
00030 10 COLUMN 22 PIC X(11) DTSXL102
00031 VALUE 'JDE=SWORKS,'. DTSXL102
00032 10 COLUMN 33 PIC X(01) DTSXL102
00033 VALUE ';'. DTSXL102
00034 10 COLUMN 34 PIC X(48) DTSXL102
00035 VALUE SPACES. DTSXL102
00036 DTSXL102
00037 05 LINE 2. DTSXL102
00038 10 COLUMN 1 PIC X(12) DTSXL102
00039 VALUE '$X9700$DJDE '. DTSXL102
00040 10 COLUMN 13 PIC X(13) DTSXL102
00041 VALUE 'FORMS=DTSBLZ,'. DTSXL102
00042 10 COLUMN 26 PIC X(11) DTSXL102
00043 VALUE 'BFORM=NONE,'. DTSXL102
00044 10 COLUMN 37 PIC X(38) DTSXL102
00045 VALUE 'OTEXT=(''LOAD NO HOLE WHITE PAPER''),'. DTSXL102
00046 10 COLUMN 75 PIC X(01) DTSXL102
00047 VALUE ';'. DTSXL102
00048 10 COLUMN 76 PIC X(06) DTSXL102
00049 VALUE SPACES. DTSXL102
00050 05 LINE 3. DTSXL102
00051 10 COLUMN 1 PIC X(12) DTSXL102
00052 VALUE '$X9700$DJDE '. DTSXL102
00053 10 COLUMN 13 PIC X(10) DTSXL102
00054 VALUE 'DUPLEX=NO,'. DTSXL102
00055 10 COLUMN 23 PIC X(12) DTSXL102
00056 VALUE 'FORMAT=FMT7,'. DTSXL102
00057 10 COLUMN 35 PIC X(13) DTSXL102
00058 VALUE 'FONTS=CS12BP,'. DTSXL102
00059 10 COLUMN 48 PIC X(19) DTSXL102
00060 VALUE 'FONTINDEX=(82,ONE),'. DTSXL102
00061 10 COLUMN 67 PIC X DTSXL102
00062 VALUE ';'. DTSXL102
00063 10 COLUMN 68 PIC X(14) DTSXL102
00064 VALUE SPACES. DTSXL102
00065 05 LINE 4. DTSXL102
00066 10 COLUMN 1 PIC X(12) DTSXL102
00067 VALUE '$X9700$DJDE '. DTSXL102
00068 10 COLUMN 13 PIC X(13) DTSXL102
00069 VALUE 'DATA=(0,132),'. DTSXL102
00070 10 COLUMN 26 PIC X(13) DTSXL102
00071 VALUE 'ASSIGN=(1,1),'. DTSXL102
00072 10 COLUMN 39 PIC X(18) DTSXL102
00073 VALUE 'BEGIN=(0.50,0.41),'. DTSXL102
00074 10 COLUMN 57 PIC X(07) DTSXL102
00075 VALUE 'TOF=12,'. DTSXL102
00076 10 COLUMN 64 PIC X(07) DTSXL102
00077 VALUE 'BOF=60,'. DTSXL102
00078 10 COLUMN 71 PIC X(04) DTSXL102
00079 VALUE 'END;'. DTSXL102
00080 10 COLUMN 75 PIC X(07) DTSXL102
00081 VALUE SPACES. DTSXL102
00082 DTSXL102
00083 05 LINE 20. DTSXL102
00084 10 COLUMN 20 PIC X(49) DTSXL102
00085 VALUE ALL '*'. DTSXL102
00086 05 LINE 21. DTSXL102
00087 10 COLUMN 20 PIC X(40) DTSXL102
00088 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL102
00089 05 LINE 22. DTSXL102
00090 10 COLUMN 20 PIC X(40) DTSXL102
00091 VALUE '* STATUS UNIT *'. DTSXL102
00092 05 LINE 23. DTSXL102
00093 10 COLUMN 20 PIC X(40) DTSXL102
00094 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL102
00095 05 LINE 24. DTSXL102
00096 10 COLUMN 20 PIC X(49) DTSXL102
00097 VALUE ALL '*'. DTSXL102