FTINCL and RC=20



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

FTINCL and RC=20

Postby samb01 » Tue Jan 08, 2013 10:21 pm

Hello,

i am trying to run FTINCL but i have this error :

  /* LANCEMENT DU JCL */                                           
  ADDRESS ISPEXEC                                                 
  "FTOPEN TEMP"                                                   
    "FTOPEN TEMP"                                                 
  "FTINCL NCUSTJCL"                                               
    "FTINCL NCUSTJCL"                                             
 RC(20) +++                                                       



And i can't anderstand why.

I have created the skeletton : NCUSTJCL in the PDS.

And my jcl is

//MOVMBRA  EXEC PGM=IKJEFT1A,DYNAMNBR=100,REGION=4M             
//SYSTSIN  DD  *                                                 
PROFILE NOPREFIX                                                 
ISPSTART CMD(%REXSUB01)                                         
//SYSPROC  DD DSN=&PREFISP..V1R12M0.SISPCLIB,DISP=SHR           
//SYSEXEC  DD  DISP=SHR,DSN=&REXXLB                             
//SYSTSPRT DD  SYSOUT=*                                         
//ISPLOG   DD  DUMMY                                             
//ISPPROF  DD  DSN=&&PROF,DISP=(NEW,PASS),                       
//     DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),                     
//     SPACE=(TRK,(2,1,2)),UNIT=VIO                             
//ISPMLIB  DD  DSN=&PREFISP..V1R12M0.SISPMENU,DISP=SHR           
//ISPSLIB  DD  DSN=&PREFISP..V1R12M0.SISPSENU,DISP=SHR           
//ISPPLIB  DD  DSN=&PREFISP..V1R12M0.SISPPENU,DISP=SHR           
//ISPTLIB  DD  DSN=&PREFISP..V1R12M0.SISPTENU,DISP=SHR           
//SYSTSPRT DD  SYSOUT=*                                         
//SYSTERM  DD  SYSOUT=*                                         
//SYSABEND DD  SYSOUT=*                                         
//ISPLOG DD SYSOUT=*,                                           
// LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB                     





Thanks for your help.
samb01
 
Posts: 236
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: FTINCL and RC=20

 

Re: FTINCL and RC=20

Postby Akatsukami » Tue Jan 08, 2013 10:30 pm

Are you LIBDEFing the skeleton library in your exec? If so, please a trace of the execution of that statement, and a dozen or so previous to it.
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1053
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times

Re: FTINCL and RC=20

Postby Pedro » Wed Jan 09, 2013 12:23 am

Please show us the actual skeleton.

Are you sure the skeleton name is spelled correctly.
Pedro Vera
User avatar
Pedro
 
Posts: 569
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 39 times

Re: FTINCL and RC=20

Postby samb01 » Wed Jan 09, 2013 1:03 pm

Hello, i'm sur it's the correct name.

Could you explain me how to LIBDEF the skeleton ?

Thanks for your help.
samb01
 
Posts: 236
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: FTINCL and RC=20

Postby enrico-sorichetti » Wed Jan 09, 2013 1:05 pm

what does the manual say about an FTINCL RC 20 ?

for a quick explanation You can use the MODEL command
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: FTINCL and RC=20

Postby samb01 » Wed Jan 09, 2013 1:57 pm

20
Severe error...
samb01
 
Posts: 236
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: FTINCL and RC=20

Postby enrico-sorichetti » Wed Jan 09, 2013 2:16 pm

since it is a <BATCH> excution no need to LIBDEF ;)
just add the user datasets to the appropriate DD concatenation
in this case
//ISPSLIB  DD  DSN=&PREFISP..V1R12M0.SISPSENU,DISP=SHR 
//         DD  DISP=SHR,DSN=>your skel library> 
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: FTINCL and RC=20

Postby samb01 » Wed Jan 09, 2013 2:26 pm

hello,

i put off the libdef et add the pds like it :

