GROUP 1 EXECs that manage application resources

@DIS

GENERIC DISPLAY INVOKES %GROUP TXN/PGM/DB

TXN/KPGM/DB

DISACC

INVOKES %GROUP TO DISPLAY TXN/PGM/DB ACC

TXN/PGM/DB

DISADF

INVOKES %GROUP TO DISPLAY TXN/PGM/DB ADFf

TXN/PGM/DB

DISBCA

INVOKES %GROUP TO DISPLAY TXN/PGM/DB BCA

TXN/PGM/DB

DISDSS

INVOKES %GROUP TO DISPLAY TXN/PGM/DB DSS

TXN/PGM/DB

DISXXX

GENERIC DISPLAY TXN/PGM/DB

TXN/PGM/DB

PAYROLL

STARTS PAYROLL APPLICATION AND CHECKS RESOURCES

TXN/PGM/DB

GROUP

TESTS FOR VALID DATA AND SETS APPL AND SCOPE

IF APPL = ADF INVOKES &GRPADF

IF APPL = BCA INVOKES %GRPBCA

IF APPL = SAM INVOKES %GRPSAM

IF SPECIAL CASE RESETS APPL THEN GOES TO OK

IF ALL OK THEN INVOKES %GRPDOIT

SETS SCOPE = DB/PGM/TXN/ALL

SETS CMD = STA/STO/DBR/DIS/LOC/UNL/PUR/MSG

SENDS WARNING MSG IF BAD DATA

SCOPE=

TXN

PGM

DB

ALL

GRPADF

CMD = OFF SCOPE = DB/PGM/TXN/ALL OFF = DBR/STO

DB/PGM/TXN

GRPBCA

CMD = OFFSCOPE = DB/PGM/TXN/ALL OFF = DBR/STO

DB/PGM/TXN

GRPDOIT

VALID PARM CK FROM %GROUP INVOKES

IF CMD = OFF DBR/STO DB & STO/TXN

SENDS WARN MSG IF SCOPE = DONE

CHECKS APPL FOR SPECIFIC OR GENERIC DB

DB/TXN

GRPSAM

INVOKED BY %GROUP IF APPL = SAM DBR/STO

DB/PGM/TXN

PAYROLL

STARTS/STOPS THE PAYROLL APPLICATION

DB/LTERM/TXN

PURGTRAN

INVOKES %GROUP TO PURGE ALL REQ’D TXNS

TXN

STADSSIN

STARTS ALL DSS TXNS

TXN

STADSSUP

STARTS ALL DSS UPDATE TXNS

TXN

START

INVOKES %GROUP SCOPE = ALL

DB/PGM/TXN

STARTACC

INVOKES %GROUP TO STA ACC(*)

DB/TXN

STARTADF

INVOKES %GROUP TO STA ADF(*) THRU %GRPADF

DB/PGM/TXN

STARTDSS

INVOKES 5GROUP TO STA DSS(*) THRU &GRPDOIT

DB/PGM/TXN

STODSSIN

STOPS ALL DSS TXNS WITH NO PARMS PASSED

TXNS

STODSSUP

STOPS ALL DSS UPDATE TXNS & SENDS WARN MSG

TXNS

STOP

INVOKES %GROUP TO PUR/TXN & OFF /ALL WARNS

DB/PGM/TXN

STOPACC

INVOKES %GROUP TO PUR/TXNS & OFF/ALL

THRU %GRPDOIT & SENDS WARN & BROADCAST

DB/TXNS

STOPADF

INVOKES %GROUP TO PUR/TXN & OFF/ALL

THRU %GRPADF

DB/PGM/TXNS

STOPAIM

INVOKES %GROUP TO PUR/TXN & OFF/ALL

APPL = AIM & SENDS WARN MSG

DB/TXN

STOPBCA

INVOKES %GROUP TO PUR/TXN & OFF/ALL

THRU %GRPBCA

DB/PGM/TXN

STOPDSS

INVOKES %GROUP TO PUR/TXN & OFF/ALL APPL = DSS

DB/TXNS

TESTA

TEST EXEC TO DIS/TRAN PART(*) NO PARMS

TXN

TESTB

TEST EXEC TO DIS/TXN = KPART/ADD WITH NO PARMS

TXN