Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

JCL 1

Status
Not open for further replies.

claudeb

Programmer
Nov 23, 2000
140
CA
hi,
i have a vsam file that i want to duplicate with 2 bytes longer.
i copied it to a sam file, added the two bytes and now, want something similar to the first one.
i use this jcl, but for some reason, i have a
this message "INSUFFICIENT SUBALLOCATION DATA SPACE
** VSAM CATALOG RETURN CODE IS 156 - REASON CODE IS IGG0CLAU-0"
a copied the jcl i am using from the jcl that created the first file, changing the size of the record.
thanks for the help.
claudeb

my jcl for the second file is as follow:
-----------------------------
* $$ JOB JNM=DELDEF,DISP=D,CLASS=M,XDEST=NETALT,USER=CLAUDE
* $$ LST CLASS=B,FNO=F502,DEST=(NETALT,MALIKA),JSEP=1
// JOB DELDEF
// EXEC IDCAMS,SIZE=AUTO
. DEL (ING532.SP.CFHI4Y) -
. CL PRG -
. CAT(INGENIUM.VSAM.CAT.TEST INGTST ) -
. ;
. DEF CL(NAME(ING532.SP.CFHI4Y) -
. TO(99365) BUFSP(010752) -
. NRUS -
. ) -
. IX(NAME(ING532.SP.CFHI4Y.INDEX) -
. TRK(00000005 00000001) USCL(0 ) -
. CISZ(02560 ) SHR(3 3) -
. ) -
. DATA(NAME(ING532.SP.CFHI4Y.DATA) -
. SPEED FSPC(020 010)KEYS(037 00000) -
. CYL(00001000 00000100) USCL(0 ) -
. CISZ(04096 ) SHR(3 3) RECSZ(00302 00515) -
. ) -
. CAT(INGENIUM.VSAM.CAT.TEST INGTST ) -
. ;
.
/*
/&
* $$ EOJ
-------------------------------
FIRST FILE
------------------------------
DATA Allocation ASMWK1 3390 TRKS
Prim/Secnd Alloc 15002/1508
Active Extents 1
Control Interval 4096
Avge/Max RECSZ 300/513
Records Total 450827
Deleted 0
Inserted 0
Updated 0
Accessed 5538905
Data EXCPS 102654
CI/CA Freespace 20/10
CI-splits/ % inserts 0/0
CA-splits/ % inserts 0/0
---------
INDEX Allocation DOSRES 3390 TRKS
Prim/Secnd Alloc 5/1
Active Extents 25
Control Interval 2560
KEY Length/Posn 37/0
Total records 545
Index levels 3
Index EXCPS 11533
Option NOIMBED
Option NOREPLICATE

Shareoption (3 3)
High-used-RBA 327.3M
High-alloc RBA 703.3M
-----
 
My JCL looks different, but try using...
// OPTION LOG
between the JOB and EXEC lines to get the warnings or details after running the JCL
==================
learning & sharing
 
Hi Claude,

Just an educated guess, but it looks like you have a catalog problem. Do you have access to a messages & codes manual? Have you looked up the 156 code? It may give you some insight into the cause of the problem. Does the job write data to the new VSAM file before you get that msg? If so, what does the catlist show for the 2nd file?

On the other hand, your index numbers seem kind of high compared to the data numbers, e.g. extents: 25 vs 1.
You might try bumping your index alloc to 1,1 cyls.

Hope this helps. Jack.
P.S. What kind of environment are you running in, e.g. business vs academic, hardware, software, etc.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top