giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
Copybook/DTSIY102.cpy Normal file
View File

@ -0,0 +1,61 @@
00001 ***** 02/26/08
00002 * DTSIX102
00003 * DTSIX102 EMPLOYER PROFILE EXTRACT RECORD LV001
00004 * DTSIX102
00005 * EXCHANGES EMPLOYER PROFILE INFORMATION BETWEEN MAINFRAME AND DTSIX102
00006 * SQL SERVER DATABASE. DTSIX102
00007 * DTSIX102
00008 * DTSIX102
00009 ***** DTSIX102
00010 DTSIX102
00011 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102
00012 15 FILLER PIC X(01) VALUE ','. DTSIX102
00013 15 X102-EMP-NO PIC 9(06). DTSIX102
00014 15 FILLER PIC X(01) VALUE ','. DTSIX102
00015 15 X102-EMP-FEIN PIC 9(09). DTSIX102
00016 15 FILLER PIC X(01) VALUE ','. DTSIX102
00017 15 X102-EMP-CLASS PIC X(01). DTSIX102
00018 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102
00019 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102
00020 88 X102-CLASS-CD-VALID-88 VALUE 'R', 'S'. DTSIX102
00021 15 FILLER PIC X(01) VALUE ','. DTSIX102
00022 15 X102-EMP-STATUS PIC X(01). DTSIX102
00023 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102
00024 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102
00025 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102
00026 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102
00027 88 X102-STATUS-CD-VALID-88 VALUE 'A' 'I' DTSIX102
00028 'N', 'U'. DTSIX102
00029 15 FILLER PIC X(01) VALUE ','. DTSIX102
00030 15 X102-SOURCE-CD PIC X(02). DTSIX102
00031 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102
00032 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102
00033 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102
00034 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102
00035 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102
00036 88 X102-BENEFITS-88 VALUE '05'. DTSIX102
00037 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102
00038 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102
00039 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102
00040 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102
00041 88 X102-OTR-88 VALUE '10'. DTSIX102
00042 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102
00043 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102
00044 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102
00045 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102
00046 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102
00047 88 X102-UC30-88 VALUE '14', '15'. DTSIX102
00048 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102
00049 88 X102-WEB-REG-88 VALUE '17'. DTSIX102
00050 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102
00051 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102
00052 88 X102-WEB-88 VALUE DTSIX102
00053 '17' THRU '19'. DTSIX102
00054 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102
00055 '00' THRU '19'. DTSIX102
00056 15 FILLER PIC X(01) VALUE ','. DTSIX102
00057 15 X102-ACTION-CD PIC X(01). DTSIX102
00058 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102
00059 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102
00060 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102
88 X102-ACTION-CD-VALID-88 VALUE 'I', 'U', 'D'. DTSIX102