Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To write a Job card using CLIST

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Tue Jul 31, 2007 3:48 pm    Post subject: To write a Job card using CLIST
Reply with quote

Hi All,
i want to write a CLIST Macro which will give the jobcard in a JCL.

lets say if i will type JC then it will write the JOBCARD inside that JCL.

Can anyone please help me?

Thanks,
Rakesh.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jul 31, 2007 4:45 pm    Post subject:
Reply with quote

You will need to create an ISPF edit macro to do that, and also make sure that it is concatenated into SYSEXEC or SYSPROC of your session to be able to execute it in the way that you want to.
Back to top
View user's profile Send private message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Tue Jul 31, 2007 4:48 pm    Post subject: Re: To write a Job card using REXX
Reply with quote

Yes i know that,
but i want the sample code for that.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jul 31, 2007 7:08 pm    Post subject:
Reply with quote

Hello,

If
Quote:
Yes i know that


then write some code and post here when it abends or you have questions.

One of the main concepts behind the forums is that we provide assistance to help people learn or solve problems - not do their work.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jul 31, 2007 9:56 pm    Post subject: Re: To write a Job card using REXX
Reply with quote

rakesh pattanayak wrote:
Yes i know that,
but i want the sample code for that.


1) What have you tried yourself, and what were the results

2) Sample code supplied upon receipt of payment - current contract rate.
Back to top
View user's profile Send private message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Wed Aug 01, 2007 5:34 pm    Post subject:
Reply with quote

ISREDIT MACRO
SET SYSMSG=OFF
ISREDIT (SRCLIB) = DATASET
SET SRC = &STR(')&SRCLIB&STR(')
SET LINE = 0
SET OUTSTR = &STR(+
//&SYSUID.J JOB ,,NOTIFY=&&SYSUID,CLASS=D,MSGLEVEL=(1,1),MSGCLASS=X)
ISREDIT LINE_AFTER &LINE = (OUTSTR)
SET LINE = &LINE + 1


this is the code i wrote and when running it is giving me the following error

IKJ56621I INVALID COMMAND NAME SYNTAX
3 *-* SET SYSMSG=OFF
+++ RC(-3) +++
IKJ56621I INVALID COMMAND NAME SYNTAX
4 *-* ISREDIT (SRCLIB) = DATASET
+++ RC(-3) +++
5 +++ SET SRC = &STR(')&SRCLIB&STR(')
IRX0035I Error running JC, line 5: Invalid expression
***
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Aug 01, 2007 5:58 pm    Post subject:
Reply with quote

That looks more like CLIST code rather than REXX code.
Back to top
View user's profile Send private message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Wed Aug 01, 2007 6:02 pm    Post subject:
Reply with quote

YES THAT ONE IS CLIST CODE.

CAN ANYONE TELL ME WHY I AM GETTING THAT ERROR?
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Aug 01, 2007 6:48 pm    Post subject: Re: To write a Job card using CLIST
Reply with quote

Odd, that code worked just fine here (z/OS V1R7). If I didn't know better, I'd swear that the messages "+++ RC(-3) +++" are indicating that ISPF Services aren't available.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Aug 01, 2007 8:24 pm    Post subject:
Reply with quote

Hello,

What is on your screen when you execute your code that abends?

Are you in an ISPF session or are you possibly running from a native tso session?
Back to top
View user's profile Send private message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Wed Aug 01, 2007 8:32 pm    Post subject:
Reply with quote

i think i am in ISPF.i am not sure about this .
Code:
                            ISPF Primary Option Menu                           
  Option ===>                                                                   
                                                                               
 0  Settings      Terminal and user parameters            User ID . : T6327RP   
 1  View          Display source data or listings         Time. . . : 10:56     
 2  Edit          Create or change source data            Terminal. : 3278     
 3  Utilities     Perform utility functions               Screen. . : 1         
 4  Foreground    Interactive language processing         Language. : ENGLISH   
 5  Batch         Submit job for language processing      Appl ID . : ISR       
 6  Command       Enter TSO or Workstation commands       TSO logon : TSOUSER   
 7  Dialog Test   Perform dialog testing                  TSO prefix: T6327RP   
 8  LM Facility   LMF has been withdrawn by IBM          System ID : D10A     
 9  IBM Products  IBM program development products       MVS acct. : 0,1723   
 10 SCLM          SW Configuration Library Manager       Release . : ISPF 5.8 
 11 Workplace     ISPF Object/Action Workplace                               
 S  SDSF          System Display and Search Facility                           
 V  APPL Menu     Application development Tools Menu                           
                                                                               
    Site: DVDC-D10A  z/OS   01.08.00   PDF 5.8                                 
                                                                               
                                                                               
      Enter X to Terminate using log/list defaults                             
[/url]
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Aug 01, 2007 8:50 pm    Post subject:
Reply with quote

Hello,

Quote:
i think i am in ISPF
I think so too icon_smile.gif

Have you another/similar clist that works successfully from the same command area?
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Wed Aug 01, 2007 11:34 pm    Post subject:
Reply with quote

But you may not be in Kansas anymore. icon_smile.gif

What I do is create a jobcard in my JCL pds (I call it "J") and when I complete the rest of my JCL I copy J before the 1st line.

Simpler than a CLIST or Macro.
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Thu Aug 02, 2007 12:05 am    Post subject:
Reply with quote

I got the same error you got when I put it in my Rexx.Exec library (allocated to DD SYSEXEC). When I put it in my Clist library (concatenated to DD SYSPROC) it worked ok.

You must execute it when in ISPF edit on your JCL of course.
Back to top
View user's profile Send private message
rakesh pattanayak

New User


Joined: 29 May 2007
Posts: 16
Location: bangalore

PostPosted: Thu Aug 02, 2007 9:53 am    Post subject:
Reply with quote

Thanks a lot.
actually the code is a CLIST and all CLIST PDS we need to conactenate to SYSPROC


it worked for me.

Thanks a ton again.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts how to DYNAMICALLY write sort cond to... mohamedmubee COBOL Programming 13 Fri Aug 26, 2016 11:46 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us