अभिवादन, प्रिय मित्रों।

हम अपने गैर-लाभकारी संगठन की (तूफानी) गतिविधियों को कवर करने वाले लेखों की श्रृंखला जारी रखते हैं।

जैसा कि वादा किया गया था, हम सरल (लॉगिंग) से और अधिक जटिल हो जाते हैं: मेटाप्रोग्रामिंग।

गुलोबन्द

ऐसा हुआ कि हमारे मूल निगम (एक बड़ी वित्तीय तकनीक) को मेनफ्रेम और कोबोल का उपयोग करके एक और बड़े संगठन के साथ एकीकृत करने की आवश्यकता थी।

ऐसा लगता है - कठिनाई क्या है, और यह क्या प्रभावित कर सकता है?

तथ्य यह है कि इस एकीकरण में एक गुलाम होने के नाते, हमें बाहर से डेटा विनिमय इंटरफेस का समर्थन करना था। अर्थात् - बाइनरी डेटा फाइलें "COBOL डेटा फाइलें"।

जैसा कि यह निकला (और हमें पहले COBOL के साथ कोई अनुभव नहीं था), इसमें मौजूद डेटा फ़ाइलों में एक गैर-रेखीय संरचना है । अर्थात्:

• एक और एक ही डेटा ब्लॉक को विभिन्न "समूहों" (COBOL शब्दावली में डेटा प्रारूप) के रूप में व्याख्या की जा सकती है, एक प्रकार का डेटा बहुरूपता: निर्देश redefines। इसके अलावा, सभी नेस्टेड समूहों और उनके क्षेत्रों के साथ।
• एक ब्लॉक को बार-बार दोहराया जा सकता है: निर्देश occurs
• ब्लॉक क्रमिक रूप से चलते हैं, लेकिन उनकी शुरुआत को पिछले ब्लॉक के अंत से गिना जाता है - तदनुसार, आप पिछले ब्लॉकों को पढ़े बिना एक अलग ब्लॉक नहीं पढ़ सकते हैं।

, COBOL: "copybook" ( Data Section Division), , :

PIC X(06)V99

 PIC 9(06).9999999

PIC 9(07)V9(07) COMP-3

:

• IBM Computational 3
• (EBCDIC, ASCII) — ( )
• (CR, LF, CRLF, LFCR, Newline, N )
• 400
• header, record, trailer

: ?

, . : JRecord 90.

, — , - . , data picture comp-3 .

, 2 :

• hold my coffee

, . — — :

• COBOL Java (Groovy)

, ? — 1 .

- , :

• ( )

COBOL — Data Section Division. , COBOL.

, -, COBOL ( Java) — MIT:
https://github.com/uwol/proleap-cobol-parser

, :

• Java (Groovy)
• API, (ETL)

Antlr, meta-API Visitor. -.

visit e , Groovy , (data picture clause):

    @Override
    @CompileDynamic
    Boolean visitDataPictureClause(CobolParser.DataPictureClauseContext ctx) {
        PictureClause entry = (PictureClause) program.getASGElementRegistry().getASGElement(ctx)
        def (length, comp3length, scale) = calculateLengths(entry.pictureString)
        write """    setDataPicture("""
        write """        depth: ${currentFrame.depth},"""
        write """        pictureString: "${entry.pictureString}","""
        write """        length: ${length},"""
        write """        comp3length: ${comp3length},"""
        write """        scale: ${scale},"""
        Boolean result = super.visitDataPictureClause(ctx)
        write """    )"""
        return result
    }

, COBOL Groovy.
, copybook.
Java , .

Closure Groovy — Closure COBOL.

, COBOL (copybook):

000010 IDENTIFICATION  DIVISION.                                        XXXXXXXX
       PROGRAM-ID.     UnstringSample.                                  XXXXXXXX
       ENVIRONMENT     DIVISION.                                        XXXXXXXX
       CONFIGURATION SECTION.                                           XXXXXXXX
       SPECIAL-NAMES.   DECIMAL-POINT IS COMMA.                         XXXXXXXX
       INPUT-OUTPUT    SECTION.                                         XXXXXXXX
       DATA            DIVISION.                                        XXXXXXXX
       WORKING-STORAGE SECTION.                                         XXXXXXXX
       01 ABCDE-RECORD.                                                 XXXXXXXX
