|
View previous topic :: View next topic
|
| Author |
Message |
Farrauto
New User
Joined: 30 Aug 2007
Posts: 5
Location: Belgium
|
|
|
|
Hi,
I want execute a select (db2) in a JCL.
I'm using PGM=IKJEFT01 and i'm running program DSNTEP2. The result of my query is in a file toto.db2.result
All is OK but in my file i can see in the first line the query and in the others lines i see the result with border and number for each row.
I would like see only the result of my query, without the query and the borders...
Can you help me?
here is the code:
| Code: |
//TAB500D EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=DDA1LIB.SDSNLOAD,DISP=SHR
//SYSPRINT DD DISP=(MOD,CATLG),SPACE=(CYL,(9,9)),
// DSN=toto.db2.TAB500D
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DDA1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP71)
LIB('DSN710D.RUNLIB.LOAD') PARMS('/ALIGN(LHS)')
END
//SYSIN DD *
SELECT B.CLIENT, B.DBD
FROM NNDBD.DBEURO_CLIDBD_DEV A
RIGHT OUTER JOIN NNDBD.DEU02_CLIDBD_DEV B
ON CODE = CLIENT AND B.DBD = A.DBD
WHERE A.DBD IS NULL
GROUP BY B.CLIENT, B.DBD;
|
|
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
NO! :-)
Thats the way dsntep2 works...
but... dsntep2 source is available in the DB2 libraries,
modifying it to suit Your needs is not that difficult
regards
e.s |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Or simply process the output of DSNTEP2 using REXX/SORT etc.
O. |
|
| Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
Or - less simplier but a real good exercice, use DSNTEP2 as a sample and modify it ( it is PL/I however ).
A good week-end work .. 
No Stop I am not really serious. although ...
Cheers
Pierre |
|
| Back to top |
|
|
|
|
