having trouble with this code



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

having trouble with this code

Postby agasi » Thu Dec 03, 2009 4:32 pm

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 ********************************                                                   

agasi
 
Posts: 1
Joined: Thu Dec 03, 2009 4:25 pm
Has thanked: 0 time
Been thanked: 0 time

Re: having trouble with this code

Postby MrSpock » Thu Dec 03, 2009 5:00 pm

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.
User avatar
MrSpock
Global moderator
 
Posts: 807
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 4 times

Re: having trouble with this code

Postby kalyanbrata.dhar » Tue Dec 15, 2009 10:30 am

Change last couple of lines

//SYSTSIN DD *
%RUNME09
/*
// ELSE
// ENDIF
//
kalyanbrata.dhar
 
Posts: 12
Joined: Wed Jul 09, 2008 3:15 pm
Has thanked: 0 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post