Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to use skeleton in calling and called program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Vkp321

New User


Joined: 05 Jan 2009
Posts: 35
Location: Pune

PostPosted: Mon Jul 26, 2010 6:18 pm    Post subject: how to use skeleton in calling and called program
Reply with quote

I have requirement to use skeleton in my calling program and called program as well.. it is working fine first time but second time member i am getting as blank.. here is the flow

Program A
"ISPEXEC LIBDEF ISPSLIB DATASET ID('ADCXSNS.JCL.AUTO.SKLTON.VAR3')"
"ISPEXEC LIBDEF ISPFILE DATASET ID('ADCXSNS.TEST.JCL')"

"ISPEXEC FTOPEN"
"ISPEXEC FTINCL "SKELETON""
"ISPEXEC FTINCL "SITEID""
"ISPEXEC FTCLOSE NAME("TJCL")"

call B

"ISPEXEC LIBDEF ISPSLIB"
EXIT 0


program B

"ISPEXEC FTOPEN"
"ISPEXEC FTINCL GDGBLD"
"ISPEXEC FTINCL EXECGDG"
"ISPEXEC FTCLOSE NAME(EXECGDG)"
ADDRESS TSO
"SUBMIT 'ADCXSNS.TEST.JCL(EXECGDG)'"

return

Maybe open and close has some error.. but could not able to resolve
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: Mon Jul 26, 2010 6:27 pm    Post subject:
Reply with quote

I do not use LIBDEF for ISPFILE, just the standard ALLOCATE and FREE commands.

Have you tried that
Back to top
View user's profile Send private message
Vkp321

New User


Joined: 05 Jan 2009
Posts: 35
Location: Pune

PostPosted: Mon Jul 26, 2010 7:03 pm    Post subject:
Reply with quote

Thanks, it is working fine using ALOC. Can we use different ISPFILE pds for different program.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2431
Location: Netherlands, Amstelveen

PostPosted: Mon Jul 26, 2010 7:03 pm    Post subject:
Reply with quote

What members do 'ADCXSNS.TEST.JCL' contain?
I only do see you execute a submit for the second created member.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Calling procedure with multiple entri... steve-myers PL/I & Assembler 5 Fri Jan 27, 2017 3:33 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us