LGACDB02

Source: src/lgacdb02.cbl

Type: CICS transaction program (DB2)

DB2 tables

CUSTOMER

CICS commands

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

Copybooks

LGPOLICY

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    INSERT_CUSTOMER_PASSWORD["INSERT-CUSTOMER-PASSWORD"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    INSERT_CUSTOMER_PASSWORD --> WRITE_ERROR_MESSAGE
    MAINLINE --> INSERT_CUSTOMER_PASSWORD
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	115	WRITE-ERROR-MESSAGE, INSERT-CUSTOMER-PASSWORD
MAINLINE-EXIT	157
INSERT-CUSTOMER-PASSWORD	161	WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	192