The DQ026E error indicates the DQW area is full. You may need to allocate a larger DQW area but sometimes you can resolve it by just formatting the area and running DQWFINIT against it.
If you have a backup of an previously initialized DQW you could just restore it but when making changes to one of the Dataquery work areas it is best to format all of them. Use the following procedure:
- Use DBOC CLOSE=003 to close the URT in CICS.
- Run a DBUTLTY step with:
ACCESS DBID=003,STATUS=OFF,USERS=WAIT
COMM DBID=003,OPTION=CLOSE
- Run a DBUTLTY step to INIT and LOAD FORMAT=NONE the following files: DQE, DQF, DQR, DQS, DQT and DQW. If you want to increase the size of the DQW you do it in the JCL in this step. Use these sysin cards:
INIT AREA=DQE,DBID=003
INIT AREA=DQR,DBID=003
INIT AREA=DQT,DBID=003
LOAD AREA=DQE,DBID=003,FORMAT=NONE,SORT=1
LOAD AREA=DQR,DBID=003,FORMAT=NONE,SORT=1
LOAD AREA=DQT,DBID=003,FORMAT=NONE,SORT=1
LOAD AREA=DQW,DBID=003,FORMAT=NONE ,SORT=1
LOAD AREA=DQS,DBID=003,FORMAT=NONE,SORT=1
LOAD AREA=DQF,DBID=003,FORMAT=NONE,SORT=1
INIT AREA=DQW,DBID=003
INIT AREA=DQS,DBID=003
INIT AREA=DQF,DBID=003
- Run a DBUTLTY step with:
ACCESS DBID=003,STATUS=WRITE
- Run DQWFINIT for the DQE, DQF and DQW files. Sample JCL is in CABDSAMP member DQSIM01. In this step, if you are not increasing the size of the DQW, you may instead load a backup of a previously initialized DQW.
- Issue a DBOC OPEN=003 to open the URT in CICS.