gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
here is an example using an FB file, you just need to add 4 bytes to start positions for VB file
Code: |
//STEP001 EXEC PGM=SYNCTOOL
//IN1 DD *
800021234567300090211
800021234567300092311
800021234567300082411
181921234567300072411
181921234567300082411
//LAST DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN1) TO(LAST) ON(1,15,CH) -
LAST USING(CTL1)
//CTL1CNTL DD *
SORT FIELDS=(1,15,BI,A,20,2,BI,A,16,2,BI,A,18,2,BI,A)
/* |
Gerry |
|