Hello,
I'm hanging around with this task and I'm getting what I want, can you pls
give me an help ??
>> input dsn:
Organization . . . : PS
Record format . . . : VB
Record length . . . : 7004
Block size . . . . : 27998
>> input dsn:
MVST E TI02AA.REPTEXT.NOTOK2.MCGRID Line 00000000 Col 001
080
Command ===> Scroll ===>
CSR
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data
**********************************
D EXPBD.BACKUP.BDPADM01.ESP09000.G6087V00 2011/04/18203146MVS2
2011/08/
D EXPBD.BACKUP.BDPADM01.ESP09000.G6088V00 2011/04/19202910MVS2
2011/08/
on the output dsn I want to get only the dsn field.
I'm using ICETOOL with:
//TOOLIN DD *
*
COPY FROM(INDD) TO(OUT1) USING(COP1)
*
//COP1CNTL DD *
SORT FIELDS=COPY
OUTREC FIELDS=(9,40)
and I'm getting:
ICE146I 0 END OF STATEMENTS FROM COP1CNTL - PARAMETER LIST STATEMENTS
FOLLOW
DEBUG NOABEND,ESTAE
OPTION
MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=COP1,SORTIN=INDD,
ORTOUT=OUT1,DYNALLOC
SORT FIELDS=COPY
ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE251A 0 MISSING RDW OR DATA FOR *OUTREC : REASON CODE 03, IFTHEN 0
What am I missing ??
Many thx, A.Cecilio.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
