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

commiting everything bcz i am moving all stuff to another machine 10.57.100.120

Browse Source
This commit is contained in:
faizana
2025-08-29 14:07:12 -04:00
parent ef98c08de5
commit 47c88673c2
42 changed files with 127557 additions and 290 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Batch/DTSBE770.cob
View File

@ -764,18 +764,18 @@
00763 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE770
00764 MPRF-LINK-REC. DTSBE770
00765 DTSBE770
00766 IF LECM-PROCESS-88 DTSBE770
00767 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE770
00768 ELSE DTSBE770
00769 IF LECM-INITIALIZE-88 DTSBE770
00770 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE770
00771 ELSE DTSBE770
00772 IF LECM-TERMINATE-88 DTSBE770
00773 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE770
00774 ELSE DTSBE770
00775 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE770
00776 TO ABEND-MSG DTSBE770
00777 PERFORM S999-ABEND THRU S999-EXIT. DTSBE770
00766 * IF LECM-PROCESS-88 DTSBE770
00767 * PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE770
00768 * ELSE DTSBE770
00769 * IF LECM-INITIALIZE-88 DTSBE770
00770 * PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE770
00771 * ELSE DTSBE770
00772 * IF LECM-TERMINATE-88 DTSBE770
00773 * PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE770
00774 * ELSE DTSBE770
00775 * MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE770
00776 * TO ABEND-MSG DTSBE770
00777 * PERFORM S999-ABEND THRU S999-EXIT. DTSBE770
00778 SKIP2 DTSBE770
00779 GOBACK. DTSBE770
00780 EJECT DTSBE770