quanzhong
New User
Joined: 12 Aug 2008 Posts: 46 Location: china
|
|
|
|
Hi, all
I have a requirement like this, for each input record, I want to reformat it into two records, I use two OUTRREC for each INREC to the same OUTFIL, it doesn't work, is there any other way?
the sort ctlcard:
Code: |
//SYSIN DD *
OPTION COPY
INREC FIELDS=(1:1,47,X,57,4,62,4,X,
287,22,80:SEQNUM,6,ZD,RESTART=(1,16))
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(80,6,ZD,EQ,01),
PUSH=(86:25,3))
OUTFIL FNAMES=OUT,FTOV,INCLUDE=(17,5,ZD,NE,0),
OUTREC=(1:53,4,5:SEQNUM,4,BI,09:X'0001',C'ED',
13:86,3,58,19,77,3,PD,EDIT=(TTTT),
25X,64:X'2538',X'0000',68:C'CEB09041',12X,C'CUS1',
92:X'0000',X'00004C',X'00000000',C' ',C'01')
OUTFIL FNAMES=OUT,FTOV,INCLUDE=(17,5,ZD,NE,0),
OUTREC=(1:53,4,5:SEQNUM,4,BI,09:X'0001',C'ED',
13:86,3,58,19,77,3,PD,EDIT=(TTTT),
25X,64:X'00C7',X'0000',68:C'CEB09041',12X,C'CUS1',
92:X'0000',X'00014C',X'00000000',C'0000000',
108:53,4,PD,EDIT=(TTTTTTT))
/* |
message:
Code: |
ICE219I 0 DUPLICATE DDNAME OUT IGNORED
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1 |
|
|