* Scale ID: 			PSWQ.
* Scale Name: 		Penn State Worry Questionnaire.
* TILDA Variables: 	MHpennworry.
* Dataset:      		TILDA Wave 1-6.
* Author:.
* Institution:  		The Irish Longitudinal Study on Ageing (TILDA).
* .
* Description:.
* Generates scoring for the Penn State Worry Questionnaire.
* .
* Version:      1.0.
* Date:         2026-09-01.
* Language:     SPSS.

* Items are scored 1-5; total range 8-40.
* Short form with no negatively worded items.

RECODE SCQWORRY1 SCQWORRY2 SCQWORRY3 SCQWORRY4
       SCQWORRY5 SCQWORRY6 SCQWORRY7 SCQWORRY8
  (-99 = SYSMIS) (-812 = SYSMIS) (-823 = SYSMIS)
  (-834 = SYSMIS) (-845 = SYSMIS).

COMPUTE pennworry = $SYSMIS.
IF (in_scq = 1) pennworry = 0.

COMPUTE pennworry =
  SCQWORRY1 + SCQWORRY2 + SCQWORRY3 + SCQWORRY4 +
  SCQWORRY5 + SCQWORRY6 + SCQWORRY7 + SCQWORRY8.

IF (pennworry > 100) pennworry = $SYSMIS.

VARIABLE LABELS pennworry "Penn worry scale (range=8-40)".
RENAME VARIABLES (pennworry = MHpennworry).

EXECUTE.