MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 362 guarded actionsCOTRTLIC

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-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COTRTLIC.cbl:375
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COTRTLIC.cbl:327
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COTRTLIC.cbl:327
CCARD-AID-PFK02means CCARD-AID = 'PFK02'CVCRD01Y.cpy:9 via COTRTLIC.cbl:327
CCARD-AID-PFK07means CCARD-AID = 'PFK07'CVCRD01Y.cpy:14 via COTRTLIC.cbl:327
CCARD-AID-PFK08means CCARD-AID = 'PFK08'CVCRD01Y.cpy:15 via COTRTLIC.cbl:327
CCARD-AID-PFK10means CCARD-AID = 'PFK10'CVCRD01Y.cpy:17 via COTRTLIC.cbl:327
CA-DELETE-REQUESTEDmeans WS-CA-DELETE-FLAG = 'Y'COTRTLIC.cbl:413
CA-UPDATE-REQUESTEDmeans WS-CA-UPDATE-FLAG = 'Y'COTRTLIC.cbl:417
PFK-INVALIDmeans WS-PFK-FLAG = '1'COTRTLIC.cbl:265
FLG-TYPEFILTER-CHANGED-NOmeans WS-TYPEFILTER-CHANGED = LOW-VALUESCOTRTLIC.cbl:112
FLG-DESCFILTER-CHANGED-NOmeans WS-DESCFILTER-CHANGED = LOW-VALUESCOTRTLIC.cbl:115
FLG-ROW-SELECTION-CHANGED-NOmeans WS-ROW-SELECTION-CHANGED = LOW-VALUESCOTRTLIC.cbl:128
WS-DB2-ERRORmeans WS-DB2-PROCESSING-FLAG = '1'CSDB2RWY.cpy:27 via COTRTLIC.cbl:304
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COTRTLIC.cbl:102
FLG-TYPEFILTER-NOT-OKmeans WS-EDIT-TYPE-FLAG = '0'COTRTLIC.cbl:104
FLG-DESCFILTER-NOT-OKmeans WS-EDIT-DESC-FLAG = '0'COTRTLIC.cbl:108
CA-FIRST-PAGEmeans WS-CA-SCREEN-NUM = 1COTRTLIC.cbl:404
CDEMO-PGM-REENTERmeans CDEMO-PGM-CONTEXT = 1COCOM01Y.cpy:31 via COTRTLIC.cbl:375
CA-NEXT-PAGE-EXISTSmeans WS-CA-NEXT-PAGE-IND = 'Y'COTRTLIC.cbl:410
CA-DELETE-SUCCEEDEDmeans WS-CA-DELETE-FLAG = LOW-VALUESCOTRTLIC.cbl:414
FLG-DELETED-YESmeans WS-DELETE-STATUS = 'Y'COTRTLIC.cbl:123
CA-UPDATE-SUCCEEDEDmeans WS-CA-UPDATE-FLAG = LOW-VALUESCOTRTLIC.cbl:418
FLG-TYPEFILTER-CHANGED-YESmeans WS-TYPEFILTER-CHANGED = 'Y'COTRTLIC.cbl:113
FLG-DESCFILTER-CHANGED-YESmeans WS-DESCFILTER-CHANGED = 'Y'COTRTLIC.cbl:116
SELECT-OKmeans WS-EDIT-SELECT = 'D' OR 'U'COTRTLIC.cbl:183
WS-MORETHAN1ACTIONmeans WS-ACTIONS-REQUESTED = 2 THRU 7COTRTLIC.cbl:207
UPDATE-REQUESTED-ONmeans WS-EDIT-SELECT = 'U'COTRTLIC.cbl:185
SELECT-BLANKmeans WS-EDIT-SELECT = ' ' OR LOW-VALUESCOTRTLIC.cbl:186
FLG-TYPEFILTER-BLANKmeans WS-EDIT-TYPE-FLAG = ' 'COTRTLIC.cbl:106
FLG-DESCFILTER-ISVALIDmeans WS-EDIT-DESC-FLAG = '1'COTRTLIC.cbl:109
FLG-DESCFILTER-BLANKmeans WS-EDIT-DESC-FLAG = ' 'COTRTLIC.cbl:110
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOTRTLIC.cbl:250
FLG-TYPEFILTER-ISVALIDmeans WS-EDIT-TYPE-FLAG = '1'COTRTLIC.cbl:105
FLG-PROTECT-SELECT-ROWS-YESmeans FLG-PROTECT-SELECT-ROWS = '1'COTRTLIC.cbl:231
DELETE-REQUESTED-ONmeans WS-EDIT-SELECT = 'D'COTRTLIC.cbl:184
WS-ONLY-1-VALID-ACTIONmeans WS-VALID-ACTIONS-SELECTED = 1COTRTLIC.cbl:220
FLG-BAD-ACTIONS-SELECTED-NOmeans WS-BAD-SELECTION-ACTION = LOW-VALUESCOTRTLIC.cbl:131
FLG-UPDATE-COMPLETEDmeans WS-UPDATE-STATUS = 'Y'COTRTLIC.cbl:126
FLG-ROW-DESCRIPTION-ISVALIDmeans WS-ARRAY-DESCRIPTION-FLGS = LOW-VALUES OR SPACESCOTRTLIC.cbl:134
CHANGES-HAVE-OCCURREDmeans WS-DATACHANGED-FLAG = '1'COTRTLIC.cbl:140
FLG-ROW-DESCRIPTION-BLANKmeans WS-ARRAY-DESCRIPTION-FLGS = 'B'COTRTLIC.cbl:137
INPUT-OKmeans WS-INPUT-FLAG = '0' OR ' ' OR LOW-VALUESCOTRTLIC.cbl:99
WS-ONLY-1-ACTIONmeans WS-ACTIONS-REQUESTED = 1COTRTLIC.cbl:206
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOTRTLIC.cbl:237
CA-NEXT-PAGE-NOT-EXISTSmeans WS-CA-NEXT-PAGE-IND = LOW-VALUESCOTRTLIC.cbl:409
CA-LAST-PAGE-SHOWNmeans WS-CA-LAST-PAGE-DISPLAYED = 0COTRTLIC.cbl:406
CA-LAST-PAGE-NOT-SHOWNmeans WS-CA-LAST-PAGE-DISPLAYED = 9COTRTLIC.cbl:407
WS-MESG-NO-RECORDS-FOUNDmeans WS-RETURN-MSG = 'No records found for this search condition.'COTRTLIC.cbl:253
READ-LOOP-EXITmeans WS-RECORDS-TO-PROCESS-FLAG = '0'COTRTLIC.cbl:321
122 rules

0000-MAIN

