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

71
Copybook/DTSIZ735.cpy Normal file
View File

@ -0,0 +1,71 @@
00001 RD REPORT-LISTING:SUFFIX: 07/29/98
00002 CONTROLS ARE FINAL DTSIZ735
00003 PAGE LIMIT 60 LINES LV001
00004 HEADING 1 DTSIZ735
00005 FIRST DETAIL 9. DTSIZ735
00006 SKIP2 DTSIZ735
00007 01 TYPE IS PAGE HEADING. DTSIZ735
00008 05 LINE 1. DTSIZ735
00009 10 COLUMN 1 PIC X(05) DTSIZ735
00010 VALUE '735R1'. DTSIZ735
00011 10 COLUMN 41 PIC X(50) DTSIZ735
00012 SOURCE LRCM-AGY-NAME-LINE1. DTSIZ735
00013 10 COLUMN 119 PIC X(05) DTSIZ735
00014 VALUE 'DATE:'. DTSIZ735
00015 10 COLUMN 125 PIC X(08) DTSIZ735
00016 SOURCE LRCM-SYS-DATE. DTSIZ735
00017 05 LINE 2. DTSIZ735
00018 10 COLUMN 41 PIC X(50) DTSIZ735
00019 SOURCE LRCM-AGY-NAME-LINE2. DTSIZ735
00020 10 COLUMN 119 PIC X(05) DTSIZ735
00021 VALUE 'TIME:'. DTSIZ735
00022 10 COLUMN 125 PIC X(08) DTSIZ735
00023 SOURCE LRCM-SYS-TIME. DTSIZ735
00024 05 LINE 3. DTSIZ735
00025 10 COLUMN 1 PIC X(31) DTSIZ735
00026 VALUE 'ROUTE TO: JOB SERVICE DIVISION'. DTSIZ735
00027 10 COLUMN 119 PIC X(05) DTSIZ735
00028 VALUE 'PAGE:'. DTSIZ735
00029 10 COLUMN 127 PIC ZZ,ZZ9 DTSIZ735
00030 SOURCE PAGE-COUNTER. DTSIZ735
00031 05 LINE 4. DTSIZ735
00032 10 COLUMN 40 PIC X(27) DTSIZ735
00033 VALUE 'EMPLOYERS FOR LOCAL OFFICE '. DTSIZ735
00034 10 COLUMN 67 PIC 9(02) DTSIZ735
00035 SOURCE R735-LO-CODE. DTSIZ735
00036 10 COLUMN 70 PIC X(40) DTSIZ735
00037 SOURCE WS-JS-OFFICE-NAME. DTSIZ735
00038 05 LINE 6. DTSIZ735
00039 10 COLUMN 9 PIC X(31) DTSIZ735
00040 VALUE 'SIC/OWN BUSINESS NAME OR'. DTSIZ735
00041 05 LINE 7. DTSIZ735
00042 10 COLUMN 1 PIC X(40) DTSIZ735
00043 VALUE 'EMP NO CODE TAX/BENEFIT ALTERNATE '. DTSIZ735
00044 10 COLUMN 41 PIC X(40) DTSIZ735
00045 VALUE 'NAMES ADDRESS DELIVERY LINE '. DTSIZ735
00046 10 COLUMN 96 PIC X(36) DTSIZ735
00047 VALUE 'CITY ST ZIP CODE'. DTSIZ735
00048 SKIP2 DTSIZ735
00049 01 DETAIL-LINE:SUFFIX: TYPE IS DETAIL. DTSIZ735
00050 05 LINE PLUS 1. DTSIZ735
00051 10 COLUMN 1 PIC 999B999 DTSIZ735
00052 SOURCE R735-EMP-NO. DTSIZ735
00053 10 COLUMN 9 PIC X(04) DTSIZ735
00054 SOURCE R735-SIC-CD. DTSIZ735
00055 10 COLUMN 14 PIC X(01) DTSIZ735
00056 SOURCE R735-OWN-CD. DTSIZ735
00057 10 COLUMN 17 PIC X(35) DTSIZ735
00058 SOURCE R735-NAME. DTSIZ735
00059 10 COLUMN 53 PIC X(40) DTSIZ735
00060 SOURCE R735-DELIV-LINE. DTSIZ735
00061 10 COLUMN 94 PIC X(25) DTSIZ735
00062 SOURCE R735-CITY. DTSIZ735
00063 10 COLUMN 120 PIC X(02) DTSIZ735
00064 SOURCE R735-ST. DTSIZ735
00065 10 COLUMN 123 PIC X(10) DTSIZ735
00066 SOURCE R735-ZIP. DTSIZ735
00067 SKIP2 DTSIZ735
00068 01 TYPE IS CONTROL FOOTING FINAL. DTSIZ735
00069 05 LINE PLUS 4. DTSIZ735
00070 10 COLUMN 26 PIC X(17) DTSIZ735
00071 VALUE '*** END OF REPORT'. DTSIZ735