Legacy Modernization

Transform legacy code to modern standards with AI-powered analysis

Lines Analyzed59

Output Lines1

Transform Time—

SecurityPassed

Source Code

IDENTIFICATION DIVISION.
       PROGRAM-ID. CUSTMGMT.
       AUTHOR. ENTERPRISE-SYSTEMS.
       DATE-WRITTEN. 2024-01-15.
      *
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT CUSTOMER-FILE ASSIGN TO 'CUSTFILE'
               ORGANIZATION IS INDEXED
               ACCESS MODE IS DYNAMIC
               RECORD KEY IS CUST-ID
               FILE STATUS IS WS-FILE-STATUS.

DATA DIVISION.
       FILE SECTION.
       FD CUSTOMER-FILE.
       01 CUSTOMER-RECORD.
           05 CUST-ID            PIC X(10).
           05 CUST-NAME          PIC X(30).
           05 CUST-ADDRESS       PIC X(50).
           05 CUST-BALANCE       PIC 9(7)V99.
           05 CUST-STATUS        PIC X(1).
               88 CUST-ACTIVE    VALUE 'A'.
               88 CUST-INACTIVE  VALUE 'I'.

WORKING-STORAGE SECTION.
       01 WS-FILE-STATUS         PIC XX.
       01 WS-EOF                 PIC X VALUE 'N'.
       01 WS-RECORD-COUNT        PIC 9(5) VALUE 0.

PROCEDURE DIVISION.
       MAIN-PROCESS.
           OPEN I-O CUSTOMER-FILE
           IF WS-FILE-STATUS NOT = '00'
               DISPLAY 'FILE OPEN ERROR: ' WS-FILE-STATUS
               STOP RUN
           END-IF
           PERFORM UNTIL WS-EOF = 'Y'
               READ CUSTOMER-FILE NEXT
                   AT END MOVE 'Y' TO WS-EOF
                   NOT AT END
                       ADD 1 TO WS-RECORD-COUNT
                       PERFORM PROCESS-CUSTOMER
               END-READ
           END-PERFORM
           DISPLAY 'RECORDS PROCESSED: ' WS-RECORD-COUNT
           CLOSE CUSTOMER-FILE
           STOP RUN.

PROCESS-CUSTOMER.
           IF CUST-ACTIVE
               COMPUTE CUST-BALANCE =
                   CUST-BALANCE * 1.05
               REWRITE CUSTOMER-RECORD
               IF WS-FILE-STATUS NOT = '00'
                   DISPLAY 'REWRITE ERROR: ' CUST-ID
               END-IF
           END-IF.

59 lines

COBOL

Transform

Modernized Output

# Click "Transform" to modernize the source code with AI...

1 lines

Python