WhenThenAt
  1. EIBCALEN = 0
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOTRTLIC.cbl:516–517
  1. EIBCALEN = 0
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOTRTLIC.cbl:518
  1. EIBCALEN = 0
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:519
  1. EIBCALEN = 0
 SET CDEMO-USRTYP-ADMIN TO TRUECOTRTLIC.cbl:520
  1. EIBCALEN = 0
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:521
  1. EIBCALEN = 0
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:522
  1. EIBCALEN = 0
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:523
  1. EIBCALEN = 0
 SET CA-FIRST-PAGE TO TRUECOTRTLIC.cbl:524
  1. EIBCALEN = 0
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOTRTLIC.cbl:525
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA (1:LENGTH OF CARDDEMO-COMMAREA) TO CARDDEMO-COMMAREACOTRTLIC.cbl:527–528
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA(LENGTH OF CARDDEMO-COMMAREA + 1: LENGTH OF WS-THIS-PROGCOMMAREA )TO WS-THIS-PROGCOMMAREACOTRTLIC.cbl:529–531
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 INITIALIZE WS-THIS-PROGCOMMAREACOTRTLIC.cbl:548
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:549
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 SET CCARD-AID-ENTER TO TRUECOTRTLIC.cbl:550
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:551
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 SET CA-FIRST-PAGE TO TRUECOTRTLIC.cbl:552
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM) OR ( CCARD-AID-PFK03 AND CDEMO-FROM-TRANID EQUAL LIT-ADDTTRANID)
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOTRTLIC.cbl:553
  1. EIBCALEN > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 1000-RECEIVE-MAP THRU 1000-RECEIVE-MAP-EXITCOTRTLIC.cbl:563–564
  1. CCARD-AID-ENTER OR CCARD-AID-PFK02 OR CCARD-AID-PFK03 OR CCARD-AID-PFK07 OR CCARD-AID-PFK08 OR (CCARD-AID-PFK10 AND CA-DELETE-REQUESTED) OR (CCARD-AID-PFK10 AND CA-UPDATE-REQUESTED)
 SET PFK-VALID TO TRUECOTRTLIC.cbl:582
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOTRTLIC.cbl:586
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES OR CDEMO-FROM-TRANID EQUAL LIT-THISTRANID
 MOVE LIT-ADMINTRANID TO CDEMO-TO-TRANIDCOTRTLIC.cbl:595
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES OR CDEMO-FROM-TRANID EQUAL LIT-THISTRANID)
 MOVE CDEMO-FROM-TRANID TO CDEMO-TO-TRANIDCOTRTLIC.cbl:597
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES OR CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-ADMINPGM TO CDEMO-TO-PROGRAMCOTRTLIC.cbl:603
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES OR CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE CDEMO-FROM-PROGRAM TO CDEMO-TO-PROGRAMCOTRTLIC.cbl:605
  1. CCARD-AID-PFK03
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOTRTLIC.cbl:608
  1. CCARD-AID-PFK03
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:609
  1. CCARD-AID-PFK03
 SET CDEMO-USRTYP-ADMIN TO TRUECOTRTLIC.cbl:611
  1. CCARD-AID-PFK03
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:612
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:613
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:614
  1. CCARD-AID-PFK03
 EXEC CICS SYNCPOINT END-EXECCOTRTLIC.cbl:616–618
  1. CCARD-AID-PFK03
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOTRTLIC.cbl:620–623
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOTRTLIC.cbl:632
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:633
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-USRTYP-USER TO TRUECOTRTLIC.cbl:634
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:635
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:636
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:637
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-ADDTPGM TO CDEMO-TO-PROGRAMCOTRTLIC.cbl:638
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-ADDTMAPSET TO CCARD-NEXT-MAPSETCOTRTLIC.cbl:640
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-ADDTMAP TO CCARD-NEXT-MAPCOTRTLIC.cbl:641
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET WS-EXIT-MESSAGE TO TRUECOTRTLIC.cbl:642
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:646
  1. (CCARD-AID-PFK02 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 EXEC CICS XCTL PROGRAM (LIT-ADDTPGM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOTRTLIC.cbl:648–651
  1. NOT (CCARD-AID-PFK08)
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOTRTLIC.cbl:660
  1. CCARD-AID-PFK10
  2. NOT ((CA-DELETE-REQUESTED OR CA-UPDATE-REQUESTED) AND FLG-TYPEFILTER-CHANGED-NO AND FLG-DESCFILTER-CHANGED-NO AND FLG-ROW-SELECTION-CHANGED-NO)
 SET CCARD-AID-ENTER TO TRUECOTRTLIC.cbl:674
  1. WS-DB2-ERROR
 PERFORM SEND-LONG-TEXT THRU SEND-LONG-TEXT-EXITCOTRTLIC.cbl:688–689
  1. WS-DB2-ERROR
 GO TO COMMON-RETURNCOTRTLIC.cbl:690
  1. INPUT-ERROR
 MOVE WS-RETURN-MSG TO CCARD-ERROR-MSGCOTRTLIC.cbl:703
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:704
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:705
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:706
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CCARD-NEXT-PROGCOTRTLIC.cbl:708
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CCARD-NEXT-MAPSETCOTRTLIC.cbl:709
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CCARD-NEXT-MAPCOTRTLIC.cbl:710
  1. INPUT-ERROR
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:711–712
  1. INPUT-ERROR
  2. NOT FLG-TYPEFILTER-NOT-OK AND NOT FLG-DESCFILTER-NOT-OK
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:715–716
  1. INPUT-ERROR
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:718–719
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOTRTLIC.cbl:720
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:728–729
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:730–731
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:732–733
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 GO TO COMMON-RETURNCOTRTLIC.cbl:734
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREA WS-MISC-STORAGECOTRTLIC.cbl:742–744
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOTRTLIC.cbl:746
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:747
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:748
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:749
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CDEMO-USRTYP-ADMIN TO TRUECOTRTLIC.cbl:751
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:752
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CA-FIRST-PAGE TO TRUECOTRTLIC.cbl:753
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOTRTLIC.cbl:754
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:756
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:758–759
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:760–761
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 GO TO COMMON-RETURNCOTRTLIC.cbl:762
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 MOVE WS-CA-LAST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:768–769
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
calc ADD +1 TO WS-CA-SCREEN-NUMCOTRTLIC.cbl:770
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:771–772
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 INITIALIZE WS-EDIT-SELECT-FLAGSCOTRTLIC.cbl:773
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:774–775
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 GO TO COMMON-RETURNCOTRTLIC.cbl:776
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:782–783
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
calc SUBTRACT 1 FROM WS-CA-SCREEN-NUMCOTRTLIC.cbl:784
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 PERFORM 8100-READ-BACKWARDS THRU 8100-READ-BACKWARDS-EXITCOTRTLIC.cbl:785–786
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 INITIALIZE WS-EDIT-SELECT-FLAGSCOTRTLIC.cbl:787
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:788–789
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 GO TO COMMON-RETURNCOTRTLIC.cbl:790
  1. CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:797–798
  1. CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. NOT FLG-TYPEFILTER-NOT-OK AND NOT FLG-DESCFILTER-NOT-OK
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:801–802
  1. CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:804–805
  1. CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 GO TO COMMON-RETURNCOTRTLIC.cbl:806
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 9300-DELETE-RECORD THRU 9300-DELETE-RECORD-EXITCOTRTLIC.cbl:814–815
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. CA-DELETE-SUCCEEDED
 SET FLG-DELETED-YES TO TRUECOTRTLIC.cbl:818
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. NOT (CA-DELETE-SUCCEEDED)
 SET FLG-DELETED-NO TO TRUECOTRTLIC.cbl:820
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:823–824
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. FLG-DELETED-YES
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREA WS-MISC-STORAGECOTRTLIC.cbl:827–829
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. FLG-DELETED-YES
 SET CDEMO-PGM-ENTER TO TRUECOTRTLIC.cbl:830
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. FLG-DELETED-YES
 SET CA-FIRST-PAGE TO TRUECOTRTLIC.cbl:831
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. FLG-DELETED-YES
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOTRTLIC.cbl:832
  1. CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 GO TO COMMON-RETURNCOTRTLIC.cbl:834
  1. CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:841–842
  1. CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. NOT FLG-TYPEFILTER-NOT-OK AND NOT FLG-DESCFILTER-NOT-OK
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:845–846
  1. CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:848–849
  1. CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 GO TO COMMON-RETURNCOTRTLIC.cbl:850
  1. CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 9200-UPDATE-RECORD THRU 9200-UPDATE-RECORD-EXITCOTRTLIC.cbl:858–859
  1. CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
  2. CA-UPDATE-SUCCEEDED
 SET FLG-UPDATE-COMPLETED TO TRUECOTRTLIC.cbl:861
  1. CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:863–864
  1. CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:865–866
  1. CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:867–868
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 MOVE WS-CA-FIRST-TR-CODE TO WS-START-KEYCOTRTLIC.cbl:872–873
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 PERFORM 8000-READ-FORWARD THRU 8000-READ-FORWARD-EXITCOTRTLIC.cbl:874–875
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 PERFORM 2000-SEND-MAP THRU 2000-SEND-MAP-EXITCOTRTLIC.cbl:876–877
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-DELETES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-PFK10 AND WS-UPDATES-REQUESTED > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 GO TO COMMON-RETURNCOTRTLIC.cbl:878
  1. INPUT-ERROR
 MOVE WS-RETURN-MSG TO CCARD-ERROR-MSGCOTRTLIC.cbl:883
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTLIC.cbl:884
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTLIC.cbl:885
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTLIC.cbl:886
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CCARD-NEXT-PROGCOTRTLIC.cbl:888
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CCARD-NEXT-MAPSETCOTRTLIC.cbl:889
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CCARD-NEXT-MAPCOTRTLIC.cbl:890
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOTRTLIC.cbl:892
4 rules

1100-RECEIVE-SCREEN

WhenThenAt
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
 MOVE TRTSELI(I) TO WS-EDIT-SELECT(I)COTRTLIC.cbl:941
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
 MOVE TRTTYPI(I) TO WS-ROW-TR-CODE-IN(I)COTRTLIC.cbl:942
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
 MOVE LOW-VALUES TO WS-ROW-TR-DESC-IN(I)COTRTLIC.cbl:944
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (TRTYPDI(I) = LIT-ASTERISK OR TRTYPDI(I) = SPACES)
 MOVE FUNCTION TRIM(TRTYPDI(I)) TO WS-ROW-TR-DESC-IN(I)COTRTLIC.cbl:949–950
20 rules

1210-EDIT-ARRAY

WhenThenAt
  1. FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES
 INITIALIZE WS-EDIT-SELECT-FLAGSCOTRTLIC.cbl:993
  1. FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES
 GO TO 1210-EDIT-ARRAY-EXITCOTRTLIC.cbl:994
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
calc COMPUTE WS-ACTIONS-REQUESTED = WS-MAX-SCREEN-LINES - WS-NO-ACTIONS-SELECTEDCOTRTLIC.cbl:1003–1005
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
calc COMPUTE WS-VALID-ACTIONS-SELECTED = WS-DELETES-REQUESTED + WS-UPDATES-REQUESTEDCOTRTLIC.cbl:1009–1011
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
 MOVE ZERO TO I-SELECTEDCOTRTLIC.cbl:1014
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
 SET FLG-BAD-ACTIONS-SELECTED-NO TO TRUECOTRTLIC.cbl:1015
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
 PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0COTRTLIC.cbl:1017–1020
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. SELECT-OK(I)
 MOVE I TO I-SELECTEDCOTRTLIC.cbl:1023
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. SELECT-OK(I)
  4. WS-MORETHAN1ACTION
 MOVE '1' TO WS-ROW-TRTSELECT-ERROR(I)COTRTLIC.cbl:1025
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. SELECT-OK(I)
  4. WS-MORETHAN1ACTION
 SET FLG-BAD-ACTIONS-SELECTED-YES TO TRUECOTRTLIC.cbl:1026
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. SELECT-OK(I)
  4. UPDATE-REQUESTED-ON(I)
 PERFORM 1211-EDIT-ARRAY-DESC THRU 1211-EDIT-ARRAY-DESC-EXITCOTRTLIC.cbl:1029–1030
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1035
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 MOVE '1' TO WS-ROW-TRTSELECT-ERROR(I)COTRTLIC.cbl:1036
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 SET FLG-BAD-ACTIONS-SELECTED-YES TO TRUECOTRTLIC.cbl:1037
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  3. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 SET WS-MESG-INVALID-ACTION-CODE TO TRUECOTRTLIC.cbl:1038
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. I-SELECTED EQUAL WS-CA-ROW-SELECTED
 SET FLG-ROW-SELECTION-CHANGED-NO TO TRUECOTRTLIC.cbl:1043
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. NOT (I-SELECTED EQUAL WS-CA-ROW-SELECTED)
 SET FLG-ROW-SELECTION-CHANGED-YES TO TRUECOTRTLIC.cbl:1045
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. NOT (I-SELECTED EQUAL WS-CA-ROW-SELECTED)
 MOVE I-SELECTED TO WS-CA-ROW-SELECTEDCOTRTLIC.cbl:1046
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. WS-MORETHAN1ACTION
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1050
  1. NOT (FLG-TYPEFILTER-CHANGED-YES OR FLG-DESCFILTER-CHANGED-YES)
  2. WS-MORETHAN1ACTION
 SET WS-MESG-MORE-THAN-1-ACTION TO TRUECOTRTLIC.cbl:1051
4 rules

1211-EDIT-ARRAY-DESC

WhenThenAt
  1. FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I))) AND FUNCTION LENGTH ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION LENGTH ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I)))
 SET WS-MESG-NO-CHANGES-DETECTED TO TRUECOTRTLIC.cbl:1072
  1. FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I))) AND FUNCTION LENGTH ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION LENGTH ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I)))
 GO TO 1211-EDIT-ARRAY-DESC-EXITCOTRTLIC.cbl:1073
  1. NOT (FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION UPPER-CASE ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I))) AND FUNCTION LENGTH ( FUNCTION TRIM (WS-ROW-TR-DESC-IN(I)))= FUNCTION LENGTH ( FUNCTION TRIM (WS-CA-ROW-TR-DESC-OUT(I))))
 SET CHANGES-HAVE-OCCURRED TO TRUECOTRTLIC.cbl:1075
