|
View previous topic :: View next topic
|
| Author |
Message |
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
I'm trying to run some querys in batch mode, using a sequential file as input, but an abend occurs. Here's the code:
| Code: |
//C6T0291 EXEC PGM=INZUTILB,PARM='DSN5',REGION=8M
//STEPLIB DD DSN=DSN5.SDSNEXIT,DISP=SHR
// DD DSN=DSN5.SDSNLOAD,DISP=SHR
// DD DSN=SYS3.HPU.V21.SINZLINK,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSREC00 DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,500),RLSE),
// DCB=(BLKSIZE=0,DSORG=PS,LRECL=500,RECFM=FB)
//SYSPUNCH DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD DSN=INPUT.FILE,DISP=SHR |
The input file has the following querys:
SELECT * FROM TABLE1
WHERE CLIENT IN (XXXX,YYYYY,ZZZZZ)
AND NAME IN (AAAA,BBBB,CCCC)
AND CODE = 1
WITH UR;
SELECT * FROM TABLE2
WHERE CLIENT IN (XXXX,YYYYY,ZZZZZ)
AND NAME IN (AAAA,BBBB,CCCC)
AND DATE = '18.12.2009'
WITH UR;
The error message:
INZU039E FATAL SYNTAX ERROR BEFORE LINE 114 COLUMN 73
In the line 114 I have just the "WITH UR;" of the last query.
Do I have to use a special parameter to run theese querys? Can anyone help me with this problem? Tks! |
|
| Back to top |
|
 |
Srihari Gonugunta
Active User
Joined: 14 Sep 2007
Posts: 295
Location: Singapore
|
|
|
|
| You can try with single query. |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
| Yes, I know. But I have 10 files with different querys each one, and the idea is to use a single jcl and just change the desired input file. That's why I'm trying to use a file as input. |
|
| Back to top |
|
|
Srihari Gonugunta
Active User
Joined: 14 Sep 2007
Posts: 295
Location: Singapore
|
|
|
|
Then you have to use multiple SYSREC's like this.
//SYSREC00 DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,500),RLSE),
// DCB=(BLKSIZE=0,DSORG=PS,LRECL=500,RECFM=FB)
//SYSREC01 DD DSN=OUTPUT.FILE1,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,500),RLSE),
// DCB=(BLKSIZE=0,DSORG=PS,LRECL=500,RECFM=FB) |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
did You check the settings of the ISPF number mode
anything happening around column 73 makes me suspicious about extraneous characters left around
( and usually ISPF line numbers belong to that kind ) |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
| enrico-sorichetti wrote: |
did You check the settings of the ISPF number mode
anything happening around column 73 makes me suspicious about extraneous characters left around
( and usually ISPF line numbers belong to that kind ) |
Enrico, there's line numbers only at the left side of the file. Like this:
| Code: |
EDIT INPUT.FILE Columns 00001 00072
Command ===> Scroll ===> CSR
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000114 WITH UR; |
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| Quote: |
| Enrico, there's line numbers only at the left side of the file. Like this: |
those are the edit/view session linenumbers; what Enrico was talking about was line numbers as part of the ds.
| Quote: |
| Columns 00001 00072 |
which is why your display was useless, twice.
 |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Uhhh, what is in 73 and beyond. . .?
