> 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 [email protected] with the message: INFO IBM-MAIN