always MOVE 'Transaction Desc' TO WS-EDIT-VARIABLE-NAMECOTRTLIC.cbl:1083
10 rules

1220-EDIT-TYPECD

WhenThenAt
  1. WS-IN-TYPE-CD EQUAL LOW-VALUES OR WS-IN-TYPE-CD EQUAL SPACES OR WS-IN-TYPE-CD EQUAL ZEROS
 SET FLG-TYPEFILTER-BLANK TO TRUECOTRTLIC.cbl:1104
  1. WS-IN-TYPE-CD EQUAL LOW-VALUES OR WS-IN-TYPE-CD EQUAL SPACES OR WS-IN-TYPE-CD EQUAL ZEROS
 MOVE ZEROES TO WS-TYPE-CD-FILTERCOTRTLIC.cbl:1105
  1. WS-IN-TYPE-CD EQUAL LOW-VALUES OR WS-IN-TYPE-CD EQUAL SPACES OR WS-IN-TYPE-CD EQUAL ZEROS
 GO TO 1220-EDIT-TYPECD-EXITCOTRTLIC.cbl:1106
  1. WS-IN-TYPE-CD IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1112
  1. WS-IN-TYPE-CD IS NOT NUMERIC
 SET FLG-TYPEFILTER-NOT-OK TO TRUECOTRTLIC.cbl:1113
  1. WS-IN-TYPE-CD IS NOT NUMERIC
 SET FLG-PROTECT-SELECT-ROWS-YES TO TRUECOTRTLIC.cbl:1114
  1. WS-IN-TYPE-CD IS NOT NUMERIC
 MOVE 'TYPE CODE FILTER,IF SUPPLIED MUST BE A 2 DIGIT NUMBER' TO WS-RETURN-MSGCOTRTLIC.cbl:1115–1117
  1. WS-IN-TYPE-CD IS NOT NUMERIC
 GO TO 1220-EDIT-TYPECD-EXITCOTRTLIC.cbl:1118
  1. NOT (WS-IN-TYPE-CD IS NOT NUMERIC)
 MOVE WS-IN-TYPE-CD TO WS-TYPE-CD-FILTERCOTRTLIC.cbl:1120
  1. NOT (WS-IN-TYPE-CD IS NOT NUMERIC)
 SET FLG-TYPEFILTER-ISVALID TO TRUECOTRTLIC.cbl:1121
