IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Passing 64 values as parameter to a focus program


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
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
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

Moderator Emeritus


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

PostPosted: Thu Jul 03, 2008 5:48 am
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
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
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

Moderator Emeritus


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

PostPosted: Thu Jul 03, 2008 10:05 pm
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
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

Moderator Emeritus


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

PostPosted: Fri Jul 04, 2008 2:34 pm
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
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

Moderator Emeritus


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

PostPosted: Fri Jul 04, 2008 11:49 pm
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
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

Moderator Emeritus


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

PostPosted: Sat Jul 05, 2008 1:28 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
Search our Forums:

Back to Top