Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Jcl building using REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
premkrishnan

Active User


Joined: 07 Sep 2006
Posts: 50
Location: Mars
PostPosted: Wed Apr 23, 2008 4:32 pm    Post subject: Jcl building using REXX
 Reply with quote
Hi,

I tried to build jcl using the following rexx

Code:

 /*REXX*/
 QUEUE " //"userid()" JOB 43312,'xxxxx', "
 QUEUE " //             CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),"
 QUEUE " //             NOTIFY="userid()
 QUEUE " //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS"
 QUEUE " //COBCL    EXEC IGYWCL,"
 QUEUE " //             PGMLIB=xxxx1.SIHAB.LOAD,"
 QUEUE " //             GOPGM=REMETOOL"
 QUEUE " //COBOL.SYSIN  DD DSN=xxxx.TPG.COBIN(REMETOOL),DISP=SHR"
 QUEUE " //*LKED.SYSLIB DD DSNAME=xxxx.LOAD.LIB1,DISP=SHR"
 QUEUE "/*"
 QUEUE "$$"
 O = OUTTRAP("OUTPUT.",,"CONCAT")
 "SUBMIT * end($$) "
 O=OUTTRAP(OFF)



But I am getting the error

Code:


********************************* TOP OF DATA *******************************
 STMT NO. MESSAGE
        2 IEFC019I MISPLACED DD STATEMENT
        2 IEFC607I JOB HAS NO STEPS
******************************** BOTTOM OF DATA ********************************




Can anyone make me understand what it is and what is the problem with my code?

Regds,
Prem
Back to top
View user's profile Send private message
References
PostPosted: Wed Apr 23, 2008 4:32 pm    Post subject: Re: Jcl building using REXX Reply with quote
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 2186
Location: Brussels once more ...
PostPosted: Wed Apr 23, 2008 4:35 pm    Post subject:
Reply with quote
Looks like a JCL syntax problem to me.

Why not use ISPF skeletons for JCL generation, much easier.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 1845
Location: italy
PostPosted: Wed Apr 23, 2008 4:36 pm    Post subject: Reply to: Jcl building using REXX
 Reply with quote
it looks like somebody is suffering of "blanks in the wrong place" blindness
Back to top
View user's profile Send private message
premkrishnan

Active User


Joined: 07 Sep 2006
Posts: 50
Location: Mars
PostPosted: Wed Apr 23, 2008 4:42 pm    Post subject:
Reply with quote
Thanks and I tried removing the extra space aftr queue its working fine.
My code looks later like this

Code:

 /*REXX*/
 QUEUE" //"userid()"b JOB 43312,'xxxxx', "
 QUEUE" //             CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),"
 QUEUE" //             NOTIFY="userid()
 QUEUE" //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS"
 QUEUE" //COBCL    EXEC IGYWCL,"
 QUEUE" //             PGMLIB=xxxx.prem.LOAD,"
 QUEUE" //             GOPGM=REMETOOL"
 QUEUE" //COBOL.SYSIN  DD DSN=xxxx.TPG.COBIN(REMETOOL),DISP=SHR"
 QUEUE" //*LKED.SYSLIB DD DSNAME=xxxx.LOAD.LIB1,DISP=SHR"
 QUEUE"/*"
 QUEUE"$$"
 O = OUTTRAP("OUTPUT.",,"CONCAT")
 "SUBMIT * end($$) "
 O=OUTTRAP(OFF)


Thanks enrico-sorichetti and expat.

Regds,
Prem
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1