4 rules

1220-EDIT-TYPECD-EXIT

WhenThenAt
  1. WS-IN-TYPE-CD EQUAL WS-CA-TYPE-CD OR FLG-TYPEFILTER-BLANK AND (WS-CA-TYPE-CD EQUAL ZEROES OR WS-CA-TYPE-CD EQUAL LOW-VALUES OR WS-CA-TYPE-CD EQUAL SPACES)
 SET FLG-TYPEFILTER-CHANGED-NO TO TRUECOTRTLIC.cbl:1132
  1. NOT (WS-IN-TYPE-CD EQUAL WS-CA-TYPE-CD OR FLG-TYPEFILTER-BLANK AND (WS-CA-TYPE-CD EQUAL ZEROES OR WS-CA-TYPE-CD EQUAL LOW-VALUES OR WS-CA-TYPE-CD EQUAL SPACES))
 INITIALIZE WS-CA-PAGING-VARIABLESCOTRTLIC.cbl:1134
  1. NOT (WS-IN-TYPE-CD EQUAL WS-CA-TYPE-CD OR FLG-TYPEFILTER-BLANK AND (WS-CA-TYPE-CD EQUAL ZEROES OR WS-CA-TYPE-CD EQUAL LOW-VALUES OR WS-CA-TYPE-CD EQUAL SPACES))
 MOVE WS-IN-TYPE-CD TO WS-CA-TYPE-CDCOTRTLIC.cbl:1135
  1. NOT (WS-IN-TYPE-CD EQUAL WS-CA-TYPE-CD OR FLG-TYPEFILTER-BLANK AND (WS-CA-TYPE-CD EQUAL ZEROES OR WS-CA-TYPE-CD EQUAL LOW-VALUES OR WS-CA-TYPE-CD EQUAL SPACES))
 SET FLG-TYPEFILTER-CHANGED-YES TO TRUECOTRTLIC.cbl:1136
4 rules

1230-EDIT-DESC

WhenThenAt
  1. WS-IN-TYPE-DESC EQUAL LOW-VALUES OR WS-IN-TYPE-DESC EQUAL SPACES
 SET FLG-DESCFILTER-BLANK TO TRUECOTRTLIC.cbl:1149
  1. WS-IN-TYPE-DESC EQUAL LOW-VALUES OR WS-IN-TYPE-DESC EQUAL SPACES
 GO TO 1230-EDIT-DESC-EXITCOTRTLIC.cbl:1150
  1. NOT (WS-IN-TYPE-DESC EQUAL LOW-VALUES OR WS-IN-TYPE-DESC EQUAL SPACES)
 SET FLG-DESCFILTER-ISVALID TO TRUECOTRTLIC.cbl:1152
  1. FLG-DESCFILTER-ISVALID
 STRING '%' FUNCTION TRIM(WS-IN-TYPE-DESC) '%' DELIMITED BY SIZE INTO WS-TYPE-DESC-FILTERCOTRTLIC.cbl:1156–1161
4 rules

1230-EDIT-DESC-EXIT