XXXXXX  02 ABCDE-REC.                                                   XXXXXXXX
        03 ABCDE-COMMON.                                                XXXXXXXX
           05 ABCDE-DETAILS.                                            XXXXXXXX
             10 ABCDE-RECORD-ABC.                                       XXXXXXXX
                15 ABCDE-PRI-ABC.                                       XXXXXXXX
                   20 ABCDE-ABC-AAAAAAAA         PIC X(02).             XXXXXXXX
                   20 ABCDE-ABC-ACCT-ABCS.                              XXXXXXXX
                      25 ABCDE-ABC-ABC-1         PIC X(02).             XXXXXXXX
                      25 ABCDE-ABC-ABC-2         PIC X(03).             XXXXXXXX
                      25 ABCDE-ABC-ABC-3         PIC X(03).             XXXXXXXX
                      25 ABCDE-ABC-ABC-4         PIC X(04).             XXXXXXXX

:

io.infinite.cobol.CobolCompiler|import groovy.transform.CompileStatic
import io.infinite.cobol.CobolRuntime
import io.infinite.cobol.CobolApi
import io.infinite.other.CopybookStructureEnum

@CompileStatic
class CobolClosureRuntime extends CobolRuntime {

    @Override
    void run(Long totalSize, InputStream inputStream, String charsetName, List<Byte> lineBreakBytes, CobolApi cobolApi, CopybookStructureEnum copybookStructure) {
        super.setup(totalSize, inputStream, charsetName, lineBreakBytes, cobolApi, copybookStructure)
readFile() {
    createRecord("ABCDE-RECORD") {
        createGroup(2, "ABCDE-REC") {
            createGroup(3, "ABCDE-COMMON") {
                createGroup(4, "ABCDE-DETAILS") {
                    createGroup(5, "ABCDE-RECORD-ABC") {
                        createGroup(6, "ABCDE-PRI-ABC") {
                            createGroup(7, "ABCDE-ABC-AAAAAAAA") {
                                setDataPicture(
                                    depth: 7,
                                    pictureString: "X(02)",
                                    length: 2,
                                    comp3length: 2,
                                    scale: 0,
                                )
                            }//<(end of group: ABCDE-ABC-AAAAAAAA)
                            createGroup(7, "ABCDE-ABC-ACCT-ABCS") {
                                createGroup(8, "ABCDE-ABC-ABC-1") {
                                    setDataPicture(
                                        depth: 8,
                                        pictureString: "X(02)",
                                        length: 2,
                                        comp3length: 2,
                                        scale: 0,
                                    )
                                }//<(end of group: ABCDE-ABC-ABC-1)
                                createGroup(8, "ABCDE-ABC-ABC-2") {
                                    setDataPicture(
                                        depth: 8,
                                        pictureString: "X(03)",
                                        length: 3,
                                        comp3length: 2,
                                        scale: 0,
                                    )
                                }//<(end of group: ABCDE-ABC-ABC-2)
                                createGroup(8, "ABCDE-ABC-ABC-3") {
                                    setDataPicture(
                                        depth: 8,
                                        pictureString: "X(03)",
                                        length: 3,
                                        comp3length: 2,
                                        scale: 0,
                                    )
                                }//<(end of group: ABCDE-ABC-ABC-3)
                                createGroup(8, "ABCDE-ABC-ABC-4") {
                                    setDataPicture(
                                        depth: 8,
                                        pictureString: "X(04)",
                                        length: 4,
                                        comp3length: 3,
                                        scale: 0,
                                    )
                                }//<<<<(end of group: ABCDE-ABC-ABC-4)
                            }//<<<<(end of group: ABCDE-ABC-ACCT-ABCS)
                        }//<<<<(end of group: ABCDE-PRI-ABC)
                    }//<<<<(end of group: ABCDE-RECORD-ABC)
                }//<<<<(end of group: ABCDE-DETAILS)
            }//<<<<(end of group: ABCDE-COMMON)
        }//<<<<(end of group: ABCDE-REC)
    }//<<<<(end of group: ABCDE-RECORD)
}//<<<<<

    }

}

, Production .

— , . — copybook — .

.
$.

:

• Open Source COBOL Java (Groovy)
• COBOL (proleap.io)
• COMP-3
• Data Section Division
• redefines
• occurs
• API, XML ( )
• (EBCDIC, ASCII )

1)
2) — , . .
3) , " ". 2020 .

https://i-t.io , . -, .

.

!

:
https://github.com/INFINITE-TECHNOLOGY/COBOL