Answer Posted / rudolf m. aquino

Good day, I'm also encountered error same with u, the first
thing that i do is, I deletes and recreates cics csd, and
increase the recordsize.
see sample jcl

//TSDRMACA JOB (ACCTNUM,JELLOPEE),'RUDOLF.',
// NOTIFY=TSDRMA,
// CLASS=4,MSGCLASS=X,MSGLEVEL=(1,1)
//*
//*********************************
//* *
//* THE JOB DELETES AND RECREATES *
//* CICS CSD *
//*********************************
//*
//DELCSD EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE CICS410D.DFHCSD.DEVTDB2.CLEAN
SET MAXCC=0
/*
//DEFCSD EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DDSYSOUT=*
//SYSIN DD *
DEF CLUSTER(NAME(CICS410D.DFHCSD.DEVTDB2.CLEAN) -
IXD -
REC(400000) -
RECORDSIZE(100 500)-
FREESPACE(5 5)-
SHR(2)-
VOLUMES(UCP337)) -
DATA(NAME(CICS410D.DFHCSD.DEVTDB2.CLEAN.DATA) -
UNIQUE -
KEYS(22 0))-
INDEX(NAME(CICS410D.DFHCSD.DEVTDB2.CLEAN.INDEX) -
UNIQUE)
/* THE CSD IS NOW READY TO BE INITIALIZED BY PGM=DFHCSDUP
*/
/*
//*
//INITCSD EXEC PGM=DFHCSDUP,REGION=1M,COND(0,LT,DEFCSD)
//*
//* INITIALIZE THE CSD
//*
//STEPLIB DD DSN=CICS410D.SDFHLOAD,DISP=SHR
//DFHCSD DD DSN=CICS410D.DFHCSD.DEVTDB2.CLEAN,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,100))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INITIALIZE
* *----------------------------------------*
* * RETURN CODE 0 IS EXPECTED HERE *
* *----------------------------------------*
/*
//*
//


********** after recreates go to ceda and define file
again in the fct(file control table).
e mail me again.


thanks
Rudolf m. Aquino
UNITED COCONUT PLANTERS BANK
PHILIPPINES
(SYSTEMS MAINFRAME PROGRAMMER)

Define the term function request shipping?

581

---

Explain the difference between a return with transid and xctl? For example program. A is issuing return with transid to program b. Program a. Is isssuing xctl to program b?

611

---

If we say that bms length of field = 0, then what does that mean?

735

---

What is frset?

572

---

How can you access esds files from cics?

591

---

---

Db2 what is the difference between a package and a plan. How does one bind 2 versions of a cics transaction with the same module name in two different cicsregions that share the same db2 subsystem?

652

---

which cics service transaction is used to gain accessibility to cics control tables? Mention the one that has the highest priority.?

702

---

What are the classifications of the cics program?

629

---

What is the type of ppt in the cics?

580

---

What does a cics translator do?

962

---

Explain the function of the load command?

589

---

Can you define temporary storage?

691

---

What is the tcp in the cisc?

594

---

Define task work area?

877

---

Name the command which is used to release a record on which exclusive control is gained?

579

---