Business rules · 37 guarded actionsCOADM01C

Each row is an action and the full chain of conditions that must hold for it to run, recovered from nested IF / EVALUATE / PERFORM UNTIL scopes. Name the rule; the evidence is already attached.

88 levels

Condition names used

CDEMO-PGM-REENTER	means CDEMO-PGM-CONTEXT = 1	COCOM01Y.cpy:31 via COADM01C.cbl:50
ERR-FLG-ON	means WS-ERR-FLG = 'Y'	COADM01C.cbl:41

13 rules

MAIN-PARA

When	Then	At
EIBCALEN = 0	MOVE 'COSGN00C' TO CDEMO-FROM-PROGRAM	COADM01C.cbl:87
EIBCALEN = 0	PERFORM RETURN-TO-SIGNON-SCREEN	COADM01C.cbl:88
NOT (EIBCALEN = 0)	MOVE DFHCOMMAREA(1:EIBCALEN) TO CARDDEMO-COMMAREA	COADM01C.cbl:90
NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER	SET CDEMO-PGM-REENTER TO TRUE	COADM01C.cbl:92
NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER	MOVE LOW-VALUES TO COADM1AO	COADM01C.cbl:93
NOT (EIBCALEN = 0) NOT CDEMO-PGM-REENTER	PERFORM SEND-MENU-SCREEN	COADM01C.cbl:94
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER	PERFORM RECEIVE-MENU-SCREEN	COADM01C.cbl:96
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID = DFHENTER	PERFORM PROCESS-ENTER-KEY	COADM01C.cbl:99
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID = DFHPF3	MOVE 'COSGN00C' TO CDEMO-TO-PROGRAM	COADM01C.cbl:101
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID = DFHPF3	PERFORM RETURN-TO-SIGNON-SCREEN	COADM01C.cbl:102
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID is none of [DFHENTER; DFHPF3]	MOVE 'Y' TO WS-ERR-FLG	COADM01C.cbl:104
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID is none of [DFHENTER; DFHPF3]	MOVE CCDA-MSG-INVALID-KEY TO WS-MESSAGE	COADM01C.cbl:105
NOT (EIBCALEN = 0) CDEMO-PGM-REENTER EIBAID is none of [DFHENTER; DFHPF3]	PERFORM SEND-MENU-SCREEN	COADM01C.cbl:106

11 rules

PROCESS-ENTER-KEY

When	Then	At
WS-OPTION IS NOT NUMERIC OR WS-OPTION > CDEMO-ADMIN-OPT-COUNT OR WS-OPTION = ZEROS	MOVE 'Y' TO WS-ERR-FLG	COADM01C.cbl:134
WS-OPTION IS NOT NUMERIC OR WS-OPTION > CDEMO-ADMIN-OPT-COUNT OR WS-OPTION = ZEROS	MOVE 'Please enter a valid option number...' TO WS-MESSAGE	COADM01C.cbl:135–136
WS-OPTION IS NOT NUMERIC OR WS-OPTION > CDEMO-ADMIN-OPT-COUNT OR WS-OPTION = ZEROS	PERFORM SEND-MENU-SCREEN	COADM01C.cbl:137
NOT ERR-FLG-ON CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)(1:5) NOT = 'DUMMY'	MOVE WS-TRANID TO CDEMO-FROM-TRANID	COADM01C.cbl:142
NOT ERR-FLG-ON CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)(1:5) NOT = 'DUMMY'	MOVE WS-PGMNAME TO CDEMO-FROM-PROGRAM	COADM01C.cbl:143
NOT ERR-FLG-ON CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)(1:5) NOT = 'DUMMY'	MOVE ZEROS TO CDEMO-PGM-CONTEXT	COADM01C.cbl:144
NOT ERR-FLG-ON CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)(1:5) NOT = 'DUMMY'	EXEC CICS XCTL PROGRAM(CDEMO-ADMIN-OPT-PGMNAME(WS-OPTION)) COMMAREA(CARDDEMO-COMMAREA) END-EXEC	COADM01C.cbl:145–148
NOT ERR-FLG-ON	MOVE SPACES TO WS-MESSAGE	COADM01C.cbl:150
NOT ERR-FLG-ON	MOVE DFHGREEN TO ERRMSGC OF COADM1AO	COADM01C.cbl:151
NOT ERR-FLG-ON	STRING 'This option ' DELIMITED BY SIZE 'is not installed ...' DELIMITED BY SIZE INTO WS-MESSAGE	COADM01C.cbl:152–156
NOT ERR-FLG-ON	PERFORM SEND-MENU-SCREEN	COADM01C.cbl:157

1 rules

RETURN-TO-SIGNON-SCREEN

When	Then	At
CDEMO-TO-PROGRAM = LOW-VALUES OR SPACES	MOVE 'COSGN00C' TO CDEMO-TO-PROGRAM	COADM01C.cbl:166

12 rules

BUILD-MENU-OPTIONS

When	Then	At
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT	MOVE SPACES TO WS-ADMIN-OPT-TXT	COADM01C.cbl:234
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT	STRING CDEMO-ADMIN-OPT-NUM(WS-IDX) DELIMITED BY SIZE '. ' DELIMITED BY SIZE CDEMO-ADMIN-OPT-NAME(WS-IDX) DELIMITED BY SIZE INTO WS-ADMIN-OPT-TXT	COADM01C.cbl:236–239
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 1	MOVE WS-ADMIN-OPT-TXT TO OPTN001O	COADM01C.cbl:243
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 2	MOVE WS-ADMIN-OPT-TXT TO OPTN002O	COADM01C.cbl:245
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 3	MOVE WS-ADMIN-OPT-TXT TO OPTN003O	COADM01C.cbl:247
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 4	MOVE WS-ADMIN-OPT-TXT TO OPTN004O	COADM01C.cbl:249
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 5	MOVE WS-ADMIN-OPT-TXT TO OPTN005O	COADM01C.cbl:251
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 6	MOVE WS-ADMIN-OPT-TXT TO OPTN006O	COADM01C.cbl:253
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 7	MOVE WS-ADMIN-OPT-TXT TO OPTN007O	COADM01C.cbl:255
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 8	MOVE WS-ADMIN-OPT-TXT TO OPTN008O	COADM01C.cbl:257
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 9	MOVE WS-ADMIN-OPT-TXT TO OPTN009O	COADM01C.cbl:259
PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > CDEMO-ADMIN-OPT-COUNT WS-IDX = 10	MOVE WS-ADMIN-OPT-TXT TO OPTN010O	COADM01C.cbl:261