00001 IDENTIFICATION DIVISION. 05/20/13 00002 PROGRAM-ID. DTSCU033. DTSCU033 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV005 00004 DATE-WRITTEN. MARCH 1994. DTSCU033 00005 DATE-COMPILED. DTSCU033 00006 SKIP3 DTSCU033 00007 ***** DTSCU033 00008 * DTSCU033 00009 * FUNCTION: CURRENT RTP/PURSUED/DESCRIPTION. DTSCU033 00010 * DTSCU033 00011 * DTSCU033 00012 * MODIFICATION LOG: DTSCU033 00013 * DTSCU033 00014 * 09/22/94 INITIAL DEVELOPMENT. DTSCU033 00015 * WORK ORDER: PROGRAMMER: JLB DTSCU033 00016 * DTSCU033 00017 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. DTSCU033 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCU033 00019 * DTSCU033 00020 * 05/17/1999 RECOMPILED FOR PICKUP MODIFICATIONS TO DTSCU033 00021 * DTSIC033. DTSCU033 00022 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSCU033 00023 * DTSCU033 00024 * 11/19/2012 RECOMPILED FOR CLAIMANT WAGE REPORTS DTSCU033 00025 * REFERENCE: PROGRAMMER: GD DTSCU033 00026 * DTSCU033 00027 * 04/01/2013 RECOMPILED FOR ANNUAL FILER REVISIONS DTSCU033 00028 * REFERENCE: TKT 1474 PROGRAMMER: GD DTSCU033 00029 * DTSCU033 00030 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU033 00031 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU033 00032 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCU033 00033 * DTSCU033 00034 * DTSCU033 00035 * DESCRIPTION: DTSCU033 00036 * DTSCU033 00037 * DTSCU033 EDITS ACCOUNTING CODES AND INDICATORS. DTSCU033 00038 * DTSCU033 00039 * DTSCU033 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION DTSCU033 00040 * OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE DTSCU033 00041 * VALUE. DTSCU033 00042 * DTSCU033 00043 * IF L033-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN DTSCU033 00044 * ABEND CODE OF 'U033'. DTSCU033 00045 * DTSCU033 00046 * GO TO DEPENDING ON L033-OPTION TO GET TO THE PARAGRAPH DTSCU033 00047 * THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED DTSCU033 00048 * BY L033-OPTION. USE A SEARCH STATEMENT TO DETERMINE THE DTSCU033 00049 * VALIDITY OF L033-CD-*. DTSCU033 00050 * DTSCU033 00051 * IF L033-CD-* IS A VALID VALUE DTSCU033 00052 * MOVE '1' TO L033-RESULT-IND DTSCU033 00053 * MOVE THE APPROPRIATE C033-*-SHORT-DSCR DTSCU033 00054 * TO L033-SHORT-DSCR DTSCU033 00055 * MOVE THE APPROPRIATE C033-*-LONG-DSCR DTSCU033 00056 * TO L033-LONG-DSCR DTSCU033 00057 * ELSE DTSCU033 00058 * MOVE '2' TO L033-RESULT-IND DTSCU033 00059 * MOVE 'NOT VALID' TO L033-SHORT-DSCR DTSCU033 00060 * L033-LONG-DSCR. DTSCU033 00061 * DTSCU033 00062 ***** DTSCU033 00063 SKIP3 DTSCU033 00064 ENVIRONMENT DIVISION. DTSCU033 00065 SKIP3 DTSCU033 00066 DATA DIVISION. DTSCU033 00067 SKIP3 DTSCU033 00068 WORKING-STORAGE SECTION. DTSCU033 000685 77 PAN-VALET PICTURE X(24) VALUE '005DTSCU033 05/20/13'. DTSCU033 00069 77 PAN-VALET PICTURE X(24) VALUE '004DTSCU033 04/01/13'. DTSCU033 00070 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU033 05/17/99'. DTSCU033 00071 SKIP3 DTSCU033 00072 01 WRK-AREA. DTSCU033 00073 05 WRK-ABEND-CODE PIC X(04) VALUE 'U033'. DTSCU033 00074 05 WRK-RESP-CODE PIC S9(08) COMP. DTSCU033 00075 EJECT DTSCU033 00076 01 C033-LITERALS. DTSCU033 00077 ++INCLUDE DTSIC033 DTSCU033 00078 EJECT DTSCU033 00079 LINKAGE SECTION. DTSCU033 00080 SKIP3 DTSCU033 00081 01 DFHCOMMAREA. DTSCU033 00082 ++INCLUDE DTSIL033 DTSCU033 00083 EJECT DTSCU033 00084 PROCEDURE DIVISION. DTSCU033 00085 DTSCU033 00086 DTSCU033 00087 SET L033-NOT-VALID TO TRUE. DTSCU033 00088 DTSCU033 00089 MOVE 'NOT VALID' TO L033-SHORT-DSCR DTSCU033 00090 L033-LONG-DSCR. DTSCU033 00091 DTSCU033 00092 MOVE ' NOT VALID' TO L033-SHORT-DSCR-RIGHT. DTSCU033 00093 DTSCU033 00094 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSCU033 00095 DTSCU033 00096 DTSCU033 00097 EXEC CICS DTSCU033 00098 RETURN DTSCU033 00099 END-EXEC. DTSCU033 00100 DTSCU033 00101 DTSCU033 00102 GOBACK. DTSCU033 00103 EJECT DTSCU033 00104 P1000-PROCESS. DTSCU033 00105 GO TO P1000-01 DTSCU033 00106 DEPENDING ON L033-OPTION. DTSCU033 00107 DTSCU033 00108 PERFORM S899-ABEND THRU S899-EXIT. DTSCU033 00109 SKIP3 DTSCU033 00110 P1000-01. DTSCU033 00111 SET C033-01-IDX TO 1. DTSCU033 00112 SEARCH C033-01-ENTRY DTSCU033 00113 VARYING DTSCU033 00114 C033-01-IDX DTSCU033 00115 WHEN L033-CD-2 = C033-01-CD (C033-01-IDX) DTSCU033 00116 MOVE '1' TO L033-RESULT-IND DTSCU033 00117 MOVE C033-01-SHORT-DSCR (C033-01-IDX) DTSCU033 00118 TO L033-SHORT-DSCR DTSCU033 00119 MOVE C033-01-SHORT-DSCR-RIGHT (C033-01-IDX) DTSCU033 00120 TO L033-SHORT-DSCR-RIGHT DTSCU033 00121 MOVE C033-01-LONG-DSCR (C033-01-IDX) DTSCU033 00122 TO L033-LONG-DSCR. DTSCU033 00123 DTSCU033 00124 GO TO P1000-EXIT. DTSCU033 00125 SKIP3 DTSCU033 00126 P1000-EXIT. DTSCU033 00127 EXIT. DTSCU033 00128 EJECT DTSCU033 00129 S899-ABEND. DTSCU033 00130 DTSCU033 00131 EXEC CICS DTSCU033 00132 ABEND DTSCU033 00133 ABCODE (WRK-ABEND-CODE) DTSCU033 00134 END-EXEC. DTSCU033 00135 DTSCU033 00136 S899-EXIT. DTSCU033 00137 EXIT. DTSCU033