Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Updated CLIST is not being picked up by the program.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
pravin madoori

New User


Joined: 29 Jan 2007
Posts: 25
Location: Hyderabad

PostPosted: Thu Aug 20, 2009 10:51 am    Post subject: Updated CLIST is not being picked up by the program.
Reply with quote

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?/
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Aug 20, 2009 11:39 am    Post subject:
Reply with quote

Is it called by the program from the same library that you updated it in ?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us