//IGABGA  EXEC PGM=IKJEFT01,DYNAMNBR=100,REGION=4M             
//SYSTSIN  DD  *                                               
PROFILE NOPREFIX                                               
ISPSTART CMD(%REXJCLA)                                         
//SYSPROC  DD DSN=&PREFISP..V1R12M0.SISPCLIB,DISP=SHR           
//SYSEXEC  DD  DISP=SHR,DSN=&REXXLB                             
//SYSTSPRT DD  SYSOUT=*                                         
//ISPPROF  DD  DSN=&&PROF,DISP=(NEW,PASS),                     
//     DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),                   
//     SPACE=(TRK,(2,1,2)),UNIT=VIO                             
//ISPMLIB  DD  DSN=&PREFISP..V1R12M0.SISPMENU,DISP=SHR         
//ISPSLIB  DD  DSN=&PREFISP..V1R12M0.SISPSENU,DISP=SHR         
//         DD  DSN=CFAL.SKELS,DISP=SHR                         
//ISPPLIB  DD  DSN=&PREFISP..V1R12M0.SISPPENU,DISP=SHR         
//ISPTLIB  DD  DSN=&PREFISP..V1R12M0.SISPTENU,DISP=SHR         
//SYSTSPRT DD  SYSOUT=*                                         
//SYSTERM  DD  SYSOUT=*                                         
//SYSABEND DD  SYSOUT=*                                         
//ISPLOG DD SYSOUT=*,                                           
// LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB                     



But i still have the error message :

30 *-*  ADDRESS ISPEXEC                               
31 *-*  "FTOPEN TEMP"                                 
   >L>    "FTOPEN TEMP"                               
32 *-*  "FTINCL NCUSTJCL"                             
   >L>    "FTINCL NCUSTJCL"                           
   +++ RC(20) +++                                     


09:51   Start of ISPF Log - - -  - Session £ 1 --------------------------
09:51      TSO     - Command  -  - %REXJCLA1                             
09:51    End of ISPF Log - - - - - Session £ 1 --------------------------


samb01
 
Posts: 236
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: FTINCL and RC=20

Postby samb01 » Wed Jan 09, 2013 2:48 pm

when i try a simple skeletton jcl, it works...

I think there is a problem in the skeleton jcl :

***************************** Top of Data ******************************
//BNHETJCL JOB MSGCLASS=X,REGION=5000K,                                 
//    CLASS=O,NOTIFY=&ZUSER                                             
//VISPF   SET VISPF='V1R12M0'                                           
//PREFISP SET PREFISP='ISP'                                             
//REXX    SET REXX='BTPP.REXX'                                         
//*----------------------------------------------------------------     
//* ON VIDE LES BIBLIOTHEQUES DE TRAVIL                                 
//*----------------------------------------------------------------     
//VIDE01   EXEC PGM=NJTPC                                               
//CAPAC    DD DISP=OLD,DSN=JKUP.BTPP.CUSTJCL.JCL1                       
//*-------------------------------------------                         
//VIDE02   EXEC PGM=NJTP                                               
//CAPAC    DD DISP=OLD,DSN=JKUP.BTPP.CUSTJCL.JCL2                       
//*-------------------------------------------                         
//VIDE05   EXEC PGM=HJBNPT                                             
//OUT      DD DISP=OLD,DSN=JKUP.BTPP.CUSTJCL.IEHLIST                   
//*-------------------------------------------                         
//VIDE07   EXEC PGM=HJBNPT                                             
//OUT      DD DISP=OLD,DSN=JKUP.BTPP.CUSTJCL.SELECT                     
//*------------------------------------------                           
//*------------------------------------------                           
//COPIE    EXEC PGM=IEBCOPY                                             
//SYSPRINT DD SYSOUT=*                                                 
//*IN    DD DISP=SHR,DSN=JKUP.USINEVAL.JCL.ENVD                         
//IN    DD DISP=SHR,DSN=&BIBS                                           
//OUT   DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.JCL1                         
//SYSIN DD *                                                           
  COPY INDD=((IN,R)),OUTDD=OUT                                         
