pravin madoori
New User
Joined: 29 Jan 2007 Posts: 25 Location: Hyderabad
|
|
|
|
Hi
I have a PLI program which calls a CLIST. I had changed the CLIST but it has not picked up by the program, It is still giving same errors which were coming with old clist code.
The problem with old code:
PROC 0
CONTROL ASIS NOFLUSH NOMSG NOLIST NOCONLIST NOSYMLIST
WRITE EXECUTING COATZ96
/************************************************************
/* GET CONTROL VARS AND USER-ENTERED VARS FROM ISPF
/************************************************************
ISPEXEC VGET ( PLANID ) SHARED
ISPEXEC VGET ( ZCMD,
- - - - - - - - - - - - - - - 14 Line(s) not
MACSR10 ) SHARED
/************************************************************
/* DELETE DATASET FROM PREVIOUS REQUEST
/************************************************************
DELETE '&PLANID..USERONL.&ZUSER..COATZ95.HISTIN'
FREE ATTRLIST (DCB)
ATTRIB DCB BLKSIZE(25) RECFM(F) LRECL(25) DSORG(PS)
ALLOC FI(DATAOUT)
DA('&PLANID..USERONL.&ZUSER..COATZ95.HISTIN')
NEW
CATALOG
SP(1 1)
USING(DCB)
REUSE
OPENFILE DATAOUT OUTPUT
when above is executed I am getting below errors:
IGD17051I ALLOCATION FAILED FOR DATA SET
USERONL.PRAVINA.COATZ95.HISTIN
, PRIMARY SPACE EXCEEDS 65535 TRKS
The input or output file DATAOUT is not allocated. It cannot be opened for I/O.
EXECIO error while trying to GET or PUT a record.
New CLIST:
changed SP(1 1) to SP(1,1) Tracks but still same error.
So , i have removed everything from CLIST & just kept few WRITE lines... but still getting same above error.. I wonder why my updated CLIST is not in effect.
Program call CLIST like below:
COMMAND = 'CMD(%COATZ96)';
CALL ISPLINK('SELECT',LCOMMD, COMMAND);
please let me know,,what I need to do,,if my new clist code has to work?/ |
|