MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Current date and time in Dataset name
Goto page Previous  1, 2, 3, 4  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Nov 22, 2006 3:02 pm    Post subject: Reply with quote

sanjayr321,

Did you change this statement in your job to your t-id?

Code:

//XXXXXXEZ JOB


You need to change the jobcard to your t-id jobcard. Read the topic once again from top to bottom and you will understand.


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Tue Sep 23, 2014 12:41 pm    Post subject: Reply with quote

Hi Kolusu,

I tried the below JCL.
Code:

//TCWM55  JOB  (8456000000,CW),
//            'LQA RISK',
//            CLASS=A,
//            MSGCLASS=T,
//            USER=WIDJXC
//PROD     SET ENV='EN19.'      | 'ENXX.'   | 'SHAD.'   | ''
//PROD     SET DB2ENV='DEVL'    | 'ENXX.'   | 'SHAD.'   | 'USER'
//JS10    EXEC PGM=EZACFSM1
//SYSOUT  DD   SYSOUT=(*,INTDR)
//SYSIN   DD   DATA,DLM=@@
//JS20    EXEC IEFBR14,
//            ENV=&ENV
//FILE01   DD DSN=EN19.WIDJXC.TEST.D&LYYMMDD,
//            UNIT=SYSDA,
//            DCB=(RECFM=FS,BLKSIZE=FB,DSORG=PS),
//            SPACE=(TRK,(12000,1250),RLSE),
//            DISP=(NEW,CATLG,DELETE)

The job runs successfully but only First Step(JS10) Executes but in SYSOUT I found
the below but the Dataset is not created.
Code:

//JS20    EXEC IEFBR14,
//            ENV=&ENV
//FILE01   DD DSN=EN19.WIDJXC.TEST.D140923,
//            UNIT=SYSDA,
//            DCB=(RECFM=FS,BLKSIZE=FB,DSORG=PS),
//            SPACE=(TRK,(12000,1250),RLSE),
//            DISP=(NEW,CATLG,DELETE)

Please advise and provide me info to create dataset as
EN19.WIDJXC.TEST.M201409

Thanks for your Help. We dont have DFSORT but have SYNCSORT.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Sep 23, 2014 12:52 pm    Post subject: Reply with quote

jayram99,

1. Where is the job card in your Submitted job?

2. Where is the ending DLM of "@@" in your JCL?

3. Is this even a valid statement ? DCB=(RECFM=FS,BLKSIZE=FB,DSORG=PS) Blksize should be a number.

Try this

Code:

//TCWM55  JOB  (8456000000,CW),
//            'LQA RISK',
//            CLASS=A,
//            MSGCLASS=T,
//            USER=WIDJXC
//*                       
//STEP0100 EXEC PGM=EZACFSM1                     
//SYSOUT   DD SYSOUT=(*,INTRDR),RECFM=FB
//SYSIN    DD DATA,DLM=@@ 
//TCWM55  JOB  (8456000000,CW),
//            'LQA RISK',
//            CLASS=A,
//            MSGCLASS=T,
//            USER=WIDJXC
//*                       
//STEP0100 EXEC PGM=IEFBR14                       
//FILE01   DD DSN=EN19.WIDJXC.TEST.D&LYYMMDD,
//            DISP=(NEW,CATLG,DELETE),           
//            UNIT=SYSDA,                         
//            SPACE=(CYL,(10,10),RLSE),             
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)   
@@                                               

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Tue Sep 23, 2014 1:39 pm    Post subject: Reply with quote

Hi Kolusu,

I executed the Job but couldn't allocate the Dataset. The JCL is as below.

The JobCard and DLM was provided.
Code:

000001 //TCWM55  JOB  (8456000000,CW),
000002 //            'LQA RISK',
000003 //            CLASS=A,
000004 //            MSGCLASS=T,
000005 //            USER=WIDJXC
000006 //JS10    EXEC PGM=EZACFSM1
000007 //SYSOUT  DD   SYSOUT=(*,INTDR),RECFM=FB
000008 //SYSIN   DD   DATA,DLM=@@
000009 //TCWM56  JOB  (8456000000,CW),
000010 //            'LQA RISK',
000011 //            CLASS=A,
000012 //            MSGCLASS=T,
000013 //            USER=WIDJXC
000014 //PROD     SET ENV='EN19.'      | 'ENXX.'   | 'SHAD.'   | ''
000015 //PROD     SET DB2ENV='DEVL'    | 'ENXX.'   | 'SHAD.'   | 'USER'
000016 //JS20    EXEC IEFBR14,
000017 //            ENV=&ENV
000018 //FILE01   DD DSN=EN19.WIDJXC.TEST.D&LYYMMDD,
000019 //            UNIT=SYSDA,
000020 //            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920),
000021 //            SPACE=(CYL,(10,10),RLSE),
000022 //            DISP=(NEW,CATLG,DELETE)
000023 @@

Please correct me if i am missing any information. The Dataset name should be as
Ex : EN19.WIDJXC.TEST.M201409

Thanks for your Help!
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Sep 23, 2014 1:59 pm    Post subject: Reply with quote

jayram99 wrote:
Hi Kolusu,

I executed the Job but couldn't allocate the Dataset. The JCL is as below.

The JobCard and DLM was provided.
Code:

000014 //PROD     SET ENV='EN19.'      | 'ENXX.'   | 'SHAD.'   | ''
000015 //PROD     SET DB2ENV='DEVL'    | 'ENXX.'   | 'SHAD.'   | 'USER'



Jayram,

Why do you need the SET statments? You are NOT using any of them.

Secondly why don't you look at the job output of TCWM56 in SDSF? It will tell you what went wrong with your job.

jayaram99 wrote:
Please correct me if i am missing any information. The Dataset name should be as
Ex : EN19.WIDJXC.TEST.M201409


Did you even see what you coded in your JCL for the last node? You coded D&LYYMMDD which means you will get dataset named EN19.WIDJXC.TEST.D140923.

If you want EN19.WIDJXC.TEST.M201409 then you need to code the dsn as EN19.WIDJXC.TEST.M&LYR4.&LMON,

Please take time and understand what you are coding and learn from it instead of simply returning with "It Doesn't work"

Check this link which explains all the System symbols that you can use

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2e2c2/2.2.2?
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Tue Sep 23, 2014 3:04 pm    Post subject: Reply with quote

Hi Kolusu,

Thanks for your Reply and I was first trying to create the Dataset and then thought working on the Date Format.

The job runs successfully. Only JS10 Step of TCWM55 runs and JS20 of TCWM56 doesn't run and in SYSOUT.Do we need 2 Job Statements(TCWM55 and TCWM56)?

I tried with 1 Job Statement and 2 Job Steps(JS10 and JS20), the job executes only JS10 Step. But in SYSOUT, I could see the following Output but doesn't create Dataset.
Code:


 ------------------------------- IOF Job Summary ----------------------------
 COMMAND ===> 4                                               SCROLL ===> SCR
 --JOBNAME--JOBID----STATUS---RAN/RECEIVED------DAY-------DEST---------------
   TCWM55   J008409  OUTPUT   15:20   9/23/2014 TODAY     FRDMACM2         
 --RC--PGM--------STEP-----PRSTEP---PROC-----COMMENTS------------------------
    0  EZACFSM1   JS10                                                       
 --------DDNAME---STEP-----PRSTEP---STAT-ACT-C-GRP-D-SIZE-U-DEST-------------
 _    1  LOG      *                 HELD     T   1 H   22 L FRDMACM2         
 _    2  JCL      *                 HELD     T   1 H    9 L FRDMACM2         
 _    3  MESSAGES *                 HELD     T   1 H   50 L FRDMACM2         
      4  SYSOUT   JS10              HELD     T   2 H    7 L FRDMACM2 
     
      SYSOUT is as below.
     
      //JS20    EXEC IEFBR14,                                                       
      //            ENV=&ENV                                                         
      //FILE01   DD DSN=EN19.WIDJXC.TEST.D140923,                                   
      //            UNIT=SYSDA,                                                     
      //            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920),                           
      //            SPACE=(CYL,(10,10),RLSE),                                       
      //            DISP=(NEW,CATLG,DELETE)                                         
       ******************************* Bottom of Data *******************************

Please review the above log and correct me if i have missed any information.

Thank you,
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Sep 23, 2014 3:38 pm    Post subject: Reply with quote

jayram99 wrote:
Hi Kolusu,

Thanks for your Reply and I was first trying to create the Dataset and then thought working on the Date Format.

The job runs successfully. Only JS10 Step of TCWM55 runs and JS20 of TCWM56 doesn't run and in SYSOUT.Do we need 2 Job Statements(TCWM55 and TCWM56)?

I tried with 1 Job Statement and 2 Job Steps(JS10 and JS20), the job executes only JS10 Step. But in SYSOUT, I could see the following Output but doesn't create Dataset.


Jayaram99,

You need a basic understanding of the job you are submitting. You are submitting another job via intrdr using a job. Is WIDJXC your T-id or somebody else's id?

change the string "Your t-id" to your mainframe T-ID in the jcl below(5 places and run the job AS IS and then you will have 2 job Outputs

1. SUBJOBA
2. DSNCREA

Code:

//SUBJOBA  JOB  (8456000000,CW),
//            'LQA RISK',
//            CLASS=A,
//            MSGCLASS=T,
//            USER=Your t-id,
//            NOTIFY=Your t-id
//*                       
//STEP0100 EXEC PGM=EZACFSM1                     
//SYSOUT   DD SYSOUT=(*,INTRDR),RECFM=FB                   
//SYSIN    DD DATA,DLM=@@ 
//DSNCREA  JOB  (8456000000,CW),
//            'LQA RISK',
//            CLASS=A,
//            MSGCLASS=T,
//            USER=Your t-id,
//            NOTIFY=Your t-id
//*                                           
//STEP0100 EXEC PGM=IEFBR14                       
//FILE01   DD DSN=Your-tid.WIDJXC.TEST.M&LYR4.&LMON,
//            DISP=(NEW,CATLG,DELETE),           
//            UNIT=SYSDA,                         
//            SPACE=(CYL,(1,1),RLSE),             
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)   
@@                                               

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Tue Sep 23, 2014 8:51 pm    Post subject: Reply with quote

