> -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[EMAIL PROTECTED] On Behalf Of Joe jeffries > Sent: Monday, January 28, 2008 2:02 PM > To: IBM-MAIN@BAMA.UA.EDU > Subject: VSAM Freespace - If no initial load??????? > > > Hi Folks, > > I've used VSAM for years and have a pretty good understanding > of the way > the CISZ and buffering need to be adjusted depending on the > method used to > access the file. > > Every file I've had to play with has always had an initial > load so enforcing > FSPC hasn't been a problem. I'm now working with an > application that doesn't > appear to do an initial load. These are Journal files that > are being used by an > application within a CICS region. As I'm not a CICS guy, I'm > told that these > files are dynamically allocated and, as they are using a > ring-of-files concept, > don't ever get an initial load. Each Journal file will be > active for 1 day, then > remain as archive until day 6 when they are emptied and > rotated round for use > on day 7. > > If this is the case (please jump in CICS guys if I've been > steered down a cul- > de-sac) how is it possible to enforce freespace? The file in > question is writing > 5000 records with 2000 of these records as inserts. Without > FSPC, I can't > control the CI/CA splits as well as I'd like. > > As always, pointing me towards the right manual will be just > as helpful as a > concise answer........ > > Thanks for any/all help, > > JJ
JJ, There is an option that you might be interested in. The program which does this "switching" can use the CICS function: EXEC CICS SET FILE(....) EMPTYREQ END-EXEC Just before it does the OPEN for the new journal dataset name. If the VSAM cluster is defined as REUSE, this will cause VSAM to "empty" the VSAM file and you are now looking as if you are in LOAD mode. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHA8A08/2.14 9 You'd see something in the code like: EXEC CICS SET FILE(ABC) CLOSED DISABLED END-EXEC EXEC CICS SET FILE(ABC) DSNAME(NEWDSN) END-EXEC EXEC CICS SET FILE(ABC) EMPTYREQ END-EXEC EXEC CICS SET FILE(ABC) OPEN ENABLED END-EXEC -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
