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

85
Copybook/DTSIP011.cpy Normal file
View File

@ -0,0 +1,85 @@
00001 ***** 05/22/01
00002 * DTSIP011
00003 * DTSIP011 ALTERNATE INDEX RECORD CONSTRUCTION LV001
00004 * ELECTRONIC MEDIA SYSTEM DTSIP011
00005 * PROCEDURE DIVISION CODE. S3100 PARAGRAPH. DTSIP011
00006 * DTSIP011
00007 * IF THIS CODE IS MODIFIED, THEN DTSCU835, DTSIP011
00008 * DTSBU935, AND DTSBE992 MUST BE RECOMPILED. DTSIP011
00009 * DTSIP011
00010 * DTSIP011
00011 * 01/17/2001 INITIAL DEVELOPMENT. GD. DTSIP011
00012 * DTSIP011
00013 ***** DTSIP011
00014 DTSIP011
00015 S3100-CONSTRUCT-IPRE. DTSIP011
00016 MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS. DTSIP011
00017 DTSIP011
00018 MOVE +0 TO AIX-REC-SUB. DTSIP011
00019 DTSIP011
00020 IF ELEN-AIX-YES-88 (REC-TYPE-SUB) DTSIP011
00021 NEXT SENTENCE DTSIP011
00022 ELSE DTSIP011
00023 GO TO S3100-EXIT. DTSIP011
00024 DTSIP011
00025 IF ESKL-PRF-88 OF WRK-REC DTSIP011
00026 PERFORM S3110-PRF THRU S3110-EXIT DTSIP011
00027 ELSE DTSIP011
00028 IF ESKL-LOG-88 OF WRK-REC DTSIP011
00029 PERFORM S3120-LOG THRU S3120-EXIT DTSIP011
00030 ELSE DTSIP011
00031 IF ESKL-EMH-88 OF WRK-REC DTSIP011
00032 PERFORM S3130-EMH THRU S3130-EXIT DTSIP011
00033 ELSE DTSIP011
00034 PERFORM S999-ABEND THRU S999-EXIT. DTSIP011
00035 S3100-EXIT. DTSIP011
00036 EXIT. DTSIP011
00037 SKIP3 DTSIP011
00038 S3110-PRF. DTSIP011
00039 PERFORM S3911-IENM-FROM-NAME THRU S3911-EXIT. DTSIP011
00040 ADD +1 TO AIX-REC-SUB. DTSIP011
00041 MOVE IENM-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00042 DTSIP011
00043 PERFORM S3912-IEPR-FROM-ELF-ID THRU S3912-EXIT. DTSIP011
00044 ADD +1 TO AIX-REC-SUB. DTSIP011
00045 MOVE IEPR-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00046 DTSIP011
00047 S3110-EXIT. DTSIP011
00048 EXIT. DTSIP011
00049 SKIP3 DTSIP011
00050 S3120-LOG. DTSIP011
00051 PERFORM S3921-IEAL-FROM-LOG THRU S3921-EXIT. DTSIP011
00052 ADD +1 TO AIX-REC-SUB. DTSIP011
00053 MOVE IEAL-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00054 DTSIP011
00055 PERFORM S3922-IEAE-FROM-LOG THRU S3922-EXIT. DTSIP011
00056 ADD +1 TO AIX-REC-SUB. DTSIP011
00057 MOVE IEAE-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00058 DTSIP011
00059 PERFORM S3923-IEBX-FROM-LOG THRU S3923-EXIT. DTSIP011
00060 ADD +1 TO AIX-REC-SUB. DTSIP011
00061 MOVE IEBX-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00062 DTSIP011
00063 PERFORM S3924-IEOP-FROM-LOG THRU S3924-EXIT. DTSIP011
00064 ADD +1 TO AIX-REC-SUB. DTSIP011
00065 MOVE IEOP-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00066 DTSIP011
00067 PERFORM S3925-IESR-FROM-LOG THRU S3925-EXIT. DTSIP011
00068 ADD +1 TO AIX-REC-SUB. DTSIP011
00069 MOVE IESR-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00070 DTSIP011
00071 S3120-EXIT. DTSIP011
00072 EXIT. DTSIP011
00073 SKIP3 DTSIP011
00074 S3130-EMH. DTSIP011
00075 PERFORM S3931-IEER-FROM-EMH THRU S3931-EXIT. DTSIP011
00076 ADD +1 TO AIX-REC-SUB. DTSIP011
00077 MOVE IEER-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00078 DTSIP011
00079 PERFORM S3932-IEET-FROM-EMH THRU S3932-EXIT. DTSIP011
00080 ADD +1 TO AIX-REC-SUB. DTSIP011
00081 MOVE IEET-REC TO PRE-UPDATE-AIX-REC (AIX-REC-SUB). DTSIP011
00082 DTSIP011
00083 S3130-EXIT. DTSIP011
00084 EXIT. DTSIP011
00085 SKIP3 DTSIP011