how to use skeleton in calling and called program

Vkp321 · New User Joined: 05 Jan 2009 Posts: 56 Location: Dublin

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

expat · Posted: Mon Jul 26, 2010 6:27 pm

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

Have you tried that

Vkp321 · New User Joined: 05 Jan 2009 Posts: 56 Location: Dublin

Thanks, it is working fine using ALOC. Can we use different ISPFILE pds for different program.

PeterHolland · Posted: Mon Jul 26, 2010 7:03 pm

What members do 'ADCXSNS.TEST.JCL' contain?
I only do see you execute a submit for the second created member.