Home |

REORG - DOS

In order to determine the files that have errors.

Type reorg (filename with no extension)
D:\mc\mcadata>reorg prtass
Press <ENTER>

D:\mc\mcadata>echo off
Starting reorg on your data file
icreorg Revision 3.00 (Windows)
Copyright (C) 1987-2000, Egan Systems, Inc. All rights reserved.
D:\mc\mcadata\t reorganized into D:\mc\mcadata\prtass on May-10-2002 12:34:46.36
Input file type: Indexed (processed by primary key)
Records processed: 47
Output file type: Indexed
Records written: 47
Records ignored: 0
icreorg is finished
Volume in drive D has no label.
Volume Serial Number is F447-8BB4

Directory of D:\mc\mcadata

iccheck Revision 3.00 (Windows)
Copyright (C) 1987-2000, Egan Systems, Inc. All rights reserved.
D:\mc\mcadata\prtass processed on May-10-2002 12:34:46.83
ICISAM Revision 5.09
Delete is logical, Maximum file size is 2GB
No Alternate Keys 64 byte Records 47 Records allocated
Records available before the .XD EOF: 51
Primary ------- Key: 47 Record: 47
1 file/argument was processed - All are reliable.
iccheck is finished
.
Check if 1 file(s)/argument(s) processed and ALL are Reliable
.
If not reliable, call MC Service Support.
.
Files must be renamed or data will be lost!
.
If all are reliable, file is fixed. Proceed with normal operations.
.

The reorg process should indicate that it terminated successfully. The chkisam process will follow and should indicate that zero files had errors.

The reorg procedure will display a counter as it reads records and writes them out to the file. After the reorg is finished, you should be able to continue with normal operations.


REORG SCRIPT or BATCH FILE

REORG.BAT. This is the batch file used for DOS ONLY

    echo off
    echo Starting reorg on your data file
    rem set ICROOT=c:\program files\icobol
    DEL T.NX
    DEL T.XD
    REN %1.XD T.XD
    REN %1.NX T.NX
    "c:\program files\ICOBOL\ICREORG.EXE" -p t %1
    dir %1
    "c:\program files\ICOBOL\ICCHECK.EXE" -epN w %1
    rem "c:\program files\icobol\icfixup.exe" -p %1%
    echo .
    echo    Check if 1 file(s)/argument(s) processed and ALL are Reliable
    echo .
    echo    If not reliable, call MC Service Support.
    echo .
    echo    Files must be renamed or data will be lost!
    echo .
    echo    If all are reliable, file is fixed. Proceed with normal operations.
    echo .

Updated February 18, 2005 at 11:15 a.m.