Need to pass date.



Post anything related to mainframes (IBM & UNISYS) if not fit in any of the above categories

Need to pass date.

Postby anoopm7 » Wed Apr 02, 2008 12:20 pm

Hi all,

Please do tell me how to pass date to a variable for a program when it runs in production .when we tested it we used to do by manually editing the date. But now we want to automatizie the process.Hence want to know how i can pass the date so as the program generates report daily by using the passed date value.

Thanks in advance
Anoop
anoopm7
 
Posts: 12
Joined: Sun Feb 10, 2008 12:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: Need to pass date.

 

Re: Need to pass date.

Postby arunprasad.k » Wed Apr 02, 2008 2:44 pm

Please do tell me how to pass date to a variable for a program when it runs in production


What date?? Current date or some other date?? In what format??

Why you want to pass and why not to ACCEPT it from COBOL

Options are numerous, you can use ACCEPT DATE (in COBOL), EZACFSM1, Sort products, etc.

Explain the requirement clearly, you will have a better chance of getting a good soulution.

Arun.
arunprasad.k
 
Posts: 110
Joined: Thu Dec 27, 2007 5:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Need to pass date.

Postby anoopm7 » Thu Apr 03, 2008 12:16 pm

Thanks Arun for the quick response.

I want to pass the current date in yy/mm/dd format. Its simple job with no cobol programs been called .The date needs to be called and then passed to a control card which fetches the necessary data for that date and returns the data.

Hence i want to know how we can pass date in a JCL into a variable for current date residing in a control card.
anoopm7
 
Posts: 12
Joined: Sun Feb 10, 2008 12:55 am
Has thanked: 0 time
Been thanked: 0 time

Re: Need to pass date.

Postby arunprasad.k » Thu Apr 03, 2008 2:55 pm

Thanks Arun for the quick response.


You are welcome.

I use this JCL to create the control statements to FTP a dataset to a server with date as an qualifier.

I hope you can modify this and use.

//S1 EXEC PGM=EZACFSM1                                                 
//SYSIN    DD *                                                         
CD N:\RECALL\R0714\                                                     
PUT 'KRT746U.R0714.VINOUT(0)' R0714-VIN3-D&LYR2&LMON&LDAY..TXT         
QUIT                                                                   
/*                                                                     
//SYSOUT   DD DSN=YOUR.CONTROL.CARD,                                   
//         DISP=(NEW,CATLG,DELETE),UNIT=SAVDA,                         
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),                           
//         SPACE=(CYL,(1,1),RLSE)                                       


Post if you face any issues.

Arun.
arunprasad.k
 
Posts: 110
Joined: Thu Dec 27, 2007 5:18 pm
Has thanked: 0 time
Been thanked: 0 time


Return to All other Mainframe Topics

 


  • Related topics
    Replies
    Views
    Last post