WhenThenAt
  1. WS-IN-TYPE-DESC EQUAL WS-CA-TYPE-DESC OR FLG-DESCFILTER-BLANK AND (WS-CA-TYPE-DESC EQUAL LOW-VALUES OR WS-CA-TYPE-DESC EQUAL SPACES)
 SET FLG-DESCFILTER-CHANGED-NO TO TRUECOTRTLIC.cbl:1170
  1. NOT (WS-IN-TYPE-DESC EQUAL WS-CA-TYPE-DESC OR FLG-DESCFILTER-BLANK AND (WS-CA-TYPE-DESC EQUAL LOW-VALUES OR WS-CA-TYPE-DESC EQUAL SPACES))
 INITIALIZE WS-CA-PAGING-VARIABLESCOTRTLIC.cbl:1172
  1. NOT (WS-IN-TYPE-DESC EQUAL WS-CA-TYPE-DESC OR FLG-DESCFILTER-BLANK AND (WS-CA-TYPE-DESC EQUAL LOW-VALUES OR WS-CA-TYPE-DESC EQUAL SPACES))
 MOVE WS-IN-TYPE-DESC TO WS-CA-TYPE-DESCCOTRTLIC.cbl:1173
  1. NOT (WS-IN-TYPE-DESC EQUAL WS-CA-TYPE-DESC OR FLG-DESCFILTER-BLANK AND (WS-CA-TYPE-DESC EQUAL LOW-VALUES OR WS-CA-TYPE-DESC EQUAL SPACES))
 SET FLG-DESCFILTER-CHANGED-YES TO TRUECOTRTLIC.cbl:1174
8 rules

1240-EDIT-ALPHANUM-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1193
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-BLANK TO TRUECOTRTLIC.cbl:1194
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTLIC.cbl:1196–1200
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1240-EDIT-ALPHANUM-REQD-EXITCOTRTLIC.cbl:1204
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1220
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOTRTLIC.cbl:1221
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have numbers or alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTLIC.cbl:1223–1227
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1240-EDIT-ALPHANUM-REQD-EXITCOTRTLIC.cbl:1230
7 rules

1290-CROSS-EDITS

WhenThenAt
  1. NOT (FLG-TYPEFILTER-ISVALID OR FLG-DESCFILTER-ISVALID)
 GO TO 1290-CROSS-EDITS-EXITCOTRTLIC.cbl:1245
  1. WS-RECORDS-COUNT = 0
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1252
  1. WS-RECORDS-COUNT = 0
  2. FLG-TYPEFILTER-ISVALID
 SET FLG-TYPEFILTER-NOT-OK TO TRUECOTRTLIC.cbl:1254
  1. WS-RECORDS-COUNT = 0
  2. FLG-DESCFILTER-ISVALID
 SET FLG-DESCFILTER-NOT-OK TO TRUECOTRTLIC.cbl:1258
  1. WS-RECORDS-COUNT = 0
 SET FLG-PROTECT-SELECT-ROWS-YES TO TRUECOTRTLIC.cbl:1262
  1. WS-RECORDS-COUNT = 0
 MOVE 'No Records found for these filter conditions' TO WS-RETURN-MSGCOTRTLIC.cbl:1263–1265
  1. WS-RECORDS-COUNT = 0
 GO TO 1290-CROSS-EDITS-EXITCOTRTLIC.cbl:1266
13 rules

2200-SETUP-ARRAY-ATTRIBS

WhenThenAt
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
 MOVE DFHBMPRF TO TRTYPDA(I)COTRTLIC.cbl:1337
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO TRTSELA (I)COTRTLIC.cbl:1341
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. WS-ROW-TRTSELECT-ERROR(I) = '1'
 MOVE DFHRED TO TRTSELC(I)COTRTLIC.cbl:1344
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. WS-ROW-TRTSELECT-ERROR(I) = '1'
 MOVE -1 TO TRTSELL(I)COTRTLIC.cbl:1345
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. DELETE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
 MOVE DFHNEUTR TO TRTTYPC(I) TRTYPDC(I)COTRTLIC.cbl:1351–1352
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. DELETE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
 MOVE -1 TO TRTSELL(I)COTRTLIC.cbl:1353
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
 MOVE DFHNEUTR TO TRTTYPC(I)COTRTLIC.cbl:1359
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. FLG-UPDATE-COMPLETED
 MOVE -1 TO TRTSELL(I)COTRTLIC.cbl:1361
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. FLG-UPDATE-COMPLETED
 MOVE DFHNEUTR TO TRTYPDC(I)COTRTLIC.cbl:1362
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (FLG-UPDATE-COMPLETED)
 MOVE -1 TO TRTYPDL(I)COTRTLIC.cbl:1364
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (FLG-UPDATE-COMPLETED)
 MOVE DFHBMFSE TO TRTYPDA(I)COTRTLIC.cbl:1365
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (FLG-UPDATE-COMPLETED)
  5. NOT FLG-ROW-DESCRIPTION-ISVALID
 MOVE DFHRED TO TRTYPDC(I)COTRTLIC.cbl:1367
  1. PERFORM VARYING I FROM WS-MAX-SCREEN-LINES BY -1 UNTIL I = 0
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO TRTSELA(I)COTRTLIC.cbl:1371
10 rules

2300-SCREEN-ARRAY-INIT

