December 12, 2007, 10:22 AM
moyer1dlHold Files
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
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7
December 12, 2007, 10:33 AM
FrankDutch
[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 )
|
Frank |
| prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
December 12, 2007, 11:20 AM
moyer1dlITs 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
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7
December 12, 2007, 11:27 AM
GinnyJakesquote:
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.
Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
December 12, 2007, 11:29 AM
Tom FlynnAPP ENABLE
APP HOLD theFOLDERnameUNDERapplicationsONTHEreportingSERVER
not the HOLD name of a temporary file...
Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
December 12, 2007, 11:36 AM
moyer1dlThey 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.
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7
December 12, 2007, 12:06 PM
GinnyJakesDo 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.
Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
December 12, 2007, 03:38 PM
moyer1dlOk I got the DYNAM ALLOC to work.
How do I call this file into a more statement.
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7
December 12, 2007, 04:19 PM
GinnyJakesBoy, 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.
Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
December 13, 2007, 09:39 AM
moyer1dlThis 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.
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7
December 13, 2007, 10:12 AM
GinnyJakesWell, 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.
Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google
December 13, 2007, 10:29 AM
moyer1dlThe 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
IBM Main Frame: MVS, FIX, VSAM
Windows SQL
WF 7.7