Re: DFSORT job to convert FBM to FBA

[Sri h Kolusu]

> DFSORT job to convert FBM to FBA?   --

Michael,

Try this.

/STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=your.FBM.file
//SORTOUT  DD DSN=Your.FBA.File,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *
  OPTION COPY
  INREC FINDREP=(ENDPOS=1,
                  INOUT=(X'01',C'+',X'03',C'+',
                         X'0B',C' ',X'09',C' ',
                         X'13',C'0',X'11',C'0',
                         X'1B',C'-',X'19',C'-',
                         X'8B',C'1',X'89',C'1',
                         X'93',C'2',X'81',C'2',
                         X'9B',C'3',X'99',C'3',
                         X'A3',C'4',X'A1',C'4',
                         X'AB',C'5',X'A9',C'5',
                         X'B3',C'6',X'B1',C'6',
                         X'BB',C'7',X'B9',C'7',
                         X'C3',C'8',X'C1',C'8',
                         X'CB',C'9',X'C9',C'9',
                         X'D3',C'A',X'C1',C'A',
                         X'DB',C'B',X'D9',C'B',
                         X'E3',C'C',X'E1',C'C'))
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN