LGACDB01

Source: src/lgacdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

CUSTOMER, CUSTOMER

CICS commands

ABEND ABCODE, RETURN END, LINK PROGRAM, GET COUNTER, ASKTIME ABSTIME, FORMATTIME ABSTIME

Copybooks

LGPOLICY

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    OBTAIN_CUSTOMER_NUMBER["OBTAIN-CUSTOMER-NUMBER"]
    INSERT_CUSTOMER["INSERT-CUSTOMER"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    INSERT_CUSTOMER --> WRITE_ERROR_MESSAGE
    MAINLINE --> INSERT_CUSTOMER
    MAINLINE --> OBTAIN_CUSTOMER_NUMBER
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	128	WRITE-ERROR-MESSAGE, OBTAIN-CUSTOMER-NUMBER, INSERT-CUSTOMER
MAINLINE-EXIT	194
OBTAIN-CUSTOMER-NUMBER	199
INSERT-CUSTOMER	215	WRITE-ERROR-MESSAGE, WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	295