IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to add comments in SYSTSIN * and execute uncomment ones


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Thu Apr 29, 2010 2:30 am
Reply with quote

Hi,

I have a JCL like the below one...
Code:
//TEST     EXEC PGM=IKJEFT01                                         
//SYSTSPRT DD SYSOUT=*                                               
//SYSPRINT DD SYSOUT=*                                               
//SYSABEND DD SYSOUT=*                                               
//SYSUDUMP DD SYSOUT=*                                               
//SYSMDUMP DD SYSOUT=*                                               
//SYSTSIN  DD *                                                       
DSN SYSTEM(DB2D)                                                     
-DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)                         
END                                                                   
//*---------------------------------------------NEED TO COMMENT HERE 
DSN SYSTEM(DB2M)                                                     
-DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)                         
END                                                                   
//*---------------------------------------------NEED TO COMMENT HERE 
DSN SYSTEM(DB2Q)                                                     
-DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)                         
END                                                                   
/*                                                                   

When i executed it, i am able to see only the results of below command,not the other two.
Code:
DSN SYSTEM(DB2D)                                                     
-DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)                         
END                                                                   

In JESJCL output is like below,
Code:
      //****************************************************************   
    2 //TEST     EXEC PGM=IKJEFT01                                         
    3 //SYSTSPRT DD SYSOUT=*                                               
    4 //SYSPRINT DD SYSOUT=*                                               
    5 //SYSABEND DD SYSOUT=*                                               
    6 //SYSUDUMP DD SYSOUT=*                                               
    7 //SYSMDUMP DD SYSOUT=*                                               
    8 //SYSTSIN  DD *                                                       
      //*---------------------------------------------NEED TO COMMENT HERE 
    9 //SYSIN     DD *               GENERATED STATEMENT                   
      //*---------------------------------------------NEED TO COMMENT HERE 
   10 //SYSIN     DD *               GENERATED STATEMENT                   


Can you please tell me how comment particular lines in SYSTSIN...

Thank You,
Sushanth
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Apr 29, 2010 3:47 am
Reply with quote

only a guess, can't find it in the manual, though the manual says
SYSTSIN consists of
  • comments
  • commands
  • subcommands


try the same as a db2 comment in spufi -- (two hypens)

the // in cols 1 & 2 are jes command indicators and as such,
delimit your instream SYSTSIN data.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 29, 2010 5:18 am
Reply with quote

I would try a /* */ starting in column 2 or later, ending by column 71.
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Thu Apr 29, 2010 5:59 am
Reply with quote

Thank You Very Much Dino & Robert.

/* */ Works
Code:
//TEST     EXEC PGM=IKJEFT01                                           
//SYSTSPRT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSABEND DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSMDUMP DD SYSOUT=*                                                 
//SYSTSIN  DD *                                                         
 /* --   DSN SYSTEM(DB2M)                                            */
 /* --    -DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)              */
 /*--    END                                                         */
                                                                       
 /*      DSN SYSTEM(DB2M)                                               
                                                                       
       DSN SYSTEM(DB2D)                                                 
       -DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)                   
       END                                                             

Also i found that, i don't get any error messages if i leave */
Code:
READY                                                                   
 /* --   DSN SYSTEM(DB2M)                                            */
READY                                                                   
 /* --    -DISPLAY DATABASE(BOBT1) SPACENAM(*) LIMIT(*)              */
READY                                                                   
 /*--    END                                                         */
READY                                                                   
READY                                                                   
 /*      DSN SYSTEM(DB2M)                                               
READY                                                                   

Can you tell me the link where i can find info regarding SYSTSIN

Sushanth
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 29, 2010 6:20 am
Reply with quote

Check the TSO manual. Actually, the DD name SYSTSIN is, by itself, almost meaningless. What is important is that you are executing IKJEFT01, which is the main TSO program. So the DD names and options are going to be found in the TSO manuals.
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Thu Apr 29, 2010 6:32 am
Reply with quote

Found It... Thank You Robert.




Sushanth
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Fetch data from programs execute (dat... DB2 3
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
No new posts Evaluate variable to execute a jcl step JCL & VSAM 3
No new posts Execute REXX on logon with ISPF CLIST & REXX 3
Search our Forums:

Back to Top