LGUPDB01

Source: src/lgupdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

POLICY, OF, POLICY, POLICY, ENDOWMENT, HOUSE, MOTOR

CICS commands

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

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    END_PROGRAM["END-PROGRAM"]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    FETCH_DB2_POLICY_ROW["FETCH-DB2-POLICY-ROW"]
    UPDATE_POLICY_DB2_INFO["UPDATE-POLICY-DB2-INFO"]
    CLOSE_PCURSOR["CLOSE-PCURSOR"]
    UPDATE_ENDOW_DB2_INFO["UPDATE-ENDOW-DB2-INFO"]
    UPDATE_HOUSE_DB2_INFO["UPDATE-HOUSE-DB2-INFO"]
    UPDATE_MOTOR_DB2_INFO["UPDATE-MOTOR-DB2-INFO"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    CLOSE_PCURSOR --> WRITE_ERROR_MESSAGE
    MAINLINE --> UPDATE_POLICY_DB2_INFO
    MAINLINE --> WRITE_ERROR_MESSAGE
    UPDATE_ENDOW_DB2_INFO --> WRITE_ERROR_MESSAGE
    UPDATE_HOUSE_DB2_INFO --> WRITE_ERROR_MESSAGE
    UPDATE_MOTOR_DB2_INFO --> WRITE_ERROR_MESSAGE
    UPDATE_POLICY_DB2_INFO --> CLOSE_PCURSOR
    UPDATE_POLICY_DB2_INFO --> FETCH_DB2_POLICY_ROW
    UPDATE_POLICY_DB2_INFO --> UPDATE_ENDOW_DB2_INFO
    UPDATE_POLICY_DB2_INFO --> UPDATE_HOUSE_DB2_INFO
    UPDATE_POLICY_DB2_INFO --> UPDATE_MOTOR_DB2_INFO
    UPDATE_POLICY_DB2_INFO --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	162	WRITE-ERROR-MESSAGE, UPDATE-POLICY-DB2-INFO
END-PROGRAM	215
MAINLINE-EXIT	218
FETCH-DB2-POLICY-ROW	228
UPDATE-POLICY-DB2-INFO	251	WRITE-ERROR-MESSAGE, WRITE-ERROR-MESSAGE, FETCH-DB2-POLICY-ROW, UPDATE-ENDOW-DB2-INFO, UPDATE-HOUSE-DB2-INFO, UPDATE-MOTOR-DB2-INFO
CLOSE-PCURSOR	362	WRITE-ERROR-MESSAGE
UPDATE-ENDOW-DB2-INFO	387	WRITE-ERROR-MESSAGE
UPDATE-HOUSE-DB2-INFO	424	WRITE-ERROR-MESSAGE
UPDATE-MOTOR-DB2-INFO	460	WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	502