LGAPDB01

Source: src/lgapdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

POLICY, POLICY, ENDOWMENT, ENDOWMENT, HOUSE, MOTOR, COMMERCIAL

CICS commands

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

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    INSERT_POLICY["INSERT-POLICY"]
    INSERT_ENDOW["INSERT-ENDOW"]
    INSERT_HOUSE["INSERT-HOUSE"]
    INSERT_MOTOR["INSERT-MOTOR"]
    INSERT_COMMERCIAL["INSERT-COMMERCIAL"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    INSERT_COMMERCIAL --> WRITE_ERROR_MESSAGE
    INSERT_ENDOW --> WRITE_ERROR_MESSAGE
    INSERT_HOUSE --> WRITE_ERROR_MESSAGE
    INSERT_MOTOR --> WRITE_ERROR_MESSAGE
    INSERT_POLICY --> WRITE_ERROR_MESSAGE
    MAINLINE --> INSERT_COMMERCIAL
    MAINLINE --> INSERT_ENDOW
    MAINLINE --> INSERT_HOUSE
    MAINLINE --> INSERT_MOTOR
    MAINLINE --> INSERT_POLICY
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	146	WRITE-ERROR-MESSAGE, INSERT-POLICY, INSERT-ENDOW, INSERT-HOUSE, INSERT-MOTOR, INSERT-COMMERCIAL
MAINLINE-EXIT	252
INSERT-POLICY	261	WRITE-ERROR-MESSAGE, WRITE-ERROR-MESSAGE
INSERT-ENDOW	327	WRITE-ERROR-MESSAGE
INSERT-HOUSE	402	WRITE-ERROR-MESSAGE
INSERT-MOTOR	440	WRITE-ERROR-MESSAGE
INSERT-COMMERCIAL	486	WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	562