Date:         Thu, 29 Apr 2004 08:16:40 -0600
Reply-To:     Michael Bersick <mbersick@hotmail.com>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         Michael Bersick <mbersick@hotmail.com>
Subject:      Re: macro portion fails with 12.0.1
Comments: To: s.freidin@iaesr.unimelb.edu.au
Content-Type: text/plain; format=flowed

Macro below.












SET MPRINT=ON.
/*import owl log files--requires all 13 be in directory given by !path
argument*/
/*********************************/
DEFINE !MAGERIC (PATH = !TOKENS(1))
!DO !VAR=0 !TO 9

INPUT PROGRAM.
SET MXLOOPS = 60.
NUMERIC #READING.
DO IF NOT (#READING).
LOOP .
DATA LIST  FILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\OwlA_00',!VAR,'.log'))
LIST / Trial (f2) Event (A8).
END LOOP IF (Trial=3 AND Event = 'Sound').
COMPUTE #READING = 1.

REREAD.

END IF.

DATA LIST  LIST  /TRIAL (F2) EVENT (A8) CODE (F3) TIME (F7) TTIME (F4)
UNCERTAI (F1) DURATION (F1) REQTIME (F1) REQDUR (F1).
END INPUT PROGRAM.
EXECUTE.


/*Compute time values and save per block*/
/***********************************************/
AUTORECODE VARIABLES=trial  /INTO trial1.
COMPUTE realtime = (2*(trial1-1))/3.
EXECUTE .
SORT CASES BY
  CODE (A) .
FILTER OFF.
USE ALL.
SELECT IF(code NE 1).
SAVE OUTFILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\Owl',!VAR,'.SAV'))
        /KEEP CODE REALTIME.
!DOEND

!DO !VAR=10 !TO 12
INPUT PROGRAM.
SET MXLOOPS = 60.
NUMERIC #READING.
DO IF NOT (#READING).
LOOP .
DATA LIST  FILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\OwlA_0',!VAR,'.log'))
LIST / Trial (f2) Event (A8).
END LOOP IF (Trial=3 AND Event = 'Sound').
COMPUTE #READING = 1.

REREAD.

END IF.

DATA LIST  LIST  /TRIAL (F2) EVENT (A8) CODE (F3) TIME (F7) TTIME (F4)
UNCERTAI (F1) DURATION (F1) REQTIME (F1) REQDUR (F1).
END INPUT PROGRAM.
EXECUTE.


/*Compute time values and save per block*/
/***********************************************/
AUTORECODE VARIABLES=trial  /INTO trial1.
COMPUTE realtime = (2*(trial1-1))/3.
EXECUTE .
SORT CASES BY
  CODE (A) .
FILTER OFF.
USE ALL.
SELECT IF(code NE 1).
SAVE OUTFILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\Owl',!VAR,'.SAV'))
        /KEEP CODE REALTIME.

!DOEND

/*handle practice block separately*/

GET  FILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\Owl0.SAV')).
CASESTOVARS
/ID=CODE
/DROP=CODE.

EXECUTE .
SAVE OUTFILE=!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\FLIP0.SAV'))
/COMPRESSED.
/********************************/


!DO !VAR=1 !TO 12

GET  FILE = !QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\Owl',!VAR,'.SAV')).



CASESTOVARS
/ID=CODE
/DROP=CODE.




SAVE OUTFILE=!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\FLIP',!VAR,'.SAV'))
/COMPRESSED.

!DOEND

SET MPRINT=ON.



get file =!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\FLIP0.SAV')).

!DO !FILE = 1 !TO 12
ADD FILES
/file = *
/FILE=!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\MAG_fMRI\',!PATH,'\FLIP',!FILE,'.SAV')).
!DOEND

RECODE
  v1 TO V88  (SYSMIS=-1)  .
EXECUTE .

DO REPEAT var= v1 to v88.
COMPUTE var=RND(var*100)/100.
END REPEAT.
EXECUTE.

SAVE TRANSLATE OUTFILE=!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\Mag_fMRI\',!PATH,'\',!PATH,'eric.DAT'))
         /TYPE=TAB /MAP /REPLACE.

NEW FILE.

!DO !ERASE=0 !TO 12
ERASE   FILE =!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\Mag_fMRI\',!path,'\FLIP',!ERASE,'.SAV')).
!DOEND

!DO !ERASE=0 !TO 12
ERASE   FILE =!QUOTE(!CONCAT('E:\WPDOCS\Program
Project\MagERPs\Mag_fMRI\',!path,'\Owl',!ERASE,'.SAV')).
!DOEND


!ENDDEFINE.


!mageric path=Mag_010










>From: Simon Freidin <s.freidin@iaesr.unimelb.edu.au>
>To: Michael Bersick <mbersick@hotmail.com>
>Subject: Re: macro portion fails with 12.0.1
>Date: Thu, 29 Apr 2004 09:10:04 +1000
>
>Please post the macro.
>
>At 07:39 AM 4/28/2004 -0600, you wrote:
>>Hi all,
>>Raynald clued me to the following lines for rounding variables before
>>saving
>>them:
>>DO REPEAT var=v1 to v88.
>>COMPUTE var=RND(var*100)/100.
>>END REPEAT.
>>EXECUTE.
>>
>>I inserted them into a macro which already worked, and everything went
>>smoothly--using 11.5 the variables were all rounded to 2 places. However,
>>using 12.0.1 the macro as a whole runs fine *except* for the above
>>lines--the variables are saved but not rounded. SO I've been reloading the
>>file and running the lines from an sps file. This annoying. Any help on
>>why
>>this might be?
>>Thanks,
>>Michael Bersick
>>
>>_________________________________________________________________
>>Watch LIVE baseball games on your computer with MLB.TV, included with MSN
>>Premium!
>>http://join.msn.com/?page=features/mlb&pgmarket=en-us/go/onm00200439ave/direct/01/
>
>
>Research Database Manager and Analyst
>Melbourne Institute of Applied Economic and Social Research
>The University of Melbourne
>Melbourne VIC 3010 Australia
>New Tel: (03) 8344 2085 New Fax: (03) 8344 2111
>http://www.melbourneinstitute.com/hilda/
>

_________________________________________________________________
FREE pop-up blocking with the new MSN Toolbar – get it now!
http://toolbar.msn.com/go/onm00200415ave/direct/01/