/*                                                                     
//         EXEC PGM=SYS087,COND=(0,EQ,COPIE)                           
//*                                                                     
//**********************************************************************
//**********************************************************************
//LISTMBR  EXEC PGM=IKJEFT1A,DYNAMNBR=100,REGION=4M                     
//SYSTSIN  DD  *                                                       
PROFILE NOPREFIX                                                       
ISPSTART CMD(%VBGTMBR)                                                 
//SYSPROC  DD DSN=&PREFISP..&VISPF..SISPCLIB,DISP=SHR                   
//SYSEXEC  DD  DISP=SHR,DSN=&REXX                                       
//SYSTSPRT DD  SYSOUT=*                                                 
//ISPLOG   DD  DUMMY                                                   
//ISPPROF  DD  DSN=&&PROF,DISP=(NEW,PASS),                             
//     DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB),                           
//     SPACE=(TRK,(2,1,2)),UNIT=VIO                                     
//ISPMLIB  DD DSN=&PREFISP..&VISPF..SISPMENU,DISP=SHR                   
//ISPSLIB  DD DSN=&PREFISP..&VISPF..SISPSENU,DISP=SHR                   
//ISPPLIB  DD DSN=&PREFISP..&VISPF..SISPPENU,DISP=SHR                   
//ISPTLIB  DD DSN=&PREFISP..&VISPF..SISPTENU,DISP=SHR                   
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTERM  DD SYSOUT=*                                                 
//SYSABEND DD SYSOUT=*                                                 
//ISPLOG   DD SYSOUT=*,                                                 
//   LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB                           
//* DDNAME1 : NOM DU PDS DANS POUR EXTRACTION LISTE DES MEMBRES         
//DDNAM1   DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.JCL1                       
//* DDNAME2 : FICHIER SEQUENTIEL DANS LEQUEL ON MET LE RESULTAT         
//DDNAM2   DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.IEHLIST                   
//*----------------------------------------------------------           
//* GENERATION DU FICHIER SYSIN DES SELECT MEMBER=((NAME,NEWNAME,R))   
//*----------------------------------------------------------           
//* CUSTOM :                                                           
//* CHANGER § LA LETTRE DANS L ARGUMENT ==> PREMIERE LETTRE DU JCL     
//*********************************************************************
//SELECTE  EXEC PGM=IKJEFT1A,DYNAMNBR=100,REGION=4M                     
//    INCLUDE MEMBER=ISPXLIB                                           
//SYSTSIN  DD *                                                         
PROFILE NOPREFIX                                                       
ISPSTART CMD(%GRTB &PREF)                                               
//DDIN     DD DSN=JKUP.BTPP.CUSTJCL.IEHLIST,DISP=SHR                   
//* FICHIER CONTENANT LA LISTE DES SELECT MEMBER=((NAME,NEWNAME,R))     
//DDOU     DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.SELECT                     
//*                                                                     
//*---------------------------------------------------                 
//*---------------------------------------------------                 
//*                                                                     
//BTPPE    EXEC PGM=IEBCOPY                                             
//SYSPRINT DD SYSOUT=*                                                 
//IN    DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.JCL1                         
//OUT   DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.JCL2                         
//SYSIN DD DISP=SHR,DSN=BTPP.PARAM(COPYM)                               
//      DD DISP=SHR,DSN=JKUP.BTPP.CUSTJCL.SELECT                       
//*                                                                     
//*---------------------------------------------------                 
//     EXEC PGM=SYS087,COND=(4,NE,BTPPE)                               
//*-----------------------------------------------------------------   
//*-----------------------------------------------------------------   
//CHNGE    EXEC PGM=IKJEFT1A,DYNAMNBR=100,REGION=4M                     
//    INCLUDE MEMBER=ISPXLIB                                           
//SYSTSIN  DD  *                                                       
PROFILE NOPREFIX                                                       
ISPSTART CMD(%BNHTPCLX)                                                 
//PARAM    DD DSN=BTPP.JKUP.PARAM.V201.NEWNORM(BGHMUN),DISP=SHR         
//         DD DSN=BTPP.JKUP.PARAM.V201.NEWNORM(&ENVIR),DISP=SHR         
//DDNAM1   DD DSN=JKUP.BTPP.CUSTJCL.JCL2,DISP=SHR                       
//*                                                                     
//*--------------------------------------------                         
//*--------------------------------------------                         
//*                                                                     
//FINAL  EXEC PGM=IEBCOPY                                               
//SYSPRINT DD SYSOUT=*                                                 
//IN    DD DISP=SHR,DSN=BTPP.CUSTJCL.JCL2                               
//OUT   DD DISP=SHR,DSN=BTPP.TWS.C.GH       BIB CIBLE                   
//SYSIN DD DISP=SHR,DSN=BTPP.PARAM(COPYM)   REPLACE                     
//*                                                                     
**************************** Bottom of Data ****************************



but where...
samb01
 
Posts: 236
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: FTINCL and RC=20

Postby enrico-sorichetti » Wed Jan 09, 2013 3:08 pm

look at line 5921 of You skel :mrgreen:
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Next

Return to TSO & ISPF