krisprems
Active Member
Joined: 27 Nov 2006
Posts: 649
Location: India
|
|
|
|
| Code: |
//**************************
//STEP001 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
AAAA
CCCC
DDDD
AAAA
CCCC
DDDD
AAAA
EEEE
CCCC
AAAA
EEEE
/*
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN1) TO(OUT) ON(81,8,ZD) -
USING(NKK1) ALLDUPS
/*
//NKK1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,4,CH,NE,C'EEEE'),
OVERLAY=(81:81,8,ZD,ADD,+1,TO=ZD,LENGTH=8))
OUTFIL FNAMES=OUT,BUILD=(1,80)
/*
|
|
|
