LGDPDB01

Source: src/lgdpdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

POLICY

CICS commands

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

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    DELETE_POLICY_DB2_INFO["DELETE-POLICY-DB2-INFO"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    DELETE_POLICY_DB2_INFO --> WRITE_ERROR_MESSAGE
    MAINLINE --> DELETE_POLICY_DB2_INFO
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	111	WRITE-ERROR-MESSAGE, DELETE-POLICY-DB2-INFO
MAINLINE-EXIT	177
DELETE-POLICY-DB2-INFO	186	WRITE-ERROR-MESSAGE
WRITE-ERROR-MESSAGE	212