View previous topic :: View next topic
|
Author |
Message |
rocky
New User
Joined: 25 Aug 2005 Posts: 1
|
|
|
|
Plz answer these questions
1.A file has 3 records,how to move them to 3 diff files?
2.Real time use of TSQ and TDQ.
3.How will you change DSN of a cataloged PROC?
4.How do you access DB2 Table data for your programs?
5.What are the common problems that occur during TESTING and how to resolve thwm?
6.How many records can a table contain?
7. How to handle abends in CICS? |
|
Back to top |
|
|
radhakrishnan82
Active User
Joined: 31 Mar 2005 Posts: 435 Location: chennai, India
|
|
|
|
1.hope this helps
Code: |
//STEP1 EXEC PGM=ICETOOL
//*
//TOOLMSG DD SYSOUT=*
//*
//DFSMSG DD SYSOUT=*
//*
//SORTIN DD DSN=ds1
//SORT1 DD DSN=Ds1
//SORT2 DD DSN=Ds2
//SORT3 DD DSN=Ds3
//TOOLIN DD * *** CONSTANT CONTROL CARDS ***
COPY FROM(SORTIN) USING(CTL1)
//CTL1CNTL DD * *** CONSTANT CONTROL CARDS ***
//CTL1CNTL DD * *** CONS
OUTFIL FNAMES=SORT1,
OUTREC=(1:1,20) if you have condition then issue it inside outrec...
OUTFIL FNAMES=SORT2,
OUTREC=(1:1,20)
OUTFIL FNAMES=SORT3,
OUTREC=(1:1,20)
/*
//
/*
// |
|
|
Back to top |
|
|
radhakrishnan82
Active User
Joined: 31 Mar 2005 Posts: 435 Location: chennai, India
|
|
Back to top |
|
|
maggiebms
New User
Joined: 23 May 2005 Posts: 16
|
|
|
|
Hi,
The following are the answers for ur questions. If any corrections, plz correct me immediately.
1.
//jobcard
//step1 exec pgm=sort
//dd1 dd dsn=inputfile,disp=shr
//f1 dd dsn=outputfile1,
disp=(new,catlg,delete),space,dcb parameters...
//f2 dd dsn=outputfile2,
disp=(new,catlg,delete),space,dcb parameters...
//f3 dd dsn=outputfile3,
disp=(new,catlg,delete),space,dcb parameters...
//sysin dd *
OUTFIL FNAMES =(F1,F2,F3),SPLIT
/*
//
3.
//jobcard
//step1 exec catalog proc
//catstepname.ddname dd dsn=newnamedatasetname
//step2 .............
//...............
4.
i) Using cursor
ii) Usinf Singleton select
With thanks and regards,
MaggieBMS |
|
Back to top |
|
|
|