convert VB into FB



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

Re: convert VB into FB

Postby Frank Yaeger » Wed Apr 30, 2008 10:33 pm

Govi,

Here's a DFSORT/ICETOOL job that will do what I think you asked for:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//ONE DD *
DUMMY
/*
//IN DD DSN=...  input file (VB/23040)
//C1 DD DSN=&&C1,UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,PASS)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=...  output file (FB/80)
//TOOLIN DD *
COPY FROM(ONE) USING(CTL1)
COPY FROM(IN) USING(CTL2)
COPY FROM(T1) TO(OUT) USING(CTL3)
/*
//CTL1CNTL DD *
  OUTFIL FNAMES=C1,
    REPEAT=269,BUILD=(5:SEQNUM,5,ZD,START=5,INCR=82,
     C',80,/,',80:X)
/*
//CTL2CNTL DD *
  OUTFIL FNAMES=T1,VTOF,BUILD=(1:
/*
//    DD DSN=*.C1,VOL=REF=*.C1,DISP=(OLD,PASS)
//    DD *
   /)
/*
//CTL3CNTL DD *
  OMIT COND=(1,80,CH,EQ,C' ')
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times

Previous

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post