SELECT BCGBINDX INTO :INDEX FROM REL21.ANXTCAT WHERE ((BCGBTBFT0 = :CAT_T0) AND (BCGBTBFT1 = :CAT_T1) AND (BCGBTBFT2 = :CAT_T2) AND (BCGBTBFT3 = :CAT_T3) AND (BCGBTBFT4 = :CAT_T4) AND (BCGBTBFT5 = :CAT_T5) AND (BCGBTBFT6 = :CAT_T6) AND (BCGBTBFT7 = :CAT_T7) AND (BCGBTBFT8 = :CAT_T8) AND (BCGBTBFT9 = :CAT_T9))
ROLLBACK
SELECT BCGBOBST, BCGBAGHA, BCGCMNAM INTO :OBJ_STAT, :AHND, :CMNAME FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBINDX=:INDEX) AND (REL21.ANXTCM.BCGBWRST=:WSNAM) AND (REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
ROLLBACK
SELECT REL21.ANXTWS.BCGBWRGN INTO :WRGN FROM REL21.ANXTWS WHERE (REL21.ANXTWS.BCGBWRST=:WSNAM) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN')
ROLLBACK
ROLLBACK
ROLLBACK
DELETE FROM REL21.ANXTCM WHERE ((BCGBINDX=:INDEX) AND (REL21.ANXTCM.BCGBWRST=:WSNAM) AND (REL21.ANXTCM.BCGBWRGN =:WRGN))
ROLLBACK
UPDATE REL21.ANXTCAT SET BCGBINCT = BCGBINCT-1 WHERE BCGBINDX= :INDEX
ROLLBACK
COMMIT
BEGIN DECLARE SECTION
END DECLARE SECTION
SELECT COUNT(DISTINCT BCGBINDX) INTO :CM_ENTRIES FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARV OR BCGBOBST = :INRAV OR BCGBOBST = :INRUV OR BCGBOBST = :BKLV ) AND (REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
DECLARE VALID_INDEX CURSOR FOR SELECT DISTINCT BCGBINDX FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARV OR BCGBOBST = :INRAV OR BCGBOBST = :INRUV OR BCGBOBST = :BKLV ) AND (REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
OPEN VALID_INDEX
FETCH VALID_INDEX INTO :CAT_INDX
ROLLBACK
CLOSE VALID_INDEX
ROLLBACK
SELECT COUNT(*) INTO :INCT_COUN FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARV OR BCGBOBST = :INRAV OR BCGBOBST = :INRUV OR BCGBOBST = :BKLV ) AND ((REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN')) AND (BCGBINDX = :CAT_INDX))
SELECT BCGBINCT INTO :CAT_INCT FROM REL21.ANXTCAT WHERE (BCGBINDX =:CAT_INDX)
ROLLBACK
UPDATE REL21.ANXTCAT SET BCGBINCT = :CAT_INCT WHERE BCGBINDX = :CAT_INDX
ROLLBACK
DECLARE STARSTAR_WS CURSOR FOR SELECT REL21.ANXTWS.BCGBWRST, REL21.ANXTWS.BCGBWRGN FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARV OR BCGBOBST = :INRAV OR BCGBOBST = :INRUV OR BCGBOBST = :BKLV ) AND (BCGBINDX= :CAT_INDX) AND (REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
ROLLBACK
OPEN STARSTAR_WS
ROLLBACK
FETCH STARSTAR_WS INTO :WSNM_STARSTAR, :WRG_STARSTAR
DELETE FROM REL21.ANXTCM WHERE ((BCGBOBST = :RARV OR BCGBOBST = :INRAV OR BCGBOBST = :INRUV OR BCGBOBST = :BKLV ) AND (BCGBINDX= :CAT_INDX) AND (REL21.ANXTCM.BCGBWRST= :WSNM_STARSTAR) AND (REL21.ANXTCM.BCGBWRGN= :WRG_STARSTAR))
ROLLBACK
FETCH STARSTAR_WS INTO :WSNM_STARSTAR, :WRG_STARSTAR
ROLLBACK
CLOSE STARSTAR_WS
ROLLBACK
COMMIT
ROLLBACK
BEGIN DECLARE SECTION
END DECLARE SECTION
SELECT COUNT(*) INTO :CM_ENT FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARVAL OR BCGBOBST = :INRAVAL OR BCGBOBST = :INRUVAL OR BCGBOBST = :BKLVAL) AND (REL21.ANXTCM.BCGBWRST =:WSNM)) AND ((REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
ROLLBACK
DECLARE C CURSOR FOR SELECT BCGBINDX FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARVAL OR BCGBOBST = :INRAVAL OR BCGBOBST = :INRUVAL OR BCGBOBST = :BKLVAL ) AND (REL21.ANXTCM.BCGBWRST= :WSNM) AND ((REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN')))
ROLLBACK
OPEN C
ROLLBACK
FETCH C INTO :FS_INDEX
ROLLBACK
CLOSE C
ROLLBACK
SELECT BCGBINCT INTO :INCT_CNT FROM REL21.ANXTCAT WHERE (BCGBINDX= :FS_INDEX)
ROLLBACK
UPDATE REL21.ANXTCAT SET BCGBINCT = :INCT_CNT-1 WHERE BCGBINDX = :FS_INDEX
ROLLBACK
SELECT REL21.ANXTWS.BCGBWRGN INTO :WRG FROM REL21.ANXTWS WHERE (REL21.ANXTWS.BCGBWRST=:WSNM) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN')
ROLLBACK
DELETE FROM REL21.ANXTCM WHERE ((BCGBOBST = :RARVAL OR BCGBOBST = :INRAVAL OR BCGBOBST = :INRUVAL OR BCGBOBST = :BKLVAL) AND (REL21.ANXTCM.BCGBWRST =:WSNM) AND (REL21.ANXTCM.BCGBWRGN =:WRG))
ROLLBACK
COMMIT
ROLLBACK
BEGIN DECLARE SECTION
END DECLARE SECTION
SELECT BCGBINDX, BCGBINCT INTO :GLB_INDEX, :GLB_COUNTER FROM REL21.ANXTCAT WHERE ((BCGBTBFT0 = :CAT_TBFT0) AND (BCGBTBFT1 = :CAT_TBFT1) AND (BCGBTBFT2 = :CAT_TBFT2) AND (BCGBTBFT3 = :CAT_TBFT3) AND (BCGBTBFT4 = :CAT_TBFT4) AND (BCGBTBFT5 = :CAT_TBFT5) AND (BCGBTBFT6 = :CAT_TBFT6) AND (BCGBTBFT7 = :CAT_TBFT7) AND (BCGBTBFT8 = :CAT_TBFT8) AND (BCGBTBFT9 = :CAT_TBFT9))
SELECT COUNT(*) INTO :GLB_CNT FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARST OR BCGBOBST = :INRAST OR BCGBOBST = :INRUST OR BCGBOBST = :BKLST ) AND (BCGBINDX= :GLB_INDEX) AND ((REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN')))
UPDATE REL21.ANXTCAT SET BCGBINCT = :GLB_COUNTER WHERE BCGBINDX = :GLB_INDEX
ROLLBACK
DECLARE LOCAL_WS CURSOR FOR SELECT REL21.ANXTWS.BCGBWRST, REL21.ANXTWS.BCGBWRGN FROM REL21.ANXTCM, REL21.ANXTWS WHERE ((BCGBOBST = :RARST OR BCGBOBST = :INRAST OR BCGBOBST = :INRUST OR BCGBOBST = :BKLST ) AND (BCGBINDX= :GLB_INDEX) AND (REL21.ANXTCM.BCGBWRST= REL21.ANXTWS.BCGBWRST) AND (REL21.ANXTWS.BCGBRGN = '&SERVRGN'))
ROLLBACK
OPEN LOCAL_WS
ROLLBACK
FETCH LOCAL_WS INTO :WSNM_GBSTAR, :WRG_GBSTAR
DELETE FROM REL21.ANXTCM WHERE ((BCGBOBST = :RARST OR BCGBOBST = :INRAST OR BCGBOBST = :INRUST OR BCGBOBST = :BKLST ) AND (BCGBINDX= :GLB_INDEX) AND (REL21.ANXTCM.BCGBWRST= :WSNM_GBSTAR) AND (REL21.ANXTCM.BCGBWRGN= :WRG_GBSTAR))
ROLLBACK
FETCH LOCAL_WS INTO :WSNM_GBSTAR, :WRG_GBSTAR
ROLLBACK
CLOSE LOCAL_WS
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE URT_ENTRY CURSOR FOR SELECT BCGBURID, BCGBURDR FROM REL21.ANXTURT, REL21.ANXTRDT WHERE BCGBURID=BCGBRDID AND BCGBRDRG LIKE :WRGN1 AND BCGBRDWS LIKE :WRST1
(.txt)