LGIPOL01

Source: src/lgipol01.cbl

Type: CICS transaction program

CICS commands

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

Copybooks

LGCMAREA, LGPOLICY

Paragraph flow

flowchart TD
    MAINLINE[["MAINLINE"]]
    MAINLINE_EXIT["MAINLINE-EXIT"]
    WRITE_ERROR_MESSAGE["WRITE-ERROR-MESSAGE"]
    MAINLINE --> WRITE_ERROR_MESSAGE

Paragraphs

Paragraph	Line	Performs
MAINLINE	70	WRITE-ERROR-MESSAGE
MAINLINE-EXIT	98
WRITE-ERROR-MESSAGE	107