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
 

 

Passing 64 values as parameter to a focus program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
nitishniki

New User


Joined: 27 Dec 2007
Posts: 10
Location: Banglore

PostPosted: Wed Jul 02, 2008 9:31 pm    Post subject: Passing 64 values as parameter to a focus program
Reply with quote

I have a job which is passing 64 values as parameter to a focus program.
Now I have to put it into production it. So I have to make a seperate job and have to call a proc and I have to pass parameter to program, through the proc. Can anybody suggest the right way to do it?
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: Thu Jul 03, 2008 5:48 am    Post subject:
Reply with quote

Hello,

If you post the jcl you are testing, we may be able to suggest ways to proceed with making it production ready.

If there are certain things you must do or may not do, please post these "rules" and save some false starts.
Back to top
View user's profile Send private message
nitishniki

New User


Joined: 27 Dec 2007
Posts: 10
Location: Banglore

PostPosted: Thu Jul 03, 2008 7:21 pm    Post subject:
Reply with quote

Hi Dick,
tnx for ur response, i am posting the sisin card here..
//SYSOUT DD SYSOUT=A
//SYSIN DD *
EX ZZZVAA
072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
NWREGN,NWREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
SWREGN,SWREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
MWREGN,MWREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
SOREGN,SOREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
NEREGN,NEREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
SEREGN,SEREGN.
EX ZZZVAA 072006,082006,092006,102006,112006,122006,012007,022007,
032007,042007,052007,062007,072007,082007,092007,102007,
HOMOFF,HOMOFF.
**************************** Bottom of Data ****************************




I have to move it to production , previously it was running manualy.
Here problem comes as I have to covert this jcl into proc step and i have to pass these values(in proc) tru utypsym which is again cannot take parameter length more than 100. so,
question is how i productionise it.
did u get my problem..
tnx
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Jul 03, 2008 9:33 pm    Post subject:
Reply with quote

Why does the production version use a PARM while this version uses SYSIN?
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: Thu Jul 03, 2008 10:05 pm    Post subject:
Reply with quote

Hello,

Hmmmm. . . I believe the "rules" confuse me (as Bill mentions) icon_smile.gif

Is there some reason you cannot copy the "parm" data into some pds member and change the //SYSIN DD to name that pds(member) rather than DD *?

Most environments have a "control lib" that exists just for such requirements.
Back to top
View user's profile Send private message
nitishniki

New User


Joined: 27 Dec 2007
Posts: 10
Location: Banglore

PostPosted: Fri Jul 04, 2008 2:28 pm    Post subject: hi all,
Reply with quote

you r right dick, but that is only can done when, u have static data or constants
but here my problem is: it has to update every month like, one new month will be added and one old month will be truncated and it has to be done autometicaly tru esp or ajs.
r u getting till now if yes reply back then i ll discuss next problem

tnx in adv for showing interest
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: Fri Jul 04, 2008 2:34 pm    Post subject:
Reply with quote

Hello,

Quote:
it has to update every month like, one new month will be added and one old month will be truncated
Yes, it is quite common for control informaton to be updated periodically. This is not usually a big deal? Some process is implemented to create new control info and this process is scheduled to be done before the job(s) using the control info execute.
Back to top
View user's profile Send private message
nitishniki

New User


Joined: 27 Dec 2007
Posts: 10
Location: Banglore

PostPosted: Fri Jul 04, 2008 2:46 pm    Post subject:
Reply with quote

Yes, you r right, now these parameter has to be copied into the file and the location of file would be given to sisin in the proc.

here in ibm one utility utypsym is there which dynamically resolve the parameter in the file like if i pass date as a parameter in the utypsym it will resolve date as 200807 in the file dynamically ... its like

EX PGMNAME &DATE in sysin pds(mem) will be resolve as EX PGMNAME 200807

FOR LENGTH UPTO 100 WE CAN PASS AS A PARAMETER IN UTYPSYM , BUT IT IS MORE THAN THAT.

SO QUESTION IS HOW TO PASS IT DYNAMICALLY..

HOPE U UNDERSTAND

TNX
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: Fri Jul 04, 2008 11:49 pm    Post subject:
Reply with quote

Hello,

TURN YOUR CAPS OFF. . .
Quote:
HOPE U UNDERSTAND
Yes, i understand - so far, you do not. . .
Quote:
SO QUESTION IS HOW TO PASS IT DYNAMICALLY..
You dynamically replace the contents of the sysin file before each execution - you will not pass all of the data dynamically in some parm.

Quote:
EX PGMNAME &DATE in sysin pds(mem) will be resolve as EX PGMNAME 200807
This example shows a symbolic parameter which will not work for your requirement. You will probably not use UTYPSYM for this data. You must implement a process that either updates the old set of parms or creates a new set for each month.
Back to top
View user's profile Send private message
nitishniki

New User


Joined: 27 Dec 2007
Posts: 10
Location: Banglore

PostPosted: Sat Jul 05, 2008 11:14 am    Post subject:
Reply with quote

do u know such utility which does same as u mentioned..
please let me know if any...
tnx icon_question.gif
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: Sat Jul 05, 2008 1:28 pm    Post subject:
Reply with quote

Hello,

Who/what is responsible for the monthly change in the control informaton that is used by Focus?

What part of the control info changes each month? Other than the region specification, the series of months and years is the same - and they end last October?

If the control info posted is "last month" what will the control informaton for "this month" contain?
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts setting new limit Key values for inde... srilata83 DB2 1 Fri Feb 10, 2017 9:24 pm


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