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

109
CICS/DTSCU026.cob Normal file
View File

@ -0,0 +1,109 @@
00001 IDENTIFICATION DIVISION. 08/06/98
00002 PROGRAM-ID. DTSCU026 DTSCU026
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003
00004 DATE-WRITTEN JANUARY 1995. DTSCU026
00005 DATE-COMPILED. DTSCU026
00006 SKIP3 DTSCU026
00007 ***** DTSCU026
00008 * DTSCU026
00009 * FUNCTION: OPID TO/FROM ACCOUNTING ENTRY SCREEN DTSCU026
00010 * FORMATTING. DTSCU026
00011 * DTSCU026
00012 * DTSCU026
00013 * MODIFICATION LOG: DTSCU026
00014 * DTSCU026
00015 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACCU026. CL**2
00016 * WORK ORDER: PROGRAMMER: ZL1. CL**2
00017 * DTSCU026
00018 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU026
00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU026
00020 * WORK ORDER: PROGRAMMER: DTSCU026
00021 * DTSCU026
00022 * DTSCU026
00023 * DESCRIPTION: DTSCU026
00024 * DTSCU026
00025 ***** DTSCU026
00026 SKIP3 DTSCU026
00027 ENVIRONMENT DIVISION. DTSCU026
00028 SKIP3 DTSCU026
00029 DATA DIVISION. DTSCU026
00030 SKIP3 DTSCU026
00031 WORKING-STORAGE SECTION. DTSCU026
000315 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU026 08/06/98'. DTSCU026
00032 SKIP3 DTSCU026
00033 01 WRK-AREA. DTSCU026
00034 05 WRK-ABEND-CD PIC X(04) VALUE 'U026'.DTSCU026
00035 DTSCU026
00036 05 WRK-DEFAULT-OPID-PREFIX PIC X(02) VALUE 'EC'. CL**2
00037 EJECT DTSCU026
00038 LINKAGE SECTION. DTSCU026
00039 SKIP3 DTSCU026
00040 01 DFHCOMMAREA. DTSCU026
00041 ++INCLUDE DTSIL026 CL**3
00042 EJECT DTSCU026
00043 PROCEDURE DIVISION. DTSCU026
00044 SKIP2 DTSCU026
00045 IF L026-SCR-TO-INT-88 DTSCU026
00046 PERFORM P1000-SCR-TO-INT THRU P1000-EXIT DTSCU026
00047 ELSE DTSCU026
00048 IF L026-INT-TO-SCR-88 DTSCU026
00049 PERFORM P2000-INT-TO-SCR THRU P2000-EXIT DTSCU026
00050 ELSE DTSCU026
00051 PERFORM S899-ABEND THRU S899-EXIT. DTSCU026
00052 SKIP2 DTSCU026
00053 EXEC CICS DTSCU026
00054 RETURN DTSCU026
00055 END-EXEC. DTSCU026
00056 SKIP2 DTSCU026
00057 GOBACK. DTSCU026
00058 EJECT DTSCU026
00059 P1000-SCR-TO-INT. DTSCU026
00060 SET L026-NO-ENTRY-88 TO TRUE. DTSCU026
00061 DTSCU026
00062 MOVE SPACES TO L026-INT-OPID. DTSCU026
00063 DTSCU026
00064 INSPECT L026-SCR-OPID-SUF DTSCU026
00065 CONVERTING LOW-VALUES TO SPACES. DTSCU026
00066 DTSCU026
00067 INSPECT L026-SCR-OPID-PRE DTSCU026
00068 CONVERTING LOW-VALUES TO SPACES. DTSCU026
00069 DTSCU026
00070 IF (L026-SCR-OPID-SUF = SPACES) DTSCU026
00071 AND DTSCU026
00072 (L026-SCR-OPID-PRE = SPACES) DTSCU026
00073 GO TO P1000-EXIT. DTSCU026
00074 DTSCU026
00075 SET L026-ENTRY-88 TO TRUE. DTSCU026
00076 DTSCU026
00077 IF L026-SCR-OPID-PRE = SPACES DTSCU026
00078 MOVE WRK-DEFAULT-OPID-PREFIX TO L026-INT-OPID-PRE DTSCU026
00079 L026-SCR-OPID-PRE DTSCU026
00080 ELSE DTSCU026
00081 MOVE L026-SCR-OPID-PRE TO L026-INT-OPID-PRE. DTSCU026
00082 DTSCU026
00083 MOVE L026-SCR-OPID-SUF TO L026-INT-OPID-SUF. DTSCU026
00084 P1000-EXIT. DTSCU026
00085 EXIT. DTSCU026
00086 EJECT DTSCU026
00087 P2000-INT-TO-SCR. DTSCU026
00088 IF L026-INT-OPID = SPACES OR LOW-VALUES DTSCU026
00089 MOVE SPACES TO L026-SCR-OPID-SUF DTSCU026
00090 L026-SCR-OPID-PRE DTSCU026
00091 SET L026-NO-ENTRY-88 TO TRUE DTSCU026
00092 GO TO P2000-EXIT. DTSCU026
00093 DTSCU026
00094 SET L026-ENTRY-88 TO TRUE. DTSCU026
00095 DTSCU026
00096 MOVE L026-INT-OPID-SUF TO L026-SCR-OPID-SUF. DTSCU026
00097 DTSCU026
00098 MOVE L026-INT-OPID-PRE TO L026-SCR-OPID-PRE. DTSCU026
00099 P2000-EXIT. DTSCU026
00100 EXIT. DTSCU026
00101 EJECT DTSCU026
00102 S899-ABEND. DTSCU026
00103 EXEC CICS DTSCU026
00104 ABEND DTSCU026
00105 ABCODE (WRK-ABEND-CD) DTSCU026
00106 END-EXEC. DTSCU026
00107 S899-EXIT. DTSCU026
00108 EXIT. DTSCU026