Does anyone know if the MORE command works with regular FOCUS on the AS400? I can not find it in my AS400 manual.

This message has been edited. Last edited by: Kerry,

If it's not in the FOCUS for AS/400 manual, then it's probably not supported, but there's nothing stopping you from trying.

TABLE FILE CAR
SUM SALES
BY COUNTRY
MORE
FILE CAR
END

Thanks for responding Francis. The bad thing is that Focus for the AS400 is no longer supported so I guess I'll just have to wait till I can get this program converted to WF.

I successfully tested this with WebFOCUS. The files are on the iSeries (AS400) in DB2 with similar, but not exact fields:

TABLE FILE MALPRHS2
PRINT
JPROD#
JDATE
JTRAN
WHERE JDATE EQ 1080926 AND JTRAN EQ '04'
MORE
FILE BLLJDTL1
WHERE JDATE EQ 1080926 AND JTRAN EQ '43'
END

Brian, the problem isn't with WebFocus but regular (old) FOCUS. I'm trying to find a permanent solution for a sort overflow problem. I have a temporary work around, but I am afraid that will eventually fail and then I'm stuck. There are also security issues with trying to create a permanent hold file. The immediate problem is that I am out of time, the program runs on Thursday, so for this month all I can do is hope we don't hit the sort limit again.

Pat, you hadn't previously mentioned that you're having a sort overflow problem.

As on the IBM Mainframe you can allocate extra storage space for sorting, the same should be available for the AS400.

On IBM Mainframe:

//FOCSORT  DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK01 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK02 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK03 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK04 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK05 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))
//S001WK06 DD UNIT=PUBLIC,SPACE=(CYL,(500,75))

There probably also is the possibility of calling an external sort instead of using the default FOCUS sort.

Unfortunately, you don't use JCL on the AS400. According to the documentation you can't expand the sortwork past where we have it set. I guess I should have explained the whole problem in the first place. I did not write the original program and the person who did has retired, so I have no one to go back to for an explanation of the logic.

I have a huge JDE file that we are using to do an aging report for our Credit department. The program originally pulled off every line item without a zero balance. Then it summed the data to give us a balance for the invoice and then it matched it against payments (I think). For now, I have eliminated one of those steps, summing to the invoice level as I extract the data. What I was hoping to do for future runs was hold my history file (all invoices still open at the end of the current month) and then just pull off the invoices and payments for the current month. The problem then is getting the invoices into my history file before matching it (or joining) to the payments. The only thing I can think of is to create a FOCUS database of my history load the new invoices into it, match it to the payments and then purge everything with a zero balance. If anyone has another suggestion, I would love to hear it.