Rexx routine which will add the JOBCARD at the begining

EnjoyMF · New User Joined: 27 May 2005 Posts: 88

Hi All,

Can some one plz provide a rexx routine which will add the JOBCARD at the begining

In my application there is a tool which will generate the JCL automatica rexx procedure which will add the JOBCARD at the beginingclly without the jbocard then we need to add the JOBCARD manually at the begining

Can some one please help we with a REXX routine which will add the jobcard at the begining (some thing like when i open the dataset member and use the REXX routine the jobcard should add at the begining

Thanks n Regards
Prasad

expat · Posted: Thu Jun 07, 2007 12:29 pm

I usually use an edit macro which does that.

The member $JOBCARD is in the same JCL library as the member being edited - I do this in batch every time that I go to a new site.

And the code is

"ISREDIT COPY $JOBCARD BEFORE 1"

And using further edit commands tailor the jobcard to the standards and specifications of the site that I work at.

agkshirsagar · Posted: Thu Jun 07, 2007 6:18 pm

Save below in a member of your REXX lib. and just enter that member name while editing a JCL in which you want Jobcard to be entered. Customize it as per your site standards.

sivatechdrive · Posted: Fri Jun 08, 2007 6:38 pm

Hello agkshirsagar

Thanks for the details
but i don't have authoirizations to create a member in the REXX library
hence can i save the code in my own dataset member & execute it

Thanks n Regards
Prasad

expat · Posted: Fri Jun 08, 2007 6:49 pm

You can create and execute a REXX from your own library if you want to.

EnjoyMF · New User Joined: 27 May 2005 Posts: 88

Thanks for answering my query in REXX
I need some help from you.
As per our requirement we need to add the JOB Card at the begining of the dataset.The dataset 'UESR.NSW.CNTL(V3511MA8)' will not have the JOB card details and
I had written the REXX code in 'UESR.EM9090.RND(SIVA)' & it is a private library.

How to i execute the REXX routine such that the JOB CARD is appended at the begining

VIEW ,UESR.NSW.CNTL(V3511MA8) - 01.03 ,Spalten,00001,00072,
Befehl ===>, ,Bl{ttern ===>,CSR ,
******,**************************** Datenanfang *******************************
000001,//*********************************************************************
000002,//*
000003,//* IFRS TESTZYKLUS 5 : ULTIMO JUNI (-1) *
000004,//*
000005,//*********************************************************************
000006,//JOBLIB DD DISP=SHR,DSN=UESR.RUP.LOD
000007,// DD DISP=SHR,DSN=UESR.IFRS.LOD
000008,// DD DISP=SHR,DSN=UESR.KVS.LOD
000009,// DD DISP=SHR,DSN=UESR.NSW.LOD
000010,// DD DISP=SHR,DSN=DB3B.ANW.RUNLIB.LOAD

VIEW ,UESR.EM9090.RND(SIVA) - 01.00 ,Spalten,00001,000
Befehl ===>, ,Bl{ttern ===>,CS
******,**************************** Datenanfang ****************************
000100,/* REXX */
000200,ADDRESS ISREDIT
000300,'MACRO'
000400,"LINE_AFTER 0 = '//"USERID()"A JOB (,,,,),'"
000500,"LINE_AFTER 1 = '// XXXXX, '"
000600,"LINE_AFTER 2 = '// CLASS=V, '"
000700,"LINE_AFTER 3 = '// NOTIFY=XXXXXX, '"
000800,"LINE_AFTER 4 = '// MSGCLASS=X'"
000900,"LINE_AFTER 5 = '//* '"

Pandora-Box · Posted: Tue Jun 12, 2007 2:32 pm

expat · Posted: Tue Jun 12, 2007 2:36 pm

Your main REXX routine should contain something like

"ISPEXEC EDIT DATASET('dataset name') MACRO('macro name')"

Not 100% sure on the syntax as I don't have MF access until Monday 18th.

Pandora-Box · Posted: Tue Jun 12, 2007 2:41 pm

What is MACRO name here?

expat · Posted: Tue Jun 12, 2007 2:43 pm

Pandora-Box · Posted: Tue Jun 12, 2007 2:53 pm

I tried this given code

expat · Posted: Tue Jun 12, 2007 3:15 pm

Have a read of the fine manual ............

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZEM40/CCONTENTS?DT=20050712213335

Pandora-Box · Posted: Tue Jun 12, 2007 4:42 pm

Can you please explain me with a code?
No actually my question is why it is not entering a jobcard to my job?

expat · Posted: Tue Jun 12, 2007 4:57 pm

Why not post exactly what you have coded and then it will be much easier to see what is happening.

shreevamsi · Posted: Tue Jun 12, 2007 5:03 pm

hi,

in order to execute your rexx routines, you need to concatinate the PDS where your rexx routines reside with the system libraries..

Please type TSO ISRDDN to list down all your system libraries...

~Vamsi

Pandora-Box · Posted: Tue Jun 12, 2007 5:07 pm

This is my modified code

expat · Posted: Tue Jun 12, 2007 5:13 pm

shreevamsi · Posted: Tue Jun 12, 2007 5:17 pm

that what i was trying to explain!!
u got a message that command not found!!
This is because your TSO Session couldn't locate your REXX macro to add joobcard. U need to concatenate your 'PREM.REXX' library with the system libraries where all other rexx utilities resides..

~Vamsi

Pandora-Box · Posted: Tue Jun 12, 2007 5:26 pm

I modified it now and I changed the code accordingly but I get the same error

.

expat · Posted: Tue Jun 12, 2007 5:29 pm

Are you running in batch or online ?

Pandora-Box · Posted: Tue Jun 12, 2007 5:33 pm

I am trying to execute that main rexx part alone so it leads to the following error.

expat · Posted: Tue Jun 12, 2007 5:46 pm

Pandora-Box · Posted: Tue Jun 12, 2007 6:35 pm

online

expat · Posted: Tue Jun 12, 2007 6:48 pm

Try doing this at the start of your REXX code

Pandora-Box · Posted: Tue Jun 12, 2007 7:28 pm

What if I am trying the same thing in batch does it have any change or shall I use the same old rexx ?