COADM01C
Source: cbl/COADM01C.cbl
Type: CICS transaction program
LLM overview unavailable: Connection error.
CICS commands
RETURN, SEND, RECEIVE
Copybooks
COADM01, COADM02Y, COCOM01Y, COTTL01Y, CSDAT01Y, CSMSG01Y, CSUSR01Y, DFHAID, DFHBMSCA
Paragraph flow
flowchart TD
MAIN_PARA["MAIN-PARA"]
PROCESS_ENTER_KEY["PROCESS-ENTER-KEY"]
RETURN_TO_SIGNON_SCREEN["RETURN-TO-SIGNON-SCREEN"]
SEND_MENU_SCREEN["SEND-MENU-SCREEN"]
RECEIVE_MENU_SCREEN["RECEIVE-MENU-SCREEN"]
POPULATE_HEADER_INFO["POPULATE-HEADER-INFO"]
BUILD_MENU_OPTIONS["BUILD-MENU-OPTIONS"]
PGMIDERR_ERR_PARA["PGMIDERR-ERR-PARA"]
MAIN_PARA --> PROCESS_ENTER_KEY
MAIN_PARA --> RECEIVE_MENU_SCREEN
MAIN_PARA --> RETURN_TO_SIGNON_SCREEN
MAIN_PARA --> SEND_MENU_SCREEN
PGMIDERR_ERR_PARA --> SEND_MENU_SCREEN
PROCESS_ENTER_KEY --> SEND_MENU_SCREEN
SEND_MENU_SCREEN --> BUILD_MENU_OPTIONS
SEND_MENU_SCREEN --> POPULATE_HEADER_INFO
Paragraphs
| Paragraph | Line | Performs |
|---|---|---|
| MAIN-PARA | 75 | RETURN-TO-SIGNON-SCREEN, SEND-MENU-SCREEN, RECEIVE-MENU-SCREEN, PROCESS-ENTER-KEY, RETURN-TO-SIGNON-SCREEN, SEND-MENU-SCREEN |
| PROCESS-ENTER-KEY | 119 | SEND-MENU-SCREEN, SEND-MENU-SCREEN |
| RETURN-TO-SIGNON-SCREEN | 163 | |
| SEND-MENU-SCREEN | 175 | POPULATE-HEADER-INFO, BUILD-MENU-OPTIONS |
| RECEIVE-MENU-SCREEN | 192 | |
| POPULATE-HEADER-INFO | 205 | |
| BUILD-MENU-OPTIONS | 229 | |
| PGMIDERR-ERR-PARA | 270 | SEND-MENU-SCREEN |