Kbase 18143: Word Indexing Can Not Be Restarted After AS/400 Crash
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
16/10/2008 |
|
Status: Unverified
FACT(s) (Environment):
Progress/400 8.0C40
Progress/400 8.0C50
SYMPTOM(s):
CPD0006 - Word Index Processor jobs already running
Trying to start word-indexing with STRWISPRC
CPD0006 - The Word Index Support Processors are not active
Trying to stop word-indexing with ENDWISPRC
CAUSE:
This happens because there is a User Space called PROWISCFG in the Word Indexing library (usually PROWISWRK) that still contains some data from the previous session
FIX:
Following is a CL program which cleans up the User Space.
However, we can not be sure that it cleans everything that needs to be, because depending on when the crash occurs (in the middle of a transacion, doing nothing, etc.) the data to be cleaned might be different. If you encounter any problem or the CL program does not solve the problem, please contact Progress Technical Support.
/* START OF CLNWISSPC CL PROGRAM */
/* */
/* IN ORDER TO RUN THIS PROGRAM YOU MUST SUPPLY THE LIBRARY NAME */
/* USED TO SUPPORT PROGRESS/400 WORD INDEX FUNCTIONS. USALLY THIS */
/* LIBRARY IS CALLED PROWISWRK. THIS PROGRAM DOES NOT HANDLE ERROR */
/* CONDITIONS. IT WILL JUST END WITH A HARD ERROR IF AN ERROR */
/* OCCURS. PLEASE REVIEW THE JOBLOG TO RESOLVE ANY PROBLEMS THAT */
/* MAY OCCUR. */
/* */
/* TO COMPILE THIS PROGRAM, THIS SOURCE MUST BE PLACED INTO A */
/* SOURCE FILE. THE MEMBER NAME SHOULD BE CLNWISSPC. ONCE THE */
/* SOURCE IS IN PLACE, USE THE CRTCLPGM COMMAND TO CREATE THE */
/* PROGRAM INTO THE PROGRESS LIBRARY. */
/* */
/* TO EXECUTE THIS PROGRAM USE THE CALL COMMAND. ADD THE PROGRESS */
/* LIBRARY TO YOUR CURRENT LIBRARY LIST, THEN EXECUTE: */
/* */
/* CALL PGM(CLNWISSPC) PARM(PROWISWRK) */
/* */
/* WHERE PROWISWRK SHOULD BE REPLACED WITH THE LIBRARY USED ON YOUR */
/* SYSTEM FOR WHT WORD INDEX SUPPORT LIBRARY. */
/* */
PGM PARM(&LIB)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&USRSPC) TYPE(*CHAR) LEN(20)
DCL VAR(&STRT) TYPE(*CHAR) LEN(4)
DCL VAR(&LEN) TYPE(*CHAR) LEN(4)
/* THE &SPACES26 FIELD CONTAINS 26 BLANK CHARACTERS WITHIN QUOTES */
DCL VAR(&SPACES26) TYPE(*CHAR) LEN(26) +
VALUE(' ')
/* BUILD THE USER SPACE NAME */
CHGVAR VAR(&USRSPC) VALUE('PROWISCFG ' *CAT &LIB)
/* NOW CHANGE THE SPACE */
CHGVAR VAR(%BIN(&STRT)) VALUE(159)
CHGVAR VAR(%BIN(&LEN )) VALUE(1)
CALL PGM(QUSCHGUS) PARM(&USRSPC &STRT &LEN 'N' '1')
/* NOW CHANGE THE SPACE, AGAIN */
CHGVAR VAR(%BIN(&STRT)) VALUE(289)
CHGVAR VAR(%BIN(&LEN )) VALUE(26)
CALL PGM(QUSCHGUS) PARM(&USRSPC &STRT &LEN +
&SPACES26 '1')
ENDPGM