WhenThenAt
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. DELETE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. FLG-DELETED-YES
 SET SELECT-BLANK(I) TO TRUECOTRTLIC.cbl:1395
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. DELETE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (FLG-DELETED-YES)
 SET CA-DELETE-REQUESTED TO TRUECOTRTLIC.cbl:1397
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
 MOVE WS-CA-ROW-TR-CODE-OUT(I) TO TRTTYPO(I)COTRTLIC.cbl:1402
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. FLG-UPDATE-COMPLETED
 SET SELECT-BLANK(I) TO TRUECOTRTLIC.cbl:1408
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (FLG-UPDATE-COMPLETED)
 SET CA-UPDATE-REQUESTED TO TRUECOTRTLIC.cbl:1410
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. CHANGES-HAVE-OCCURRED
  5. FLG-ROW-DESCRIPTION-BLANK
 MOVE LIT-ASTERISK TO TRTYPDO(I)COTRTLIC.cbl:1415
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. CHANGES-HAVE-OCCURRED
  5. TRUE is none of [FLG-ROW-DESCRIPTION-BLANK]
 MOVE WS-ROW-TR-DESC-IN(I) TO TRTYPDO(I)COTRTLIC.cbl:1417–1418
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO
  4. NOT (CHANGES-HAVE-OCCURRED)
 MOVE WS-CA-ROW-TR-DESC-OUT(I) TO TRTYPDO(I)COTRTLIC.cbl:1421
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
  3. NOT (UPDATE-REQUESTED-ON(I) AND WS-ONLY-1-VALID-ACTION AND FLG-BAD-ACTIONS-SELECTED-NO)
 MOVE WS-CA-ROW-TR-DESC-OUT(I) TO TRTYPDO(I)COTRTLIC.cbl:1424
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > WS-MAX-SCREEN-LINES
  2. NOT (WS-CA-EACH-ROW-OUT(I) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(I) TO TRTSELO(I)COTRTLIC.cbl:1428
19 rules

2400-SETUP-SCREEN-ATTRS

WhenThenAt
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE WS-IN-TYPE-CD TO TRTYPEO OF CTRTLIAOCOTRTLIC.cbl:1447
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE DFHBMASF TO TRTYPEA OF CTRTLIAICOTRTLIC.cbl:1448
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE DFHBLUE TO TRTYPEC OF CTRTLIAOCOTRTLIC.cbl:1449
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. FLG-TYPEFILTER-ISVALID | FLG-TYPEFILTER-NOT-OK
 MOVE WS-IN-TYPE-CD TO TRTYPEO OF CTRTLIAOCOTRTLIC.cbl:1452
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. FLG-TYPEFILTER-ISVALID | FLG-TYPEFILTER-NOT-OK
 MOVE DFHBMFSE TO TRTYPEA OF CTRTLIAICOTRTLIC.cbl:1453
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-IN-TYPE-CD = 0
 MOVE LOW-VALUES TO TRTYPEO OF CTRTLIAOCOTRTLIC.cbl:1455
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. TRUE is none of [WS-ACTIONS-REQUESTED > 0; FLG-TYPEFILTER-ISVALID; FLG-TYPEFILTER-NOT-OK; WS-IN-TYPE-CD = 0]
 MOVE LOW-VALUES TO TRTYPEO OF CTRTLIAOCOTRTLIC.cbl:1457
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. TRUE is none of [WS-ACTIONS-REQUESTED > 0; FLG-TYPEFILTER-ISVALID; FLG-TYPEFILTER-NOT-OK; WS-IN-TYPE-CD = 0]
 MOVE DFHBMFSE TO TRTYPEA OF CTRTLIAICOTRTLIC.cbl:1458
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE WS-IN-TYPE-DESC TO TRDESCO OF CTRTLIAOCOTRTLIC.cbl:1463
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE DFHBMASF TO TRDESCA OF CTRTLIAICOTRTLIC.cbl:1464
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. WS-ACTIONS-REQUESTED > 0
 MOVE DFHBLUE TO TRDESCC OF CTRTLIAOCOTRTLIC.cbl:1465
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. FLG-DESCFILTER-ISVALID | FLG-DESCFILTER-NOT-OK
 MOVE WS-IN-TYPE-DESC TO TRDESCO OF CTRTLIAOCOTRTLIC.cbl:1468
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. FLG-DESCFILTER-ISVALID | FLG-DESCFILTER-NOT-OK
 MOVE DFHBMFSE TO TRDESCA OF CTRTLIAICOTRTLIC.cbl:1469
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-ADMINPGM))
  2. TRUE is none of [WS-ACTIONS-REQUESTED > 0; FLG-DESCFILTER-ISVALID; FLG-DESCFILTER-NOT-OK]
 MOVE DFHBMFSE TO TRDESCA OF CTRTLIAICOTRTLIC.cbl:1471
  1. FLG-TYPEFILTER-NOT-OK
 MOVE DFHRED TO TRTYPEC OF CTRTLIAOCOTRTLIC.cbl:1478
  1. FLG-TYPEFILTER-NOT-OK
 MOVE -1 TO TRTYPEL OF CTRTLIAICOTRTLIC.cbl:1479
  1. FLG-DESCFILTER-NOT-OK
 MOVE DFHRED TO TRDESCC OF CTRTLIAOCOTRTLIC.cbl:1483
  1. FLG-DESCFILTER-NOT-OK
 MOVE -1 TO TRDESCL OF CTRTLIAICOTRTLIC.cbl:1484
  1. INPUT-OK
  2. NOT (WS-ACTIONS-REQUESTED > 0 AND NOT CCARD-AID-PFK07 AND NOT CCARD-AID-PFK08)
 MOVE -1 TO TRTYPEL OF CTRTLIAICOTRTLIC.cbl:1495
14 rules

2500-SETUP-MESSAGE

WhenThenAt
  1. FLG-DELETED-YES
 SET WS-INFORM-DELETE-SUCCESS TO TRUECOTRTLIC.cbl:1508
  1. FLG-UPDATE-COMPLETED
 SET WS-INFORM-UPDATE-SUCCESS TO TRUECOTRTLIC.cbl:1510
  1. CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND WS-ONLY-1-ACTION AND WS-ONLY-1-VALID-ACTION
  2. WS-NO-INFO-MESSAGE AND FLG-TYPEFILTER-CHANGED-NO AND FLG-DESCFILTER-CHANGED-NO
 SET WS-INFORM-DELETE TO TRUECOTRTLIC.cbl:1521
  1. CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND WS-ONLY-1-ACTION AND WS-ONLY-1-VALID-ACTION
  2. WS-NO-INFO-MESSAGE AND FLG-TYPEFILTER-CHANGED-NO AND FLG-DESCFILTER-CHANGED-NO
 SET WS-INFORM-UPDATE TO TRUECOTRTLIC.cbl:1530
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE
 MOVE 'No previous pages to display' TO WS-RETURN-MSGCOTRTLIC.cbl:1534–1535
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS AND CA-LAST-PAGE-SHOWN
 MOVE 'No more pages to display' TO WS-RETURN-MSGCOTRTLIC.cbl:1539–1540
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS
  2. WS-NO-INFO-MESSAGE
 SET WS-INFORM-REC-ACTIONS TO TRUECOTRTLIC.cbl:1544
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS
  2. CA-LAST-PAGE-NOT-SHOWN AND CA-NEXT-PAGE-NOT-EXISTS
 SET CA-LAST-PAGE-SHOWN TO TRUECOTRTLIC.cbl:1548
  1. WS-NO-INFO-MESSAGE | CA-NEXT-PAGE-EXISTS
 SET WS-INFORM-REC-ACTIONS TO TRUECOTRTLIC.cbl:1552
  1. TRUE is none of [FLG-DELETED-YES; FLG-UPDATE-COMPLETED; FLG-TYPEFILTER-NOT-OK; FLG-DESCFILTER-NOT-OK; CCARD-AID-ENTER AND WS-DELETES-REQUESTED > 0 AND WS-ONLY-1-ACTION AND WS-ONLY-1-VALID-ACTION; CCARD-AID-ENTER AND WS-UPDATES-REQUESTED > 0 AND WS-ONLY-1-ACTION AND WS-ONLY-1-VALID-ACTION; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS AND CA-LAST-PAGE-SHOWN; CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS; WS-NO-INFO-MESSAGE; CA-NEXT-PAGE-EXISTS]
 SET WS-NO-INFO-MESSAGE TO TRUECOTRTLIC.cbl:1554
