LGUPOL01

Source: src/lgupol01.cbl

Type: CICS transaction program

CICS commands

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

Copybooks

LGCMAREA

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    END_PROGRAM["END-PROGRAM"]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    UPDATE_POLICY_DB2_INFO["UPDATE-POLICY-DB2-INFO"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    MAINLINE --> UPDATE_POLICY_DB2_INFO
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	83	WRITE-ERROR-MESSAGE, UPDATE-POLICY-DB2-INFO
END-PROGRAM	146
MAINLINE-EXIT	149
UPDATE-POLICY-DB2-INFO	155
WRITE-ERROR-MESSAGE	169