LGUCDB01

Source: src/lgucdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

CUSTOMER

CICS commands

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

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    END_PROGRAM["END-PROGRAM"]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    UPDATE_CUSTOMER_INFO["UPDATE-CUSTOMER-INFO"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    MAINLINE --> UPDATE_CUSTOMER_INFO
    MAINLINE --> WRITE_ERROR_MESSAGE
    UPDATE_CUSTOMER_INFO --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	101	WRITE-ERROR-MESSAGE, UPDATE-CUSTOMER-INFO
END-PROGRAM	142
MAINLINE-EXIT	145
UPDATE-CUSTOMER-INFO	152	WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	189