While the line numbers may be to the left, there may be other junk to the right. . .
d |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
| dbzTHEdinosauer wrote: |
| Quote: |
| Enrico, there's line numbers only at the left side of the file. Like this: |
those are the edit/view session linenumbers; what Enrico was talking about was line numbers as part of the ds.
| Quote: |
| Columns 00001 00072 |
which is why your display was useless, twice.
|
Sorry... but here's the rest of the file.
| Code: |
EDIT INPUT.FILE Columns 00009 00080
Command ===> Scroll ===> CSR
000114 |
|
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
Searching for examples, I found this jcl for unload:
| Code: |
//SYSIN DD *
UNLOAD TABLESPACE
DB2 NO LOCK NO QUIESCE YES QUIESCECAT NO
SELECT XXXX, YYYY, ZZZZZ
FROM TABLE
OUTDDN SYSREC00
FORMAT DSNTIAUL |
I changed the parameter DB2 to YES and executed the query that I cited previously, and it worked.
Now, does anyone knows if it's prossible and how to use theese parameters with an input file instead the query in the SYSIN, as in the beggining of the topic?
Tks! |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| does anyone knows if it's prossible and how to use theese parameters with an input file instead the query in the SYSIN |
You can place the statements from the most recent SYSIN into multiple datasets or members and concatenate them into the run. . .
This however does not sound like the original question. . .
I run multiple batch queries from multiple members in the same job/step rather regularly. . . |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
You mean this?
//SYSIN DD DSN=INPUT.FILE,DISP=SHR
INPUT.FILE:
DB2 NO LOCK NO QUIESCE YES QUIESCECAT NO
SELECT * FROM TABLE1
WHERE CLIENT IN (XXXX,YYYYY,ZZZZZ)
AND NAME IN (AAAA,BBBB,CCCC)
AND CODE = 1
WITH UR;
Tks! |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Yup,
d |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
Isn't worked D....
INZU010I ITEM STARTING AT (36,1) ENDING AT(36,7)
INZU097E SYNTAX ERROR - UNRECOGNIZED ELEMENT SELECT FOR SELECT BLOCK.
The file:
000001 UNLOAD TABLESPACE
000002 DB2 YES LOCK NO QUIESCE YES QUIESCECAT NO
.......
000016 SELECT * FROM TABLE
000017 WHERE XXXX IN (YYYY,ZZZZZZ)
......
000032 WITH UR;
000033 --
000034 --
000035 --
000036 SELECT * FROM TABLE2 |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
I believe i misunderstood. . . I thought the problem was still getting the process to run from a dataset.
If the problem is running multiple unloads in one step, suggest you create a small PROCedure and use a symbolic parameter for the member(s) to be used as well as the output dataset. Done correcly, the same symbolic can be used for both. Also, this can be run PROC & PEND if cataloging a PROC isn't wanted/needed.
Each EXEC of the PROC (all in the same job) would process one unload. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
Dick,
from his output, it appears that the TS wants to have all the queries in one sysin.
I thought that was not do-able. But the TS wants that and he has little or no concept of what you are trying to say. (no actually he is ignoring all indications that he can't do it that way) |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
Tks Dick Brenholtz, your answers helped a lot!!!! You're right about what I want, but it's 'do-able'.
I found an easier way to do waht I want: to use DSNTEP2. The only problem is that the output can't have more than 133 bytes. With this, the search now is for a way to do the unload for a file with at least 350 bytes.
Dick scherrer, tks for your advice (for real!!) |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
| Quote: |
| The only problem is that the output can't have more than 133 bytes. With this, the search now is for a way to do the unload for a file with at least 350 bytes. |
only partially true.... if You look at the source in the sdsnsamp You will find all the instructions to modify dsntep2 in order to produce longer lines
see also
ibmmainframes.com/viewtopic.php?t=45308&highlight=dsntep2+source |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
| I didn't know that Enrico! Unfortunately I don't have permission to change the parameters of DSNTEP2.... I think I will have to work with page breaks. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
| Quote: |
| Unfortunately I don't have permission to change the parameters of DSNTEP2 |
that' s a pretty standard practice,
make a copy of it change its name its plan names and use it as if it were a user written program
never met any objections to do it
why otherwise would IBM have done such a good job of documenting the mods  |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
| Copy made. Sorry for the stupid question, but how (where) do I change it now? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
read the source and You will find out by Yourself
here is a hint anyway ...
| Code: |
* PAGEWIDTH 133 Maximum width of a page in * 03050000
* characters (including the control * 03060000
* character in column one) * 03070000 |
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
And the modified version of the code needs to be in an available library.
You may not have permission to write the copy into the same dataset that contains the original. . . |
|
| Back to top |
|
|
beto981
New User
Joined: 06 Oct 2006
Posts: 24
|
|
|
|
No, I mean where (PDF,DB2,Insync,etc) can I do the changes? I made, but opening in the PDF I just saw this:
| Code: |
XXXXXXXXXX(DSNTEP2) Browse substituted
Command ===> Scroll ===> CSR
******************************** Top of Data **********************************
......0CEESTART........CEEMAIN ........CEEFMAIN...... CEEBETBL........CEEROOTA
......0DSNTEP2A........DSNTEP28........IELCGIX ... ...QIELCGIB ....... IELCGOG
......0IBMSBGKC........IBMSCACA...\....IBMSCCAA...H....IBMSCCCA........IBMSCCQA
......0IBMSCHFE........IBMSCHFH........IBMSCHFP...-....IBMSCHFY........IBMSCHXD
......0IBMSCTHP... ....IBMSCTHX........IBMSCUID........IBMSCUIE........IBMSCUIF
....<.0IBMSSAIA........IBMSSAOA........IBMSSEDB...&....IBMSSEIA...-....IBMSSEIT |
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10886
Location: italy
|
|
|
|
what I posted was a pointer on how to modify the source off dsntep2 in order to adapt it to Your needs.
You are not changing the invocation parameters You are modifying the source in order to create a new program
You have to behave as if it was a program written by you
copy the source from <db2hlq>.sdsnsamp to a library of Your choice,
modify the line I showed You
precompile/compile/link to a load available at run time
bind the dbrm to the proper DB2 subsystem ... and there You are up and running with a modified dsntep2
remember to use a different name |
|
| Back to top |
|
|
|
|