alwayscalc COMPUTE WS-STRING-LEN = FUNCTION LENGTH( FUNCTION TRIM(WS-INFO-MSG) )COTRTLIC.cbl:1562–1565
alwayscalc COMPUTE WS-STRING-MID = (FUNCTION LENGTH(WS-INFO-MSG) - WS-STRING-LEN) / 2 + 1COTRTLIC.cbl:1566–1568
  1. NOT WS-NO-INFO-MESSAGE AND NOT WS-MESG-NO-RECORDS-FOUND
 MOVE WS-STRING-OUT TO INFOMSGO OF CTRTLIAOCOTRTLIC.cbl:1577
  1. NOT WS-NO-INFO-MESSAGE AND NOT WS-MESG-NO-RECORDS-FOUND
 MOVE DFHNEUTR TO INFOMSGC OF CTRTLIAOCOTRTLIC.cbl:1578
29 rules

8000-READ-FORWARD

WhenThenAt
  1. WS-DB2-ERROR
 GO TO 8000-READ-FORWARD-EXITCOTRTLIC.cbl:1613
  1. PERFORM UNTIL READ-LOOP-EXIT
 INITIALIZE DCLTRANSACTION-TYPECOTRTLIC.cbl:1624
  1. PERFORM UNTIL READ-LOOP-EXIT
 EXEC SQL FETCH C-TR-TYPE-FORWARD INTO :DCL-TR-TYPE ,:DCL-TR-DESCRIPTION END-EXECCOTRTLIC.cbl:1626–1630
  1. PERFORM UNTIL READ-LOOP-EXIT
 MOVE SQLCODE TO WS-DISP-SQLCODECOTRTLIC.cbl:1632
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
calc ADD 1 TO WS-ROW-NUMBERCOTRTLIC.cbl:1636
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
 MOVE DCL-TR-TYPE TO WS-CA-ROW-TR-CODE-OUT( WS-ROW-NUMBER)COTRTLIC.cbl:1638–1639
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
 MOVE DCL-TR-DESCRIPTION-TEXT TO WS-CA-ROW-TR-DESC-OUT( WS-ROW-NUMBER)COTRTLIC.cbl:1641–1643
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = 1
 MOVE DCL-TR-TYPE TO WS-CA-FIRST-TR-CODECOTRTLIC.cbl:1645
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = 1
  4. WS-CA-SCREEN-NUM = 0
calc ADD +1 TO WS-CA-SCREEN-NUMCOTRTLIC.cbl:1647
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1658
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
 MOVE DCL-TR-TYPE TO WS-CA-LAST-TR-CODECOTRTLIC.cbl:1659
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
 EXEC SQL FETCH C-TR-TYPE-FORWARD INTO :DCL-TR-TYPE ,:DCL-TR-DESCRIPTION END-EXECCOTRTLIC.cbl:1661–1665
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
 MOVE SQLCODE TO WS-DISP-SQLCODECOTRTLIC.cbl:1667
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. SQLCODE = ZERO
 SET CA-NEXT-PAGE-EXISTS TO TRUECOTRTLIC.cbl:1671–1672
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. SQLCODE = ZERO
 MOVE DCL-TR-TYPE TO WS-CA-LAST-TR-CODECOTRTLIC.cbl:1673
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. SQLCODE = +100
 SET CA-NEXT-PAGE-NOT-EXISTS TO TRUECOTRTLIC.cbl:1675
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. SQLCODE = +100
  5. WS-RETURN-MSG-OFF AND CCARD-AID-PFK08
 SET WS-MESG-NO-MORE-RECORDS TO TRUECOTRTLIC.cbl:1679
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1684
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
  5. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-FORWARD fetch' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1686–1688
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = WS-MAX-SCREEN-LINES
  4. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
  5. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1689–1690
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = +100
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1695
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = +100
 SET CA-NEXT-PAGE-NOT-EXISTS TO TRUECOTRTLIC.cbl:1696
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = +100
 MOVE DCL-TR-TYPE TO WS-CA-LAST-TR-CODECOTRTLIC.cbl:1697
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = +100
  3. WS-RETURN-MSG-OFF AND CCARD-AID-PFK08
 SET WS-MESG-NO-MORE-RECORDS TO TRUECOTRTLIC.cbl:1700
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = +100
  3. WS-CA-SCREEN-NUM = 1 AND WS-ROW-NUMBER = 0
 SET WS-MESG-NO-RECORDS-FOUND TO TRUECOTRTLIC.cbl:1704
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1709
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:1710
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
  3. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-FORWARD close' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1712–1713
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO; SQLCODE = +100]
  3. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1715–1716
13 rules

8100-READ-BACKWARDS

WhenThenAt
alwayscalc COMPUTE WS-ROW-NUMBER = WS-MAX-SCREEN-LINESCOTRTLIC.cbl:1735–1736
  1. PERFORM UNTIL READ-LOOP-EXIT
 INITIALIZE DCLTRANSACTION-TYPECOTRTLIC.cbl:1751
  1. PERFORM UNTIL READ-LOOP-EXIT
 EXEC SQL FETCH C-TR-TYPE-BACKWARD INTO :DCL-TR-TYPE ,:DCL-TR-DESCRIPTION END-EXECCOTRTLIC.cbl:1753–1757
  1. PERFORM UNTIL READ-LOOP-EXIT
 MOVE SQLCODE TO WS-DISP-SQLCODECOTRTLIC.cbl:1759
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
 MOVE DCL-TR-TYPE TO WS-CA-ROW-TR-CODE-OUT(WS-ROW-NUMBER)COTRTLIC.cbl:1763–1764
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
 MOVE DCL-TR-DESCRIPTION-TEXT TO WS-CA-ROW-TR-DESC-OUT(WS-ROW-NUMBER)COTRTLIC.cbl:1765–1767
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
calc SUBTRACT 1 FROM WS-ROW-NUMBERCOTRTLIC.cbl:1769
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = 0
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1771
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. SQLCODE = ZERO
  3. WS-ROW-NUMBER = 0
 MOVE DCL-TR-TYPE TO WS-CA-FIRST-TR-CODECOTRTLIC.cbl:1772–1773
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO]
 SET READ-LOOP-EXIT TO TRUECOTRTLIC.cbl:1780
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:1781
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO]
  3. WS-RETURN-MSG-OFF
 MOVE 'Error on fetch Cursor C-TR-TYPE-BACKWARD' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1784–1785
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. TRUE is none of [SQLCODE = ZERO]
  3. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1786–1787
4 rules

9100-CHECK-FILTERS

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1823
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 MOVE 'Error reading TRANSACTION_TYPE table ' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1826–1827
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1828–1829
  1. TRUE is none of [SQLCODE = ZERO]
 GO TO 9100-CHECK-FILTERS-EXITCOTRTLIC.cbl:1831
17 rules

9200-UPDATE-RECORD

