I have the following code aN IBI consultant left me with to cycle through the different databases we have, however it doesn't work - if we set the FOR loop from 1 to 7, it repeats the first item, DJ5, 7 times. Any ideas?

-REPEAT END_PAYROLL FOR &N FROM 1 TO 7;
-SET &DATASRC = IF &N EQ 1 THEN 'DJ5'
-ELSE IF &N EQ 2 THEN 'AFM5'
-ELSE IF &N EQ 3 THEN 'PRC5'
-ELSE IF &N EQ 4 THEN 'RI5'
-ELSE IF &N EQ 5 THEN 'WF5'
-ELSE IF &N EQ 6 THEN 'DJI5'
-ELSE IF &N EQ 7 THEN 'TW5';
-SET &ENVRNMNT = 'PROD';
-INCLUDE siteprof
-RUN

TRY THIS

-REPEAT END_PAYROLL FOR &N FROM 1 TO 7;
-SET &DATASRC = IF &N EQ 1 THEN 'DJ5'
-ELSE IF &N EQ 2 THEN 'AFM5'
-ELSE IF &N EQ 3 THEN 'PRC5'
-ELSE IF &N EQ 4 THEN 'RI5'
-ELSE IF &N EQ 5 THEN 'WF5'
-ELSE IF &N EQ 6 THEN 'DJI5'
-ELSE IF &N EQ 7 THEN 'TW5';
-SET &ENVRNMNT = 'PROD';
-TYPE &N &DATASRC
-END_PAYROLL
-RUN

Is &N manipulated in the -INCLUDE file?

What else appears between the pasted code and the closing label of the loop (-END_PAYROLL)?

Does the loop work properly if you change &N to some other variable name?

as Tex points out, you don't have any ENDPAYROLL statment label. Look carefully at his code, he puts one in.
and you need to initialize &N.
so at the top of your fex,
-SET &N = 0 ;

i didn't know we could use FOR syntax in loops. how delightfully Fortran. ..so thanx for the post.

&N is not manipulated in the -INCLUDE file.

The loop does not work properly if I change &N to a different variable name.

I tried Tex's code and it displays:
1 DJ5
2 AFM5
3 PRC5
4 RI5
5 WF5
6 DJI5
7 TW5

The entire fex file is below showing what else appears between the pasted code and the closing label of the loop:
UNIX rm /home/reportcaster/jamis-dji-ap-total-export-vendor-master-1.txt
-RUN
FILEDEF jamis-dji-ap-total-export-vendor-master-1 DISK /home/reportcaster/jamis-dji-ap-total-export-vendor-master-1.txt (APPEND
-RUN
-REPEAT END_PAYROLL FOR &N FROM 1 TO 7;
-SET &DATASRC = IF &N EQ 1 THEN 'DJ5'
-ELSE IF &N EQ 2 THEN 'AFM5'
-ELSE IF &N EQ 3 THEN 'PRC5'
-ELSE IF &N EQ 4 THEN 'RI5'
-ELSE IF &N EQ 5 THEN 'WF5'
-ELSE IF &N EQ 6 THEN 'DJI5'
-ELSE IF &N EQ 7 THEN 'TW5';
-SET &ENVRNMNT = 'PROD';
-INCLUDE siteprof
-RUN
-*
TABLE FILE AP_VEND
PRINT
COMPUTE D_VEND_NNO/A37 = VEND_NO|'|'|VEND_NAME; AS ''
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS jamis-dji-ap-total-export-vendor-master-1 FORMAT ALPHA
END
-RUN
-END_PAYROLL

I also commented out the INCLUDE siteprof and ran the fex and intialized N at the beginning of the fex and it's still cycling through DJ5 seven times.

The output is below - each data source should have a different number of records but it's listing the same number seven times so I know it's not actually going through each data source:
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0
ALPHANUMERIC RECORD NAMED JAMIS-DJ
0 FIELDNAME ALIAS FORMAT LENGTH
D_EMP A57 57
TOTAL 116
1
0 NUMBER OF RECORDS IN TABLE= 6936 LINES= 6936
0

[revised]

Apparently sitepref.fex is responsible for pointing AP_VEND to an appropriate datastore corresponding to &DATASRC. That's where I'd look next: Is "&DATASRC" the way it's spelled in siteprof, and is siteprof trouncing it.

Try this:

-SET &ECHO=ON;
UNIX rm /home/reportcaster/jamis-dji-ap-total-export-vendor-master-1.txt
-RUN
FILEDEF jamis-dji-ap-total-export-vendor-master-1 DISK /home/reportcaster/jamis-dji-ap-total-export-vendor-master-1.txt (APPEND
-RUN
-REPEAT END_PAYROLL FOR &N FROM 1 TO 7;
-SET &DATASRC = IF &N EQ 1 THEN 'DJ5'
-ELSE IF &N EQ 2 THEN 'AFM5'
-ELSE IF &N EQ 3 THEN 'PRC5'
-ELSE IF &N EQ 4 THEN 'RI5'
-ELSE IF &N EQ 5 THEN 'WF5'
-ELSE IF &N EQ 6 THEN 'DJI5'
-ELSE IF &N EQ 7 THEN 'TW5';
-SET &ENVRNMNT = 'PROD';
-TYPE @ BEFORE siteprof: n=&N, datasrc=&DATASRC
-INCLUDE siteprof
-RUN
-TYPE @ AFTER siteprof: n=&N, datasrc=&DATASRC
TABLE FILE AP_VEND
PRINT
COMPUTE D_VEND_NNO/A37 = VEND_NO|'|'|VEND_NAME; AS ''
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS jamis-dji-ap-total-export-vendor-master-1 FORMAT ALPHA
END
-RUN
-TYPE @ AFTER report: n=&N, datasrc=&DATASRC
-END_PAYROLL
and post the messages.

This message has been edited. Last edited by: <Mabel>,

Looking at SITEPROF, it was doing an APP APPENDPATH but needed to do an APP PATH first which wasn't listed. Thanks for pointing me in the right direction.