Skip to content

LGIPDB01

Source: src/lgipdb01.cbl

Type: CICS transaction program (DB2)

DB2 tables

POLICY, POLICY, POLICY, POLICY, POLICY, POLICY, POLICY

CICS commands

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

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    END_PROGRAM["END-PROGRAM"]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    GET_ENDOW_DB2_INFO["GET-ENDOW-DB2-INFO"]
    GET_HOUSE_DB2_INFO["GET-HOUSE-DB2-INFO"]
    GET_MOTOR_DB2_INFO["GET-MOTOR-DB2-INFO"]
    GET_COMMERCIAL_DB2_INFO_1["GET-COMMERCIAL-DB2-INFO-1"]
    GET_COMMERCIAL_DB2_INFO_2["GET-COMMERCIAL-DB2-INFO-2"]
    GET_COMMERCIAL_DB2_INFO_3["GET-COMMERCIAL-DB2-INFO-3"]
    GET_COMMERCIAL_DB2_INFO_3_CUR["GET-COMMERCIAL-DB2-INFO-3-CUR"]
    GET_COMMERCIAL_DB2_INFO_5["GET-COMMERCIAL-DB2-INFO-5"]
    GET_COMMERCIAL_DB2_INFO_5_CUR["GET-COMMERCIAL-DB2-INFO-5-CUR"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    GET_COMMERCIAL_DB2_INFO_1 --> WRITE_ERROR_MESSAGE
    GET_COMMERCIAL_DB2_INFO_2 --> WRITE_ERROR_MESSAGE
    GET_COMMERCIAL_DB2_INFO_3 --> END_PROGRAM
    GET_COMMERCIAL_DB2_INFO_3 --> GET_COMMERCIAL_DB2_INFO_3_CUR
    GET_COMMERCIAL_DB2_INFO_3 --> WRITE_ERROR_MESSAGE
    GET_COMMERCIAL_DB2_INFO_5 --> END_PROGRAM
    GET_COMMERCIAL_DB2_INFO_5 --> GET_COMMERCIAL_DB2_INFO_5_CUR
    GET_COMMERCIAL_DB2_INFO_5 --> WRITE_ERROR_MESSAGE
    GET_ENDOW_DB2_INFO --> WRITE_ERROR_MESSAGE
    GET_HOUSE_DB2_INFO --> WRITE_ERROR_MESSAGE
    GET_MOTOR_DB2_INFO --> WRITE_ERROR_MESSAGE
    MAINLINE --> GET_COMMERCIAL_DB2_INFO_1
    MAINLINE --> GET_COMMERCIAL_DB2_INFO_2
    MAINLINE --> GET_COMMERCIAL_DB2_INFO_3
    MAINLINE --> GET_COMMERCIAL_DB2_INFO_5
    MAINLINE --> GET_ENDOW_DB2_INFO
    MAINLINE --> GET_HOUSE_DB2_INFO
    MAINLINE --> GET_MOTOR_DB2_INFO
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph Line Performs
MAINLINE 230 WRITE-ERROR-MESSAGE, GET-ENDOW-DB2-INFO, GET-HOUSE-DB2-INFO, GET-MOTOR-DB2-INFO, GET-COMMERCIAL-DB2-INFO-1, GET-COMMERCIAL-DB2-INFO-2
END-PROGRAM 312
MAINLINE-EXIT 315
GET-ENDOW-DB2-INFO 327 WRITE-ERROR-MESSAGE
GET-HOUSE-DB2-INFO 441 WRITE-ERROR-MESSAGE
GET-MOTOR-DB2-INFO 529 WRITE-ERROR-MESSAGE
GET-COMMERCIAL-DB2-INFO-1 627 WRITE-ERROR-MESSAGE
GET-COMMERCIAL-DB2-INFO-2 730 WRITE-ERROR-MESSAGE
GET-COMMERCIAL-DB2-INFO-3 835 WRITE-ERROR-MESSAGE, END-PROGRAM, GET-COMMERCIAL-DB2-INFO-3-CUR, WRITE-ERROR-MESSAGE, END-PROGRAM
GET-COMMERCIAL-DB2-INFO-3-CUR 863
GET-COMMERCIAL-DB2-INFO-5 919 WRITE-ERROR-MESSAGE, END-PROGRAM, GET-COMMERCIAL-DB2-INFO-5-CUR, WRITE-ERROR-MESSAGE, END-PROGRAM
GET-COMMERCIAL-DB2-INFO-5-CUR 946
WRITE-ERROR-MESSAGE 997