Kolusu,Thank you very much for your Help! Smile
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Wed Sep 24, 2014 11:09 am    Post subject: Reply with quote

jayram99 wrote:
Kolusu,Thank you very much for your Help! Smile


Were you able to create the file now? what was the mistake you were making earlier?
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Wed Sep 24, 2014 2:43 pm    Post subject: Reply with quote

Yes I could create the Dataset. The Mistake i was making Spelling of INTRDR Smile
//SYSOUT DD SYSOUT=(*,INTDR),RECFM=FB --> Missing 'R' .

Once again Thank you for your Help!
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Mon Sep 29, 2014 3:53 pm    Post subject: Reply with quote

Hi Kolusu,

Need One more Help. Please advice me how to read Dataset with previous month.

ABC.XYZ.NAM00840.SASFILE.M&LYR4.&LMON - Could Read Curent Year Month(201409).

We recieved new requirement.
Ex :
1)If we are running job in September,The Dataset to be read is Previous Month(201408).
ABC.XYZ.NAM00840.SASFILE.M201408
2) If we are running job in Jan 2015,The Dataset to be referred is Previous Year and Previous Month(201412).
ABC.XYZ.NAM00840.SASFILE.M201412

Thanks for your Help!
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Sep 29, 2014 4:24 pm    Post subject: Reply with quote

Jayaram99,

Use the following JCL. I assumed the prevmon starts at position 45 in the JCL. You need to change it to the position based on the naming convention. Use DATE2-1 which will give you previous month.

Once you have verified that everything is correctly substituted, change the //SORTOUT DD SYSOUT=* to //SORTOUT DD SYSOUT=(*,INTRDR),RECFM=FB and submit the job.

Code:

//STEP0100 EXEC PGM=SORT                                               
//SYSOUT   DD SYSOUT=*                                                 
//SYMNAMES DD *                                                       
//SORTIN   DD DATA,DLM=@@                                             
//DSNCREA  JOB  (8456000000,CW),                                       
//            'LQA RISK',                                             
//            CLASS=A,                                                 
//            MSGCLASS=T,                                             
//            USER=YOUR T-ID,                                         
//            NOTIFY=YOUR T-ID                                         
//*                                                                   
//STEP0100 EXEC PGM=IEFBR14                                           
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-
//FILE01   DD DSN=ABC.XYZ.NAM00840.SASFILE.M,                         
//            DISP=(NEW,CATLG,DELETE),                                 
//            UNIT=SYSDA,                                             
//            SPACE=(CYL,(1,1),RLSE),                                 
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)                   
@@                                                                     
//SORTOUT  DD SYSOUT=*                                                 
//SYSIN    DD *                                                       
  OPTION COPY                                                         
  INREC IFTHEN=(WHEN=(1,8,CH,EQ,C'//FILE01'),OVERLAY=(45:DATE2-1,C','))
//*

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Mon Sep 29, 2014 10:41 pm    Post subject: Reply with quote

Thanks Kolusu for your Help. It worked.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
jayram99
Beginner


Joined: 16 Aug 2004
Posts: 52
Topics: 21
Location: falls church.va,usa

PostPosted: Mon Oct 13, 2014 12:05 pm    Post subject: Reply with quote

Hi Kolusu,

Need your Help.

We will receive Trigger File (ENV.TRIGGER.FILE) and This Trigger file(ENV.TRIGGER.FILE) has a value which will a file name like(ABC.PROD.INPUT.FILE.M201410).
This file(ABC.PROD.INPUT.FILE.M201410) changes every 1/2 months. How to read Dataset(ABC.PROD.INPUT.FILE.M201410) as an input
in our JCL?

The JCL will call COBOL/SAS Program to proces the Dataset(ABC.PROD.INPUT.FILE.M201410)

Appreciate your Help.
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Oct 13, 2014 12:18 pm    Post subject: Reply with quote

jayram99,

I am not sure as to why you are extending this topic as it is NOT the topic to have your never ending questionnaire.

why don't you continue your questions in this topic?

http://www.mvsforums.com/helpboards/viewtopic.php?t=12456

Secondly you have a file name in a file and you need to read that as input to your cobol program. what is that you are stuck with? It is quite simple task of reading the file and generating the JCL and submitting it. What did you try so far?
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Goto page Previous  1, 2, 3, 4  Next
Page 3 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group