WhenThenAt
alwayscalc COMPUTE DCL-TR-DESCRIPTION-LEN = FUNCTION LENGTH(WS-ROW-TR-DESC-IN (I-SELECTED))COTRTLIC.cbl:1843–1844
  1. SQLCODE = ZERO
 EXEC CICS SYNCPOINT END-EXECCOTRTLIC.cbl:1856
  1. SQLCODE = ZERO
 SET CA-UPDATE-SUCCEEDED TO TRUECOTRTLIC.cbl:1857
  1. SQLCODE = ZERO
  2. WS-NO-INFO-MESSAGE
 SET WS-INFORM-UPDATE-SUCCESS TO TRUECOTRTLIC.cbl:1859
  1. SQLCODE = +100
 SET CA-UPDATE-REQUESTED TO TRUECOTRTLIC.cbl:1862
  1. SQLCODE = +100
  2. WS-RETURN-MSG-OFF
 MOVE 'Record not found. Deleted by others ? ' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1864–1865
  1. SQLCODE = +100
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1866–1867
  1. SQLCODE = +100
 GO TO 9200-UPDATE-RECORD-EXITCOTRTLIC.cbl:1869
  1. SQLCODE = -911
 SET CA-UPDATE-REQUESTED TO TRUECOTRTLIC.cbl:1871
  1. SQLCODE = -911
 SET INPUT-ERROR TO TRUECOTRTLIC.cbl:1872
  1. SQLCODE = -911
  2. WS-RETURN-MSG-OFF
 MOVE 'Deadlock. Someone else updating ?' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1874–1875
  1. SQLCODE = -911
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1876–1877
  1. SQLCODE = -911
 GO TO 9200-UPDATE-RECORD-EXITCOTRTLIC.cbl:1879
  1. SQLCODE < 0
 SET CA-UPDATE-REQUESTED TO TRUECOTRTLIC.cbl:1881
  1. SQLCODE < 0
  2. WS-RETURN-MSG-OFF
 MOVE 'Update failed with' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1883–1884
  1. SQLCODE < 0
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1885–1886
  1. SQLCODE < 0
 GO TO 9200-UPDATE-RECORD-EXITCOTRTLIC.cbl:1888
10 rules

9300-DELETE-RECORD

WhenThenAt
  1. SQLCODE = ZERO
 EXEC CICS SYNCPOINT END-EXECCOTRTLIC.cbl:1909
  1. SQLCODE = ZERO
 SET CA-DELETE-SUCCEEDED TO TRUECOTRTLIC.cbl:1910
  1. SQLCODE = ZERO
  2. WS-NO-INFO-MESSAGE
 SET WS-INFORM-DELETE-SUCCESS TO TRUECOTRTLIC.cbl:1912
  1. SQLCODE = -532
 SET CA-DELETE-REQUESTED TO TRUECOTRTLIC.cbl:1915
  1. SQLCODE = -532
  2. WS-RETURN-MSG-OFF
 MOVE 'Please delete associated child records first:' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1918–1920
  1. SQLCODE = -532
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1921–1922
  1. SQLCODE = -532
 GO TO 9300-DELETE-RECORD-EXITCOTRTLIC.cbl:1925
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
  2. WS-RETURN-MSG-OFF
 MOVE 'Delete failed with message:' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1928–1930
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1931–1932
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
 GO TO 9300-DELETE-RECORD-EXITCOTRTLIC.cbl:1934
3 rules

9400-OPEN-FORWARD-CURSOR

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:1955
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-FORWARD Open' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1957–1959
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1960–1961
3 rules

9450-CLOSE-FORWARD-CURSOR

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:1983
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-FORWARD close' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:1985–1987
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:1988–1989
3 rules

9500-OPEN-BACKWARD-CURSOR

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:2010
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-BACKWARD Open' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:2012–2014
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:2015–2016
3 rules

9550-CLOSE-BACK-CURSOR

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECOTRTLIC.cbl:2039
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 MOVE 'C-TR-TYPE-BACKWARD close' TO WS-DB2-CURRENT-ACTIONCOTRTLIC.cbl:2041–2043
  1. TRUE is none of [SQLCODE = ZERO]
  2. WS-RETURN-MSG-OFF
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCOTRTLIC.cbl:2044–2045
3 rules

9998-PRIMING-QUERY

WhenThenAt
  1. TRUE is none of [SQLCODE = ZERO]
 SET WS-DB2-ERROR TO TRUECSDB2RPY.cpy:38 via COTRTLIC.cbl:2055
  1. TRUE is none of [SQLCODE = ZERO]
 MOVE 'Db2 access failure. ' TO WS-DB2-CURRENT-ACTIONCSDB2RPY.cpy:40–41 via COTRTLIC.cbl:2055
  1. TRUE is none of [SQLCODE = ZERO]
 PERFORM 9999-FORMAT-DB2-MESSAGE THRU 9999-FORMAT-DB2-MESSAGE-EXITCSDB2RPY.cpy:42–43 via COTRTLIC.cbl:2055
3 rules

9999-FORMAT-DB2-MESSAGE

WhenThenAt
alwayscalc COMPUTE WS-DSNTIAC-ERR-CD = RETURN-CODECSDB2RPY.cpy:64 via COTRTLIC.cbl:2055
  1. NOT (WS-DSNTIAC-ERR-CD = ZEROES)
 MOVE 'DSNTIAC CD: ' TO WS-DSNTIAC-ERR-MSGCSDB2RPY.cpy:70 via COTRTLIC.cbl:2055
  1. NOT (WS-DSNTIAC-ERR-CD = ZEROES)
 MOVE WS-DSNTIAC-ERROR TO WS-DSNTIAC-FMTD-TEXTCSDB2RPY.cpy:71 via COTRTLIC.cbl:2055
28 rules

YYYY-STORE-PFKEY

WhenThenAt
  1. EIBAID IS EQUAL TO DFHENTER
 SET CCARD-AID-ENTER TO TRUECSSTRPFY.cpy:23 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHCLEAR
 SET CCARD-AID-CLEAR TO TRUECSSTRPFY.cpy:25 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPA1
 SET CCARD-AID-PA1 TO TRUECSSTRPFY.cpy:27 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPA2
 SET CCARD-AID-PA2 TO TRUECSSTRPFY.cpy:29 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF1
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:31 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF2
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:33 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF3
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:35 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF4
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:37 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF5
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:39 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF6
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:41 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF7
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:43 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF8
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:45 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF9
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:47 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF10
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:49 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF11
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:51 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF12
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:53 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF13
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:55 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF14
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:57 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF15
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:59 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF16
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:61 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF17
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:63 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF18
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:65 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF19
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:67 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF20
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:69 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF21
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:71 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF22
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:73 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF23
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:75 via COTRTLIC.cbl:2060
  1. EIBAID IS EQUAL TO DFHPF24
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:77 via COTRTLIC.cbl:2060