00001 ***** 03/07/24 00002 * DTSIX146 00003 * DTSIX146 EMPLOYEE NAME EXTRACT RECORD LV004 00004 * DTSIX146 00005 * EXCHANGES EMPLOYEE NAMES BETWEEN MAINFRAME AND DTSIX146 00006 * SQL SERVER DATABASE. DTSIX146 00007 * DTSIX146 00008 * DTSIX146 00009 ***** DTSIX146 00010 DTSIX146 00011 15 X146-REC-TYPE PIC X(03) VALUE '146'. DTSIX146 00012 15 FILLER PIC X(01) VALUE ','. DTSIX146 00013 15 X146-SSN PIC 9(09). DTSIX146 00014 15 FILLER PIC X(01) VALUE ','. DTSIX146 00015 15 X146-EFF-DATE PIC X(10). DTSIX146 00016 15 FILLER PIC X(01) VALUE ','. DTSIX146 00017 15 X146-ACTION PIC X(01). DTSIX146 00018 88 X146-INSERT-88 VALUE 'I'. DTSIX146 00019 88 X146-UPDATE-88 VALUE 'U'. DTSIX146 00020 15 FILLER PIC X(01) VALUE ','. DTSIX146 00021 15 X146-LAST-NAME PIC X(20). DTSIX146 00022 15 FILLER PIC X(01) VALUE ','. DTSIX146 00023 15 X146-FIRST-NAME PIC X(15). DTSIX146 00024 15 FILLER PIC X(01) VALUE ','. DTSIX146 00025 15 X146-MID-INIT PIC X(01). DTSIX146 00026 15 FILLER PIC X(01) VALUE ','. DTSIX146 00027 15 X146-PROCESS-DATE PIC X(10). DTSIX146 00028 * 15 FILLER PIC X(01) VALUE ','. CL**4