Page 1 of 1

having trouble with this code

PostPosted: Thu Dec 03, 2009 4:32 pm
by agasi
hi, I'm a beginner in JCL and i can't figure out what is the problem with this code... :x the system automatcly generate this statement //SYSIN DD * and the error seens to be on that thing

                                       
//STEP1    EXEC PGM=IEBGENER                                           
//SYSPRINT DD SYSOUT=H                                                 
//SYSIN    DD DUMMY                                                     
//SYSUT1   DD DSN=ZOS.CONTEST.REXX(IEBGENER),DISP=SHR                   
//SYSUT2   DD DSN=USERID.USERID.ZOS.PART2(OUTPUT),DISP=SHR           
// IF RC=0 THEN                                                         
//STEP2 EXEC PGM=IKJEFT1A,DYNAMNBR=200                                 
//SYSEXEC  DD DSN=ZOS.CONTEST.REXX,DISP=SHR                             
//SYSPRINT DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSIN  DD *                                                         
// ELSE                                                                 
// ENDIF
%RUNME09   
/*         
//                                                                         



the output is this
                                                                               
10.59.58 JOB00353 ---- THURSDAY,  03 DEC 2009 ----                             
10.59.58 JOB00353  IRR010I  USERID UK00030  IS ASSIGNED TO THIS JOB.           
10.59.58 JOB00353  IEFC452I JCLTEST - JOB NOT RUN - JCL ERROR  743             
------ JES2 JOB STATISTICS ------                                               
           17 CARDS READ                                                       
           31 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
            2 SYSOUT SPOOL KBYTES                                               
         0.00 MINUTES EXECUTION TIME                                           
        1 //JCLTEST  JOB (12345678),'STUDENT NAME',MSGLEVEL=(1,1),CLASS=A,     
          // NOTIFY=&SYSUID,MSGCLASS=H                                         
          IEFC653I SUBSTITUTION JCL - (12345678),'STUDENT NAME',MSGLEVEL=(1,1),C
        2 //STEP1    EXEC PGM=IEBGENER                                         
        3 //SYSPRINT DD SYSOUT=H                                               
        4 //SYSIN    DD DUMMY
        5 //SYSUT1   DD DSN=ZOS.CONTEST.REXX(IEBGENER),DISP=SHR                 
        6 //SYSUT2   DD DSN='USERID.USERID.ZOS.PART2(OUTPUT)',DISP=SHR         
        7 // IF RC=0 THEN                                                       
        8 //STEP2 EXEC PGM=IKJEFT1A,DYNAMNBR=200                               
        9 //SYSEXEC  DD DSN=ZOS.CONTEST.REXX,DISP=SHR                           
       10 //SYSPRINT DD SYSOUT=*                                               
       11 //SYSTSPRT DD SYSOUT=*                                               
       12 //SYSTSIN  DD *                                                       
       13 // ELSE                                                               
       14 // ENDIF                                                             
       15 //SYSIN     DD *               GENERATED STATEMENT                   
 STMT NO. MESSAGE                                                               
       15 IEFC019I MISPLACED DD STATEMENT                                       
******************************** BOTTOM OF DATA ********************************                                                   


Re: having trouble with this code

PostPosted: Thu Dec 03, 2009 5:00 pm
by MrSpock
Why did you code //SYSTSIN and then not immediately follow it with the data? I see the input data:

%RUNME09

sitting by itself after other JCL records.

Re: having trouble with this code

PostPosted: Tue Dec 15, 2009 10:30 am
by kalyanbrata.dhar
Change last couple of lines

//SYSTSIN DD *
%RUNME09
/*
// ELSE
// ENDIF
//