|
View previous topic :: View next topic
|
| Author |
Message |
karthickpearl
New User
Joined: 13 Apr 2010
Posts: 35
Location: Chennai
|
|
|
|
Hi,
Can anyone help me out with how to pass data from JCL SYSIN card to a FOCUS program.
Below is the FOCUS pgm,
| Code: |
TABLE FILE REPORT
PRINT AMT AS "PRICE"
INV AS "INV-NO"
INVDT AS "INV-DATE"
BY AREA AS "AREA"
IF INVDT FROM '100330'
TO '100330'
ON TABLE SAVE AS OUTFILE FORMAT WP
END |
The date field hard coded here must come from the JCL. |
|
| Back to top |
|
 |
nemo_budd
New User
Joined: 30 Mar 2008
Posts: 7
Location: Pune
|
|
|
|
You can pass the data from JCL to focus as below.
| Code: |
//SYSIN DD *
EX FOCUS INVBEGDT='100330', INVENDDT='100330'
|
| Code: |
TABLE FILE REPORT
PRINT AMT AS "PRICE"
INV AS "INV-NO"
INVDT AS "INV-DATE"
BY AREA AS "AREA"
IF INVDT FROM '&INVBEGDT'
TO '&INVENDDT'
ON TABLE SAVE AS OUTFILE FORMAT WP
END
|
If the dates are changed on regular basis like monthly or weekly, then you can calculate the date in your focus exec itself using date functions, without passing from JCL. |
|
| Back to top |
|
|
karthickpearl
New User
Joined: 13 Apr 2010
Posts: 35
Location: Chennai
|
|
|
|
Your suggestion have worked.
Thanks a lot man...
I also tried the following and it wokred, but yours is a better way.
//STARTDT DD *
//050101
//ENDDT DD *
//100330
And in FOCUS
-READ STARTDT &START.I6.
-READ ENDDT &END.I6.
TABLE FILE REPORT
PRINT AMT AS "PRICE"
INV AS "INV-NO"
INVDT AS "INV-DATE"
BY AREA AS "AREA"
IF INVDT FROM '&START'
TO '&END'
ON TABLE SAVE AS OUTFILE FORMAT WP
END |
|
| Back to top |
|
|
|
|
