I have a program that combines three seperate hold files together. I need the third not only to be a hold file but to be saved in the same format for the next time we run the report. I cant seem to figure out how to do this and how to locate it. We are running this remotely on one of our mainframe subs. Here is some of the code. With the third hold file and the combination of them all.

JOIN CLEAR *
JOIN CFKEY WITH POLICYNUMBER IN LAXAPP1 TO MULTIPLE CFCODE IN LAXAPCF AS POCF
JOIN POCODE IN LAXAPP1 TO ALL COCODE IN LAXAPCO AS POCO

DEFINE FILE LAXAPP1
CFKEY/A15=' A'|POLICYNUMBER|'01';
SPDA/A6=BASICPLANCOD || BASICRATESCA;
PERIOD/A3='DEC';
END
TABLE FILE LAXAPP1
SUM
BASICPLANCOD AS 'BASIC,PLAN,CODE'
BASICRATESCA
RISSUEAGE AS 'AGE'
LST.CFCURAMOUNT AS 'CURRENT AMOUNT'
PERIOD
BY POLICYNUMBER
WHERE ( STATUSCODE IN ('1','2','3','4','P') ) AND ( CFNEXTDATE EQ '0000000' );
WHERE TRAILERNUMBE EQ 1;
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTDEC
END
TABLE FILE ANSRTJAN
PRINT
CFCURAMOUNT
PERIOD
BY POLICYNUMBER
BY BASICPLANCOD
BY BASICRATESCA
BY RISSUEAGE
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTALL
MORE
FILE ANSRTJUN
MORE
FILE ANSRTDEC
END

Any Help

[COLOR:RED]
-RUN
APP HOLD whereveryoucan[/COLOR]
TABLE FILE ANSRTJAN
PRINT
CFCURAMOUNT
PERIOD
BY POLICYNUMBER
BY BASICPLANCOD
BY BASICRATESCA
BY RISSUEAGE
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTALL
MORE
FILE ANSRTJUN
MORE
FILE ANSRTDEC
END

or choose an other way to save your hold file

(FILEDEF )

ITs telling me ANSRTDEC doesnt exist:

BY POLICYNUMBER
WHERE ( STATUSCODE IN ('1','2','3','4','P') ) AND ( CFNEXTDATE EQ '0000000' );
WHERE TRAILERNUMBE EQ 1;
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTDEC
END
APP ENABLE
APP HOLD ANSRTDEC
TABLE FILE ANSRTJAN
PRINT
CFCURAMOUNT
PERIOD
BY POLICYNUMBER
BY BASICPLANCOD
BY BASICRATESCA
BY RISSUEAGE
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTALL
MORE
FILE ANSRTJUN
MORE
FILE ANSRTDEC
END
SET ASNAMES = ON
SET BYDISPLAY = ON

quote:

ANSRTDEC

So, are you saying that this HOLD file is being created on the subserver and the others are being created on the hub?

If yes, try doing an PCHOLD instead of a HOLD.

Otherwise, I'm confused as to what you are trying to do.

APP ENABLE
APP HOLD theFOLDERnameUNDERapplicationsONTHEreportingSERVER

not the HOLD name of a temporary file...

They are all be created on the subserver. The thing is I need the third one to be permanently available on the sub when I run this report again.

quote:

Originally posted by GinnyJakes:

quote:

ANSRTDEC

So, are you saying that this HOLD file is being created on the subserver and the others are being created on the hub?

If yes, try doing an PCHOLD instead of a HOLD.

Otherwise, I'm confused as to what you are trying to do.

Do a DYNAM ALLOC in your mainframe focexec. This is like a FILEDEF only for MVS. It is a FOCUS command.

If you want to keep the file, you have to permanently store it using a permanent data set name. Otherwise it will be temp and disappear.

Hope this helps.

Ok I got the DYNAM ALLOC to work.

How do I call this file into a more statement.

Boy, you are sure making me dredge up some long-lost mainframe FOCUS knowledge.

Well, I'm not sure why MORE is not working. You'll have to give me more info on that.

So, let me offer an alternative. If the masters of ANSRTDEC, ANSRTJAN, and ANSRTJUN are the same, you can use a DYNAM CONCAT to put them together and not even use the MORE.

This is the latest report caster log of the run of the program. I just put the important parts in it. I would like the more statement to work.



SQL EDA SET SERVER QALSERVE
-REMOTE BEGIN
EX IA0033AN
-REMOTE END
SET BYDISPLAY = ON
DYNAM ALLOC FILE ANSRTTST DSNAME PIA.ANSRTDEC SHR REUSE

TABLE FILE ANSRTJAN (this file is a hold files)
PRINT
CFCURAMOUNT
PERIOD
BY POLICYNUMBER
BY BASICPLANCOD
BY BASICRATESCA
BY RISSUEAGE
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS ANSRTALL
MORE
FILE ANSRTJUN (this file is a hold file)
MORE
FILE ANSRTTST (This dynam file it is the same as the others)
END

Task error: THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: ANSRTTST
No report to distribute.

Well, now it can't find the master file description.

When you start this program, does the master for ANSRTTST already exist? And does it exist in a permanent location pointed to by the MASTER DD?

If not, then you need to create a dummy version of the master and permanently save it. There are a number of ways to do this. The easiest would be to go back to the code that created the hold file in the first place and just hold the master in a permanent master directory/file using whatever technique you are comfortable with.

And now your are referencing a completely different file name in your post than previously, ANSRTTST vs. ANSRTDEC. Has the problem been the master all along as opposed to your fex not being able to find the file?

Boy, am I confused. Can you clear this up a bit?

Thanks.

The last code I posted is what would be the second program that would run after a have allocated the file dynamically. It needs to pick this file up and combine with the new hold files that are created in the second program.

I am struggling on how to make this holdmaster being that is on MVS.

Hope this helps

Dan